salut
je viens de debuter vb
je veux programmer une montre vb avec le line
voici mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim a As Integer
Dim n As Integer
Private Sub Form_Load()
'6°=0.10 radian
a = 0.1
d = Sqr((X2 - X1) * (X2 - X1) + (Y2 - Y1) * (Y2 - Y1))
End Sub
 
Private Sub Timer1_Timer()
X2 = d * Cos(a * n)
Y2 = d * Sin(a * n)
n = n + 1
End Sub
bon je calcul x2 et y2 en changeant l'angle puis ca va tourner mais rien ne se passe
pour l'intevalle j'ai mis 1000
c'est claire le code
maisd ca ne marche pas
j'attends vos solutions ou d'autres methodes
merci d'avance