arret bip quand chrono reset

[phil69]

Bonjour à toutes et tous

Sur le forum, j'ai recuperé un chrono qui correspond à mes besoin, un signal sonor bip à 30s du temps final
si je laisse le chrono aller jusqu'au temps selectionné le bip s'arret bien mais si je stop le chono avant la fin du bip celui-ci repart ou il s'est arreté à la remis en marche du chrono . qu'elle modif à apporter dans le code

Const SIGNAL As Long = 30 'délai en secondes du beep avant la fin du chrono ///

'gestion chrono
Private Declare Function SetTimer Lib "User32" _
(ByVal hWnd As Long, ByVal nIDEvent As Long, _
ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long

Private Declare Function KillTimer Lib "User32" _
(ByVal hWnd As Long, ByVal nIDEvent As Long) As Long

Public Compteur As Long '///
Public LimiteStop As Long '###

Dim TimerID As Long

Sub TestChrono()
'lancement Userform
UserForm1.Show
End Sub

Sub TimerOff()
'arret du chrono
KillTimer 0, TimerID
End Sub

Sub TimerOn(Interval As Long)
' en relation avec le bouton start du chrono
TimerID = SetTimer(0, 0, Interval, AddressOf Chrono)
End Sub

Sub Chrono()
Dim H, DS
DS = CByte(UserForm1.Label2.Caption) + 1
UserForm1.Label2.Caption = CStr(DS)
If (DS Mod 10) = 0 Then
Compteur = Compteur + 1 '///
If Compteur + SIGNAL >= CLng(UserForm1.Label7) Then Beep '###

H = TimeValue(UserForm1.Label1.Caption) + TimeSerial(0, 0, 1)
UserForm1.Label1.Caption = Format(H, "hh:nn:ss")
UserForm1.Label2.Caption = "0"
If Compteur = CLng(UserForm1.Label7) Then '###
Compteur = 0 '///
Call TimerOff '///
End If '///

End If
End Sub
merci
phil69

 

[gilbert_RGI]

Re : arret bip quand chrono reset

bonjour

sur le bouton reset réinitialiser le compteur

Private Sub CommandButton3_Click()
'bouton reset
    EnMarche = False
    TimerOff
    Label1.Caption = "00:00:00"
    Label2.Caption = "0"
    Label3.Caption = "00:00:00"
    Label4.Caption = "0"
    TimerOff
    Compteur = 0
     Range("L2:M28").Select
    Selection.ClearContents
    Range("L2").Select
End Sub

😎

 

[phil69]

Re : arret bip quand chrono reset

RE bonjour

Merci pour la reponse et de s'interresser à mon probleme mais le code reset je l'ai dans UF. c'est le bip que je voudrai réignisialiser quand je fais reset. quand je fai stop le bip s'arrete bien mais il repart quant apres avoir fait un reset
merci
phil69

 

[gilbert_RGI]

Re : arret bip quand chrono reset

c'est bien ce que j'ai dit
réinitialiser le compteur quand reset a été appuyé
CommandButton3_Click c'est le bouton reset
mettre compteur = 0 dans le code
comme dans le code ci dessus 😎

 

[phil69]

Re : arret bip quand chrono reset

Re

je crois que je vais prendre rendez vous chez mon ophtalmo
merci
c'est NIKEL!!!!!!!!!!!!!
phil69