Tracé de polygone

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 149 fois - Téléchargée 53 fois

Contenu du snippet

Ce petit code permet très simplement de tracer un polygône à n faces, de rayon r, de centre (x0,y0) et d'angle a.

Source / Exemple :


Px = r * Cos(a) + x0
Py = r * Sin(a) + y0
For j = 1 To n
    Px2 = Val(r) * Cos(a + 2 * Pi * j / n) + x0
    Py2 = Val(r) * Sin(a + 2 * Pi * j / n) + y0
    Picture1.Line (Px, Py)-(Px2, Py2)
    Px = Px2
    Py = Py2
Next j

Conclusion :


La sortie se fait sur un contrôle picture dont j'ai changé le système de coordonnées :

scaleleft = -20
scaletop = 20
scalewidth = 40
scaleheight = -40

A voir également

Ajouter un commentaire

Commentaires

ceyquem
Messages postés
12
Date d'inscription
mercredi 9 mai 2001
Statut
Membre
Dernière intervention
1 juin 2002
-
En effet, j'avais pas fait gaffe en copiant / collant...
Merci !

par contre je pense que cette approximation est meilleure :
Pi = 3.1415926535898
(voire celle-ci :
3,1415926535897932384626433832795
;-)
Alors je l'essaye puis ca marche pas. En fait il faut penser à définir Pi, VB le fait pas tout seul...
Ajouter ceci avant l'algo de ceyquem :

Pi = 3.1415926535893
r = 15
x0 = 0
y0 = 0
a = 0
n = 5 'nombre de faces

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.