Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 01:51:59

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

MACRO DANS EXCEL par PONTGUENNOU

RE : RECUPERER LE RESULTAS AFFICHER PAR LINVITE DE COMMANDE par jack

RECUPERER LE RESULTAS AFFICHER PAR LINVITE DE COMMANDE par liehuos001

RE : LORSQUE JE VEUX FAIRE LES ENREGISTREMENT DANS MA TABLE EN VB.NET UN MESSAGE S'AFFICHE EN ME DISANT QUE LE CHAMPS EST PETIT. QUE FAIE? par PCPT

RE : BUFFERING par pingouin84k

+ de logiciels à télécharger

1 464 966 membres
20 nouveaux aujourd'hui
15 046 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 044 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

TRACÉ D'ÉTOILES

Information sur la source

Catégorie :Graphique Classé sous : etoile Niveau : Initié Date de création : 13/08/2001 Vu : 2 978

Auteur : ceyquem

Site perso

Ecrire un message privé

Note :

6,00 / 10

Commentaire sur cette source (0)

Ajouter un commentaire et/ou une note

Description

Ce code trace une étoile centrée en (x0,y0), à n branches, de rayon r et d'angle initial a.

Source

If n / 2 = Int(n / 2) Then
Px = r * Cos(a) + x0
Py = r * Sin(a) + y0
For j = 1 To n / 2
Px2 = r * Cos(a + 4 * Pi * j / n) + x0
Py2 = r * Sin(a + 4 * Pi * j / n) + y0
Picture1.Line (Px, Py)-(Px2, Py2)
Picture1.Line (Px, Py)-(Px2, Py2)
txtLaTeX.Text = txtLaTeX.Text & vbCrLf & "\put(" & Px & "," & Py & "){\line{...}}"
Px = Px2
Py = Py2
Next j
Px = r * Cos(a + 2 * Pi / n) + x0
Py = r * Sin(a + 2 * Pi / n) + y0
For j = 1 To n / 2
Px2 = r * Cos(a + 2 * Pi / n + 4 * Pi * j / n) + x0
Py2 = r * Sin(a + 2 * Pi / n + 4 * Pi * j / n) + y0
Picture1.Line (Px, Py)-(Px2, Py2)
Picture1.Line (Px, Py)-(Px2, Py2)
txtLaTeX.Text = txtLaTeX.Text & vbCrLf & "\put(" & Px & "," & Py & "){\line{...}}"
Px = Px2
Py = Py2
Next j
Else
Px = r * Cos(a) + x0
Py = r * Sin(a) + y0
For j = 1 To n
Px2 = r * Cos(a + 2 * Pi * j * (n - 1) / 2 / n) + x0
Py2 = r * Sin(a + 2 * Pi * j * (n - 1) / 2 / n) + y0
Picture1.Line (Px, Py)-(Px2, Py2)
txtLaTeX.Text = txtLaTeX.Text & vbCrLf & "\put(" & Px & "," & Py & "){\line{...}}"
Px = Px2
Py = Py2
Next j
End If

If n / 2 = Int(n / 2) Then
    Px = r * Cos(a) + x0
    Py = r * Sin(a) + y0
    For j = 1 To n / 2
        Px2 = r * Cos(a + 4 * Pi * j / n) + x0
        Py2 = r * Sin(a + 4 * Pi * j / n) + y0
        Picture1.Line (Px, Py)-(Px2, Py2)
        Picture1.Line (Px, Py)-(Px2, Py2)
        txtLaTeX.Text = txtLaTeX.Text & vbCrLf & "\put(" & Px & "," & Py & "){\line{...}}"
        Px = Px2
        Py = Py2
    Next j
    Px = r * Cos(a + 2 * Pi / n) + x0
    Py = r * Sin(a + 2 * Pi / n) + y0
    For j = 1 To n / 2
        Px2 = r * Cos(a + 2 * Pi / n + 4 * Pi * j / n) + x0
        Py2 = r * Sin(a + 2 * Pi / n + 4 * Pi * j / n) + y0
        Picture1.Line (Px, Py)-(Px2, Py2)
        Picture1.Line (Px, Py)-(Px2, Py2)
        txtLaTeX.Text = txtLaTeX.Text & vbCrLf & "\put(" & Px & "," & Py & "){\line{...}}"
        Px = Px2
        Py = Py2
    Next j
Else
    Px = r * Cos(a) + x0
    Py = r * Sin(a) + y0
    For j = 1 To n
        Px2 = r * Cos(a + 2 * Pi * j * (n - 1) / 2 / n) + x0
        Py2 = r * Sin(a + 2 * Pi * j * (n - 1) / 2 / n) + y0
        Picture1.Line (Px, Py)-(Px2, Py2)
        txtLaTeX.Text = txtLaTeX.Text & vbCrLf & "\put(" & Px & "," & Py & "){\line{...}}"
        Px = Px2
        Py = Py2
    Next j
End If

Conclusion

La sortie se fait sur une picturebox modifiée pour avoir un repère orthonormal direct.

Sources du même auteur

COMPTER LES MOTS ET LA DIVERSITÉ

TRACÉ DE POLYGONE

MODULE MÉTÉO (NURMITE)

MODULE FOOD (NURMITE)

ALGÈBE LINÉAIRE

Toutes les sources de ceyquem

Sources de la même categorie

AFFICHEUR 7 SEGMENTS par elguevel

SCREENCOLORINVERTER par slayer418

CHART COURBE STATISTIQUE DAO par amita

GABSCREENSHOT : FAITES SIMPLEMENT ET RAPIDEMENT VOS CAPTURES... par GabSoftware

BITBLT ENTRE 2 PICTUREBOX EN VB NET par Galain

Toutes les sources de la catégorie Graphique

Sources en rapport avec celle ci

ETOILE QUI ROULE N'AMMASE PAS MOUSSE... par Sultar

DÉCODER LES ÉTOILES D'UN MOT DE PASSE par Warning

DES ÉTOILES QUI BOUGENT par Sylfeline

ETOILES 3D par LeKamé

CRÉER UN FOND ÉTOILÉ par msvbvm60.dll

Commentaires et avis

Aucun commentaire pour le moment.

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Aide pour MACRO TABLE DE MULTIPLICATION [ par bencoco ] Bonjour, J'ai un soucis pour réussir à faire une macro VBA en utilisant Word : l'énoncé me demande faire une macro qui demande à l'utilisateur un nomb