Discussion :

[irimi54]

Bonjour,

Cela fait un moment que je cherche à droite à gauche pour créer un formulaire une procedure me permettant de chronometrer un combat (voir ci-dessous)



le chrono (en décroissance si possible) démarrerais avec un bouton "départ" et purrais se mettre en pause avec un bouton "pause" (sur l'image ci-dessus, le chronomètre est une image !!!!)

merci de me mettre sur la bonne piste

[irimi54]

Je viens de m'apercevoir que je n'avais pas mis le bout de code que j'ai essayer

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
 
Private Declare Function GetTickCount& Lib "kernel32" ()
 
Private Sub Bascule14_Click()
    Dim Min As Double, Sec As Double, i As Double
    Sec = 0
    Min = 0
    For i = 1 To 100000
        Sec = Sec + (i / 10000)
        If Sec Mod 60 = 0 Then
           Sec = 0
           Min = Min + 1
        End If
        Temps.Value = Right("00" & Min, 2) & ":" & Right("00" & Sec, 2)
        DoEvents
    Next
End Sub

cela fonctionne mais les données recueillies tournent à la vitesse grand V sur mon formulaire

merci d'avance

[User]

Bonjour,

Il faudrait je pense utiliser l'événement Timer du formulaire.

Quelqu'un a ouvert cette discussion sur le même sujet :

https://www.developpez.net/forums/d2...s-start-pause/

Cdlt,

[irimi54]

ok je regarde cela
je reviendrais te dire si cela marche

@+

[irimi54]

J'ai adapté le code à mon cas mais je ne comprends pas :
Quand je clique sur le bouton "Depart" j'ai une erreur car il ne lance pas la procedure depart_click() car elle ne lance rien

de plus je ne comprends pas la variable "Me.MinuterInterval"

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
 
Option Compare Database
 
Public Loops As Integer
 
Private Sub Form_Timer()
Static StartTime As Date
Dim SecondsToCount As Integer
SecondsToCount = 1 'C'est Ici que l'on fixe la valeur du minuteur
If Loops = 0 Then StartTime = Time
Min = (SecondsToCount - Loops) \ 60 Mod 60
Sec = (SecondsToCount - Loops) Mod 60
Me.Temps.Caption = Format(Min, "00") & ":" & Format(Sec, "00")
Loops = Loops + 1
 
End Sub
 
 
Private Sub Depart_Click()
Me.MinuterInterval = 1000
End Sub
 
 
Private Sub Pause_Click()
Me.MinuterInterval = 0
End Sub

[User]

de plus je ne comprends pas la variable "Me.MinuterInterval"

Justement tout est là, il faut définir l'intervalle minuterie dans les propriétés du formulaire.

Par exemple, si vous mettez 1000 sur la propriété "Intervalle Minuterie", la procédure va s'exécuter toutes les 1000 millisecondes soit toutes les secondes.

Pour l'instant elle est sur 0, donc c'est normal que rien ne s'exécute

Cdlt,

[irimi54]

Super cela marche comme voulu

Milles merci

[User]

Tant mieux, excellente soirée