Discussion :

[sylvain62100]

Voici le code du 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
17
18
19
Option Explicit
Public Lheure As Date
Public Dheure As Date
 
Sub ArretTimer()
On Error Resume Next
Application.OnTime Lheure, "ExecutionTimer", , False
End Sub
 
Sub ExecutionTimer()
Attente.Label1.Caption = Format(Dheure - Now(), "hh:mm:ss")
If Dheure - Now() > 0 Then
Lheure = Now() + TimeSerial(0, 0, 1)
Application.OnTime Lheure, "ExecutionTimer"
Else
ArretTimer
Attente.Label1.Caption = "stop !"
End If
End Sub

mais il ne repart pas à 0 et ne s'arrête pas après pression sur les boutons RAZ & Fin. De même, il n'attend pas la pression du bouton début pour commencer.

Merci de votre aide.

[Menhir]

Je ne vois pas comment ton compteur peut marcher dans la mesure où ta variable Dheure n'est actualisée nulle part.

Avec le code suivant, l'arrêt devrait marcher.

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Public Lheure As Date
Public Dheure As Date
Public Marche as Integer
 
Sub ArretTimer()
   Marche = 0
   Attente.Label1.Caption = "Arret !"
End Sub
 
Sub ExecutionTimer()
    Marche = 1
    Call AfficheTimer()
End Sub
 
Sub AfficheTimer()
 
   If Marche = 0 Then Exit Sub
 
   Attente.Label1.Caption = Format(Dheure - Now(), "hh:mm:ss")
 
   If Dheure - Now() > 0 Then
      Lheure = Now() + TimeSerial(0, 0, 1)
      Application.OnTime Lheure, "ExecutionTimer"
 
   Else
      ArretTimer
      Attente.Label1.Caption = "stop !"
   End If
 
End Sub