TRAÇAGE D'UN CERCLE, MÉTHODE SIMPLE ET EFFICACE.
VBbigineure
Messages postés
169
Date d'inscription
vendredi 27 septembre 2002
Statut
Membre
Dernière intervention
27 février 2009
-
22 janv. 2003 à 09:56
cs_mehdibou Messages postés 365 Date d'inscription vendredi 24 mai 2002 Statut Membre Dernière intervention 18 octobre 2004 - 23 janv. 2003 à 19:15
cs_mehdibou Messages postés 365 Date d'inscription vendredi 24 mai 2002 Statut Membre Dernière intervention 18 octobre 2004 - 23 janv. 2003 à 19:15
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/5732-tracage-d-un-cercle-methode-simple-et-efficace
https://codes-sources.commentcamarche.net/source/5732-tracage-d-un-cercle-methode-simple-et-efficace
23 janv. 2003 à 19:15
On peut également le faire par : pi = 4 * Atn(1)
A titre informatif uniquement.
23 janv. 2003 à 09:32
syntaxe du cercle en VB6 :
object.Circle [Step] (x, y), radius, [color, start, end, aspect]
Avoir comment en QB, ça aide ! ;)
22 janv. 2003 à 23:10
22 janv. 2003 à 18:13
22/7 = 3,14285714285...
PI = 3.141592...
22/7 est bcp moins juste que 3.141592
A titre informatif uniquement
22 janv. 2003 à 13:15
A titre informatif uniquement.
22 janv. 2003 à 09:56
remplacons:
Private Sub Command1_Click()
Dim Vx As Double
Dim Vy As Double
Dim Angl As Double
Dim Rayon As Integer
Rayon = Me.Width / 5
Angl = -1
Do Until Angl = 360
Angl = Angl + 1
Vx = Rayon * Cos((Angl / 180) * 3.141592) + Me.Width / 2
Vy = Rayon * Sin((Angl / 180) * 3.141592) + Me.Height / 2
Form1.PSet (Vx, Vy)
Loop
End Sub
et pil poil...
Pour faire une elipse suffit de changer un des deux rayons.