Tutorial - A Simple Stropwatch!

[travy92]

INTRO:

In this tutorial we'll be learning how to make a simple stopwatch.

-------------------------------------------------------------------

GUI (LAYOUT):

Here is my GUI:



------------------------------------------------------------------

WHAT YOU NEED:

2 Labels with:

#1 Label:
Name: Label1
Caption: SIMPLE STOPWATCH

#2 Label:
Name: Label2
Caption: 0.00

4 Command Buttons with:

#1 Command Button:
Name: Command1
Caption: START

#2 Command Button:
Name: Command2
Caption: STOP

#3 Command Button:
Name: Command3
Caption: RESET

#4 Command Button:
Name: Command4
Caption: QUIT

1 Timer with:
Name: Timer1
Caption: (None)
Interval: 1

----------------------------------------------------------------

CODE:

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Command3_Click()
Label2.Caption = "0.00"
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Timer1_Timer()
Label2.Caption = Format(Val(Label2.Caption) + 0.01, _
"fixed")
End Sub

The code explanation follows.

----------------------------------------------------------------

CODE EXPLANATION:

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Enables the timer (Makes it start).

----------------------------------------------------------------

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Disables the timer (Stops it).

----------------------------------------------------------------

Private Sub Command3_Click()
Label2.Caption = "0.00"
End Sub

This code tells VB that when Command3 (RESET) is clicked, change the caption of Label2 to 0.00.

----------------------------------------------------------------

Private Sub Command4_Click()
End
End Sub

Ends (Closes) the program.

----------------------------------------------------------------

Private Sub Timer1_Timer()
Label2.Caption = Format(Val(Label2.Caption) + 0.01, _
"fixed")
End Sub

This means make Label2's caption change by adding +0.01 to it every millisecond.

----------------------------------------------------------------

Thank you for reading this tutorial.

Thanks to Tcm9669/TheComputerMaster for the Screenshot program.

Made by me, Travy92.

SAMPLES:

[khaabas]

code timer not correct
appear message run time error 424
how i can fix this problem
thanx man

[TcM]

That is because you made the Label name as Label1, instead of Label2! Rename Label to Label2 and it should work

[duffbuffvick]

Thank you for posting. Amazing tutorial.

[wazofski]

Doesn't work, it only adds +0,01 once and then it does nothing, think you gotta remake your code.

[travy92]

Doesn't work, it only adds +0,01 once and then it does nothing, think you gotta remake your code.

Umm, i think you've used a TextBox.. Not a Label.

[wazofski]

No i did use a label

[obliviongoty]

I made some improvements to the code and renamed the objects, all credit to travy92 though. Now there is one button for start and stop and a minutes label too, the seconds reset to 0.00 when a minute ticks over. The reset button will also not be a problem if it is used while the counter is still going.

To make this work you will need to rename the objects to the appropriate names used in this code and add a Label called lblTimeMins

Private Sub cmdExit_Click()
    End
End Sub



Private Sub cmdReset_Click()
    If tmrStopWatch.Enabled = True Then
        tmrStopWatch.Enabled = False
        lblTimeMS.Caption = "0.00"
        lblTimeMins.Caption = "0"
    Else
        lblTimeMS.Caption = "0.00"
        lblTimeMins.Caption = "0"
    End If
End Sub



Private Sub cmdStopStart_Click()
    If tmrStopWatch.Enabled = False Then
        tmrStopWatch.Enabled = True
    Else
        tmrStopWatch.Enabled = False
    End If
End Sub



Private Sub Form_Load()
    tmrStopWatch.Enabled = False
End Sub



Private Sub tmrStopWatch_Timer()
    lblTimeMS.Caption = Format(Val(lblTimeMS.Caption) + 0.01, "fixed")
    If lblTimeMS.Caption = "60.00" Then
        lblTimeMins.Caption = lblTimeMins + 1
        lblTimeMS.Caption = "0.00"
    End If
End Sub

[TcM]

Added code tags.

Thanks for the improvement.

[ViRuSS]

nice, this is helpful
thank you