[RESOLVED] Triple Stopwatch

Hey,

Okay I'm trying to make this (using VB6.0):

- A form with three labels, and a Start button beneath each label. There's also one Stop and one Exit button.
- All the three labels are stopwatches showing 00:00:00 (hh:mm:ss).
- When a Start button is pushed the stopwatch is started on the label above.
- Also, pressing a Start button will stop all other stopwatches. (If they are on, that is)

I already searched these forums for a similar topic, found a few but got no help from them. So if you have any quidelines for this project, I'd approciate your help!

I'm quite new to VB and haven't coded anything in a while.
And no, I don't need a ready code, but a few hints here and there would be nice.

Thanks, Rade

PS Got to go now but will be back later today :)

VB Code:

'Add One Label Called lblstopwatch
'add one timer
'add two commandbutton and name them as cmdstarttimer and cmdstoptimer
Dim Time2 As Date
 
Private Sub cmdstarttimer_Click()
    Timer1.Enabled = True
End Sub
 
Private Sub cmdstoptimer_Click()
    Timer1.Enabled = False
End Sub
 
Private Sub Form_Load()
    Timer1.Interval = 1000 'timer time is 1 second
    Timer1.Enabled = False
End Sub
 
Private Sub Timer1_Timer()
    lblstopwatch.Caption = Format$(Time2, "hh") & ":" & Format$(Time2, "nn") & ":" & Format$(Time2, "ss")
    Time2 = DateAdd("s", 1, Time2)
End Sub

danasegarane, Thank You! That was exactly what I needed :) Or yes I made modifications but anyways, thanks!

One thing still:
If I want to have a Reset button that would put the stopwatch back to 00:00:00, is there an easier way to do it than this:

VB Code:

Private Sub cmdReset_Click()
    Time2 = "00:00:00"
    lblstopwatch.Caption = "00:00:00"
End Sub

Because if I put it like this:

VB Code:

Private Sub cmdReset_Click()
    Time2 = "00:00:00"
    lblstopwatch.Caption = Time2
End Sub

...The label will show 0:00:00 instead of 00:00:00 for one second. Then it changes back.

Thank you again :)
Cheers, Rade

Dear Rade,
Here is the modifed version

VB Code:

'Add One Label Called lblstopwatch
'add one timer
'add two commandbutton and name them as cmdstarttimer and cmdstoptimer
Dim Time2 As Date
 
Private Sub cmdreset_Click()
    Timer1.Enabled = False 'stop the timer
    lblstopwatch.Caption = "00:00:00" 'reset the label
    Time2 = Date 'reset the date varriable
End Sub
 
Private Sub cmdstarttimer_Click()
    Timer1.Enabled = True 'start the timer
End Sub
 
Private Sub cmdstoptimer_Click()
    Timer1.Enabled = False 'stop the timer
End Sub
 
 
Private Sub Form_Load()
 Timer1.Enabled = False
 Timer1.Interval = 1000
 lblstopwatch.Caption = "00:00:00" 'reset the label
End Sub
 
Private Sub Timer1_Timer()
    lblstopwatch.Caption = Format$(Time2, "hh") & ":" & Format$(Time2, "nn") & ":" & Format$(Time2, "ss")
    Time2 = DateAdd("s", 1, Time2)
End Sub

Oh, thank you again :) I Really approciate this!

One last little tiny thing if you have time:
When I start the timer it lasts 2 seconds before is shows 00:00:01. Is there any way to fix this? It's not that important but... :)

Rade

replace this coding
in your From

VB Code:

Private Sub Timer1_Timer()
    Time2 = DateAdd("s", 1, Time2)
    lblstopwatch.Caption = Format$(Time2, "hh") & ":" & Format$(Time2, "nn") & ":" & Format$(Time2, "ss")
End Sub

Alright!
Thank You for the help :)

Rade