create a chronometer on excel

Hello everybody,

firstly I am sorry for my bad english level. I hope you will understand my problem. I have a chronometer on excel that I would like to modify by adding features. I attach the file.
I would like to time with intermediate times with an alarm when a time (target value) is reached.
For example: I start the timer: click ... click 5 sec. Click .... Click 3 sec. Click .... click. 2 sec
ok 2 sec is my target value, I have an alarm.

Ideally, knowing that it is difficult to have exactly the same value, it would be necessary to integrate a% close to the target value to consider that the target value is reached.

Is it possible?

Thank you all

.
In the mTimer3 module :

Private Sub Chrono()
Dim T As Double
    T = TimeValue(UserForm3.LblTemps.Caption) - TimeSerial(0, 0, 1)
    UserForm3.LblTemps.Caption = Format(T, "hh:mm:ss")
    If T = 0 Then TimerOff

'///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
'As an alternative you could try making a call to a separate Sub with the sound command/s, instead of placing the code here.   
 
    If UserForm3.LblTemps.Caption = "00:59:55" Then '<--- set the time for sound here
        Beep  '<-- place your command here for sound
    End If
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

End Sub

What happens with the module3?

sorry I did not see the rest of the message...

Hmm, when I insert the code, nothing happens.I am really bad. How do I insert the code into the file?

.
Right click FEUIL1

Left click VIEW CODE

Double click mTimer3

Replace Private Sub Chrono() with :

Private Sub Chrono()
Dim T As Double
    T = TimeValue(UserForm3.LblTemps.Caption) - TimeSerial(0, 0, 1)
    UserForm3.LblTemps.Caption = Format(T, "hh:mm:ss")
    If T = 0 Then TimerOff

'///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
'As an alternative you could try making a call to a separate Sub with the sound command/s, instead of placing the code here.
 
    If UserForm3.LblTemps.Caption = "00:59:55" Then '<--- set the time for sound here
        Beep  '<-- place your command here for sound
    End If
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

End Sub

tks leelnich, my file probably contains a lot of errors

in fact, I think that my basic code is very incomplete to add independant intermediate times with a beep when one of these times is reached
In fact, I want to take the time of every turn of a wheel.
that's why I have to press every time a button to have the passage time
do you think it's possible?

Nobody want to help me?

Originally Posted by majib

Nobody want to help me?

Post #7 ??

Hi Logit,

yes I saw your post but I do not see any differences, probably I'm doing something wrong ....

Im' sorry

.
Open your Module: mTimer3.

Delete everything you have in the module and replace it with this :

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

Option Explicit

Dim TimerID As Long
Private Sub Chrono()
Dim T As Double
    T = TimeValue(UserForm3.LblTemps.Caption) - TimeSerial(0, 0, 1)
    UserForm3.LblTemps.Caption = Format(T, "hh:mm:ss")
    If T = 0 Then TimerOff

'///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
'As an alternative you could try making a call to a separate Sub with the sound command/s, instead of placing the code here.
 
    If UserForm3.LblTemps.Caption = "00:59:55" Then '<--- set the time for sound here
        Beep  '<-- place your command here for sound
    End If
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

End Sub
Sub TimerOff()
    KillTimer 0, TimerID
End Sub

Sub TimerOn(Interval As Long)
    TimerID = SetTimer(0, 0, Interval, AddressOf Chrono)
End Sub

Then run Chrono 3. At 59:55 you should hear a sound.


The attached has already been changed and works here.

YES great thank you logit, I hear the beep
but in fact I wanted the other way 0.1.2.3.4. in the chrono 1. I misspoke in my previous posts
I saw on the code where I can change the time value for the beep


promised after I do not bother you anymore

.

I wanted the other way 0.1.2.3.4. in the chrono 1. I misspoke in my previous posts

Sorry ... I don't understand.

ok, the code you gave me is for the timer3 but the timer3 is a countdown
i need the same thing for the timer1 with a beep at 1sec

although my English is not good, I prefer your forum; people are much more friendly and available.

.
Replace the macro code in mTimer with this:

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

Option Explicit

Dim TimerID As Long

Private Sub Chrono()
Dim T As Double, D As Long
    D = CLng(UserForm1.LblDix.Caption) + 1
    UserForm1.LblDix.Caption = Format(D, "00")
    If (D Mod 100) = 0 Then
        T = TimeValue(UserForm1.LblTemps.Caption) + TimeSerial(0, 0, 1)
        With UserForm1
            .LblTemps.Caption = Format(T, "hh:mm:ss")
            .LblDix.Caption = "00"
            
            '///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
            'As an alternative you could try making a call to a separate Sub with the sound command/s, instead of placing the code here.
             
                If UserForm1.LblTemps.Caption = "00:00:01" Then '<--- set the time for sound here
                    Beep  '<-- place your command here for sound
                End If
            '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
        
        End With
    End If
End Sub

Sub TimerOff()
    KillTimer 0, TimerID
End Sub

Sub TimerOn(Interval As Long)
    TimerID = SetTimer(0, 0, Interval, AddressOf Chrono)
End Sub

hummm,

there is not an error in the code?

.
Not here.

i become crazy with the timer lol

i dont heard the beep

.
Ok .. here it is as an .XLSM format.

logit,

tks a lot

it's 10:PM here now i can sleep easy lool

bye

.
WINON !!! Hey brother !

.
Have a good night.

Cheers.

.
No errors here.

Winon .... are you be disingenuous ?

.
Hmmm ........

.
KuTools is a secret weapon of the 'Shadow Government', that has global plans to rule the world.

Deleting it from your computer was the best thing you could do.