Create A Simple Stopwatch

I will show you how to create a simple stopwatch for visual basic 6 beginners. This stopwatch consists of 3 labels called Label1, Label2, Label3 and 2 buttons called btnSart and btnExit.


1. Create 3 labels named Label1, Label2 and Label3.
2. Change the text of these labels to the number 0.
3. change the text of btnstart toi start/stop
4. change the text of btnexit to exit
5. Finally, create a timer called tmrTime. Make sure you change the timer interval to 1000 to represent 1 second. This can be placed anywhere in the form as it does not interfere with the design/object.


Then we start our coding. As long as you have labelled everything correctly, you can simple just type all this in without going back and referring to each component.

We will first code the button Start/Stop. This code means if the timer doesnt start automatically, this starts it


Private Sub btnStart_Click()
If tmrTime.Enabled = False Then
tmrTime.Enabled = True
Else
tmrTime.Enabled = False
End If
End Sub
Next we will code the timer tmrTime. This basically means the timer will gradually add on 1 second and when it reaches 60 secs, the minute label will start. This is the same for the hour label.

Private Sub tmrtime_Tick()
    Label3.Text = Val(Label3.Text) + Val(1)
        If Label3.Text = 60 Then
            Label2.Text = Val(Label2.Text) + Val(1)
            Label3.Text = 0
        ElseIf Label2.Text = 60 Then
            Label1.Text = Val(Label1.Text) + Val(1)
            Label2.Text = 0
        End If
End If
End Sub

Now we will address the issue of the form. This means when the form loads, the timer will not start yet until you click the start/stop button.
1Private Sub Form_Load()
2tmrTime.Enabled = False
3End Sub


Finally we code the Exit button. This just exits the program.
1Private Sub btnExit_Click()
2Unload Me
3End Sub


Now the form should look similar to the attached image. You can also change the name of the form and give the hours, minutes and second a name label.

Thanks for viewing this tutorial.

Comments

Popular posts from this blog

what is shell in linux

PL/SQL - Triggers