Traçage d'un cercle, méthode simple et efficace.

Commenter

Contenu du snippet

Voici un petit bout de code tout simple permettant de tracer un cercle. À noter que visual basic utilise un mode Radian donc la conversion est faite en mode Degré en modifiant: Angle°2 = (Angle°1 / 180) * Pi

Source / Exemple : 


Dim Vx As Double
Dim Vy As Double
Dim Angl As Double
Dim Rayon As Integer

Private Sub Command1_Click()
Angl = -1
Rayon = Screen.Width / 2
Do Until Angl = 360
Angl = Angl + 1
Vx = Rayon * Cos((Angl / 180) * 3.141592) + Screen.Width / 2
Vy = Rayon * Sin((Angl / 180) * 3.141592) + Screen.Height / 2
Form1.PSet (Vx, Vy)
Loop
End Sub

Conclusion :


Vous n'avez qu'à créer un command button et le cercle se trace selon la valeur du Rayon donné. Faites-en bon usage :)

A voir également

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 (cs_Overflow)