Tracé de polygone

0/5 (2 avis)

Snippet vu 6 903 fois - Téléchargée 56 fois

Commenter

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
6 mai 2002 à 21:08
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
;-)
Proger
27 nov. 2001 à 09:22
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
S'inscrire maintenant

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.

Du même auteur (ceyquem)