salut
je viens de debuter vb
je veux programmer une montre vb avec le line
voici mon code
bon je calcul x2 et y2 en changeant l'angle puis ca va tourner mais rien ne se passe
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
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
Partager