Posted 15 October 2009 - 10:24 AM
firebolt, on 25 Mar, 2009 - 11:14 PM, said:
Welcome DIC coders
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. Create a Start/Stop button called btnStart.
4. Create an Exit button called btnExit.
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.
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.
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.
Finally we code the Exit button. This just exits the program.
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.
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. Create a Start/Stop button called btnStart.
4. Create an Exit button called btnExit.
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.
1 | Private Sub btnStart_Click() |
2 | If tmrTime.Enabled = False Then |
3 | tmrTime.Enabled = True |
4 | Else |
5 | tmrTime.Enabled = False |
6 | End If |
7 | 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.
01 | Private Sub tmrTime_timer() |
02 | Label3.Caption = Val(Label3.Caption) + Val(1) |
03 | If Label3.Caption = 60 Then |
04 | Label2.Caption = Val(Label2.Caption) + Val(1) |
05 | Label3.Caption = 0 |
06 | ElseIf Label2.Caption = 60 Then |
07 | Label1.Caption = Val(Label1.Caption) + Val(1) |
08 | Label2.Caption = 0 |
09 | End If |
10 | 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.
1 | Private Sub Form_Load() |
2 | tmrTime.Enabled = False |
3 | End Sub |
Finally we code the Exit button. This just exits the program.
1 | Private Sub btnExit_Click() |
2 | Unload Me |
3 | End 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.
