[VB]programmer une montre

Version imprimable

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

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

20/01/2006, 13h20
jmfmarques

et... excuses-moi : comment tout celà s'applique-t-il à ta "line" :?: (je ne la vois pas) ?

je changé le code

Code:

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()
Line1.X2 = d * Cos(a * n)
Line1.Y2 = d * Sin(a * n)
n = n + 1
End Sub

ca ne marche pas
merci

20/01/2006, 13h49
jmfmarques

Je remarque :

1) que tu définis a comme entier mais que tu lui attribues une valeur décimale !
2) que tu utilises l'événement Form_load sans savoir si tous les objets ont bien été chargés jusqu'au bout (utilises donc Form_activate)
3) que ta variable d n'est pas "transportable". Si tu veux qu'elle le soit, déclares la
4) Que tes X1, X2, etc... ne correspondent, seuls, à rien (t'aurais pas une petite idée ????????? .... par exemple Line1.X1, etc....

Maintenant : je ne vois pas les propriétés de ton timer : j'espère que la propriété enabled = True et que la propriété interval n'est pas = 0....

Tout le reste est question de mathématique....

Bonne chance.....

:) :) :)

salut
voila mon nouveau code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim a As Double
Dim n As Integer
Dim d As Double
Private Sub Form_Load()
'6°=0.10 radian
a = 0.1
d = Sqr((X2 - X1) * (X2 - X1) + (Y2 - Y1) * (Y2 - Y1))
n = 1
End Sub
 
Private Sub Timer1_Timer()
Line1.X2 = Val(d * Cos(a * (-n)))
Line1.Y2 = Val(d * Sin(a * (-²n)))
n = n + 1
End Sub

ca aussi ca marche pas
j'espere que t'a d'autre suggestion
et c'est quoi Form_activate
merci d'avance

20/01/2006, 14h58
jmfmarques

1)

Code:

d = Sqr((X2 - X1) * (X2 - X1) + (Y2 - Y1) * (Y2 - Y1))

veut dire quoi ??? Crois-tu que tes X1, X2, etc... vont être compris ???

2) Je ne connais toujours pas les propriétés de ton timer

3) Regarde dans l'aide en ligne ce qu'est l'événement Activate

4) Pour le reste, comme je te l'ai déjà dit, c'est une question de Maths et, bien que ce soit ma formation, je n'y répondrai pas... ce n'est pas un forum d'apprentissage des mathématiques...

8O

merci pour l'aide
1)j'ajoute line1.x1 ......
d c'est la longueure du line
2)timer: timer1.enabled =true
interval=1000
3)ce n'est pas une question d'appendre le math mais avoir un methode pour faire marcher une montre avec le line
maintenant j'essaye de faire tourner un seul line
voila ca tourne un peu mais ca martche pas
tu peux le tester
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Dim a As Double Dim n As Integer Dim d As Double Private Sub Form_Load() '6°=0.10 radian a = 0.1 d = Sqr((Line1.X2 - Line1.X1) * (Line1.X2 - Line1.X1) + (Line1.Y2 - Line1.Y1) * (Line1.Y2 - Line1.Y1)) n = 1 End Sub Private Sub Timer1_Timer() Line1.X2 = Val(d * Cos(a * (-n))) Line1.Y2 = Val(d * Sin(a * (-n))) n = n + 1 End Sub
et merci

20/01/2006, 17h04
jmfmarques

Ah! tu vois ? Quand on se penche un peu sur sa tâche et qu'on s'interroge un peu sur ce que l'on écrit "ça bouge un peu"....

Maintenant :

Tu m'as l'air d'avoir fait non une montre mais un pendule inverse qui, de surcroît, s'en va dans le sens inverse des aiguilles d'une montre !

C'est déjà çà

Pour le reste, comme je te l'ai déjà dit, c'est une question de mathématiques du niveau de seconde et je ne crois pas être là pour ça...

T'as fais un petit pas en développement. Il te faut faire également quelques pas en mathématiques. L'informatique n'a rien à voir là-dedans.
Si tu sais écrire celà sur papier en équation algébrique, la transposition en code sera toute simple. Dans le cas contraire, interroges plutôt un enseignant de maths en secondaire..

Voilà.

Salut et bonne chance.

:D
20/01/2006, 17h11
méphistopheles

bon, tu n'en est pas là, mais si tu veux avoir une montre précise, pense à utiliser l'horloge windows.

salut :wink:
21/01/2006, 16h13
kojima

salut
pour l'horloge tu parle de time ou quoi ?
merci