Discussion :

[sandball22]

J'aimerais utiliser un timer pour pouvoir faire des actions.
En effet, une fois que le décompte est fini, je passe à l'action suivante.
Je ne vois pas trop comment utiliser le composant timer pour ça.

Pouvez-vous m'aideR?

Merci

[sandball22]

en faite, je voudrais que lorsque je clique sur un bouton , mon timer compte toutes les secondes par exemple jusqu'à une durée N (défini par l'ulitisateur).
Toutes les secondes, j'ai un compteur qui décrémente.

Par exemple, N=10.
compteur = 3

toutes les secondes,
Compteur = Compteur -1

comment peux - t'on faire cela?

[DAUDET78]

je passe à l'action suivante.

C'est quoi une action pour toi ?

Tu peux être plus précis ? C'est un changement de couleur sur un objet? un lancement d'une feuille? Un clignotement de quelque chose ?

[sandball22]

une action, c'est un appel de fonction qui fera un traitement.


Par exemple, N=10000.
compteur = 3

toutes les secondes,
Compteur = Compteur -1
si le compteur =0 alors on décremente un aute compteur....

est ce posible de le faire?

je viens de voir comment on activait un timer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
'activation du compteur
timer2.Interval = 1
timer1.enabled = true
 
 
Private Sub Timer1_Timer()
 
compteur1 = compteur1 - 1
 
If compteur1 = 0 Then
    MsgBox ("temps 1 fini!!")
''    compteur2 = compteur2 - 1
 
End If
End Sub

comment faire pour activer le decompte du 2ème compteur que lorsque le 1er compteut a fini de décompter?

[petit rabot]

comment faire pour activer le decompte du 2ème compteur que lorsque le 1er compteut a fini de décompter?

A la fin de ton Sub Timer1_Timer () tu mets:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Timer1.enable = false

Puis à l'affichage de ton action suivante du mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Timer2.enable=true

[sandball22]

c'est un compteur que je veux décompter non pas ajouter un nouveau timer.

je veux juste utiliser un seul timer.


toutes les secondes,
Compteur = Compteur -1
si le compteur =0 alors on décremente un aute compteur....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
'activation du compteur
timer2.Interval = 1
timer1.enabled = true
 
 
Private Sub Timer1_Timer()
 
compteur1 = compteur1 - 1
 
If compteur1 = 0 Then
    MsgBox ("temps 1 fini!!")
'    compteur2 = compteur2 - 1
 ' on décremente le compteur 2
End If
End Sub

[ProgElecT]

c'est un compteur que je veux décompter non pas ajouter un nouveau timer.

je veux juste utiliser un seul timer.


toutes les secondes,
Compteur = Compteur -1
si le compteur =0 alors on décremente un aute compteur....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'activation du compteur
timer2.Interval = 1
timer1.enabled = true
 
 
Private Sub Timer1_Timer()
 
compteur1 = compteur1 - 1
 
If compteur1 = 0 Then
    MsgBox ("temps 1 fini!!")
'    compteur2 = compteur2 - 1
 ' on décremente le compteur 2
End If
End Sub

Si Timer1.Interval = 1000, 1000 = 1Sc puisque Interval pour l'objet Timer est en Msc.
Après la condition If compteur1 = 0, compteur1 ne doit il pas être réinitialisé autre que zéro ?
A quoi sert Timer2 dans le dernier code ?