Discussion :

[Icamstudent]

Bonjour,

Je cherche à mettre en place un minuteur format "00:00:00" et ajouter à ce formulaire trois boutons : "Start", "Pause" et "Terminé".

Pour l'instant, je me suis que occupé de créer un minuteur qui fonctionne grâce au bouton Start. Il marche super bien cependant, je n'arrive pas encore à le mettre en pause. Du moins j'y arrive mais lorsque je reclique sur Start c'est comme si il n'y avait jamais eu de pause.
J'imagine que mon problème vient de la fonction Time qui prend en note l'heure actuelle et qui contourne mon TimerInterval = 0 sur le bouton Pause.
Je bloque un peu donc si vous avez des pistes ou des fonctions qui permettraient de mettre réellement le timer en pause, ce serai super.

Je vous remercie d'avance !

Ps : "Minuteur" est mon étiquette d'affichage

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
31
32
33
34
35
36
37
38
Option Compare Database
 
Public Loops As Integer
 
Private Sub Form_Timer()
 
 
Static StartTime As Date
 
Dim SecondsToCount As Integer
 
SecondsToCount = 2 'C'est Ici que l'on fixe la valeur du minuteur
 
If Loops = 0 Then StartTime = Time
 Heure = (SecondsToCount - DateDiff("s", StartTime, Time)) \ 3600
 Min = (SecondsToCount - DateDiff("s", StartTime, Time)) \ 60 Mod 60
 Sec = (SecondsToCount - DateDiff("s", StartTime, Time)) Mod 60
 Me.Minuteur.Caption = Format(Heure, "00") & ":" & Format(Min, "00") & ":" & Format(Sec, "00")
 Loops = Loops + 1
 
If Heure & Min & Sec = 0 Then
Me.Minuteur.ForeColor = vbRed
End If
 
 
End Sub
 
Private Sub Pause_Click()
 
Me.TimerInterval = 0
 
End Sub
 
Private Sub Start_Click()
 
Me.TimerInterval = 1000
 
End Sub

[User]

Bonjour,

Si on utilise simplement la variable Loops, dans le cas ou le timer est réglé sur 1 sec :

Peut-être essayer :

Code :

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

1
2
3
 Heure = (SecondsToCount - Loops) \ 3600
 Min = (SecondsToCount - Loops) \ 60 Mod 60
 Sec = (SecondsToCount - Loops) Mod 60

Si l'intervalle minuterie n'est pas d'une seconde, on peut utiliser :

Code :

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

Loops*(Me.TimerInterval/1000)

Cdlt,

[Icamstudent]

Rebonjour,

Oui c'est vrai que j'aurai pu directement passer par Loops ! Ça fonctionne, merci et bonne fin de journée !

[User]

Excellente soirée