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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 181 fois - Téléchargée 38 fois

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

Ajouter un commentaire Commentaires
Messages postés
365
Date d'inscription
vendredi 24 mai 2002
Statut
Membre
Dernière intervention
18 octobre 2004

Une autre méthode consiste à prendre la valeur "exacte" de la calculatrice de Windows.
On peut également le faire par : pi = 4 * Atn(1)

A titre informatif uniquement.
Messages postés
466
Date d'inscription
samedi 16 février 2002
Statut
Membre
Dernière intervention
20 avril 2007

je sais pas si c'est fait pour ou si c'est un oubli de votre part mais dans ce cas vous avez recréer l'eau froide :

syntaxe du cercle en VB6 :
object.Circle [Step] (x, y), radius, [color, start, end, aspect]

Avoir comment en QB, ça aide ! ;)
Messages postés
5
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
2 décembre 2003

Le code est en effet quelque peu erroné car je l'ai tiré d'un programme que j'ai fait et j'ai complètement oublié le "l1.x1" et "l1.y1"
Messages postés
71
Date d'inscription
samedi 28 décembre 2002
Statut
Membre
Dernière intervention
11 novembre 2004

pour miko500 :
22/7 = 3,14285714285...
PI = 3.141592...
22/7 est bcp moins juste que 3.141592

A titre informatif uniquement
Messages postés
188
Date d'inscription
dimanche 29 octobre 2000
Statut
Membre
Dernière intervention
18 août 2005

Un truc à dire, juste un : pour avoir la valeur "exacte" de PI c'est le calcul de 22/7 qu'il faut faire ça serait déjà un peu plus juste.

A titre informatif uniquement.
Afficher les 6 commentaires

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.