A voir également:
- Tracer un cercle sur vb(urgent)
- Tracer un telephone - Guide
- Langage vb - Télécharger - Langages
- Comment tracer un tableau sur word - Guide
- Comment enlever le cercle bleu sur whatsapp - Guide
- Comment tracer une courbe sur excel - Guide
3 réponses
merci le père,
j'ai essayé avec la méthode circle, mais ça merche pas, j'ais fais un petit code, mais qu on j'execute ça m affiche rien, aprés j'ai essayé Pset pour dessiner point par point,
voilà mon petit code
Private Sub Form_Load()
Dim x0 As Single
Dim y0 As Single
Dim X, Y As Single
Dim R As Integer
Dim t As Double
x0 = 2
y0 = 5
R = 10
For t = 0 To 6.283 Step 0.314
X = x0 + (R * Cos(t))
Y = y0 + (R * Sin(t))
Form1.PSet (X, Y), vbBlack
Next t
End Sub
nb: je suis debutante en vb j'espere que j'ais pas fais des betises sur mn code :s
j'ai essayé avec la méthode circle, mais ça merche pas, j'ais fais un petit code, mais qu on j'execute ça m affiche rien, aprés j'ai essayé Pset pour dessiner point par point,
voilà mon petit code
Private Sub Form_Load()
Dim x0 As Single
Dim y0 As Single
Dim X, Y As Single
Dim R As Integer
Dim t As Double
x0 = 2
y0 = 5
R = 10
For t = 0 To 6.283 Step 0.314
X = x0 + (R * Cos(t))
Y = y0 + (R * Sin(t))
Form1.PSet (X, Y), vbBlack
Next t
End Sub
nb: je suis debutante en vb j'espere que j'ais pas fais des betises sur mn code :s
Attention, l'unité des dessin n'est pas le pixel par défaut, mais le twip qui est ridiculement petit. Le cercle que tu essayes de dessiner va donner en fait un point coincé en haut à gauche de la feuille.
Lis la doc VB sur les unités, et réessaye avec au moins X0=Y0=R=500 pour espérer voir quelque chose
Lis la doc VB sur les unités, et réessaye avec au moins X0=Y0=R=500 pour espérer voir quelque chose
