Stopwatch Help - ASP Free

ASP Free Forums Sponsor:

January 29th, 2005, 09:50 AM

Journeyman

Registered User

Join Date: Nov 2004

Posts: 20

Time spent in forums: 2 h 19 m 18 sec
Reputation Power: 0

Stopwatch Help

Good day all,
I’m writing a stopwatch program. As per code below.

Private Sub cmdStartTimer_Click()
tmrTime.Enabled = True
End Sub

Private Sub cmdStpTimer_Click()
tmrTime.Enabled = False
End Sub

Private Sub Form_Load()
tmrTime.Enabled = False
lblTime.Caption = Format(Time, "0:00:00")
End Sub

Private Sub tmrTime_Timer()
If lblTime.Caption <> Format(Now, "h:mm:ss") Then
lblTime.Caption = Format(Now, "h:mm:ss")
End If
End Sub

My problem is, when I press the start button the stopwatch starts with the current system time. How do I get the counter to count up from 0:00:00

January 29th, 2005, 04:29 PM

Doug G

Grumpier Old Moderator

ASP Free God 11th Plane (10000 - 10499 posts)

Join Date: Sep 2003

Posts: 10,143

Time spent in forums: 3 Weeks 4 Days 23 h 19 m 36 sec
Reputation Power: 181

Don't use Now(), create some other date variable and preset it to 0:00

__________________
======
Doug G
======
I didn't attend the funeral, but I sent a nice letter saying I approved of it. --Mark Twain

January 29th, 2005, 08:27 PM

Journeyman

Registered User

Join Date: Nov 2004

Posts: 20

Time spent in forums: 2 h 19 m 18 sec
Reputation Power: 0

Thanks Doug

January 29th, 2005, 09:16 PM

Doug G

Grumpier Old Moderator

Join Date: Sep 2003

Posts: 10,143

Time spent in forums: 3 Weeks 4 Days 23 h 19 m 36 sec
Reputation Power: 181

You can also just let your timer events figure the time, the timer is quite accurate.

For example, if your interval was for 1 second, you could just increment a seconds counter on a timer event.

January 30th, 2005, 01:12 AM

Journeyman

Registered User

Join Date: Nov 2004

Posts: 20

Time spent in forums: 2 h 19 m 18 sec
Reputation Power: 0

Quote:

Originally Posted by Doug G

You can also just let your timer events figure the time, the timer is quite accurate.

For example, if your interval was for 1 second, you could just increment a seconds counter on a timer event.

Here is what I did and it works great, sometimes when it's simple it's hard.

I added two labels to capture the start time and stop time, they weren't there in the previous code but does not affect the stop watch function.

Code:

 Dim MyTime, StTime, CurTime As Date
 Option Explicit
 
 Private Sub cmdStartTimer_Click()
     tmrTime.Enabled = True
     Label1.Caption = Time
     StTime = Now
 End Sub
 
 Private Sub cmdStpTimer_Click()
     tmrTime.Enabled = False
     Label2.Caption = Time
 End Sub
 
 Private Sub Form_Load()
     tmrTime.Enabled = False
     lblTime.Caption = Format(Time, "0:00:00") 'Note Now does not like "0:0:0"
 End Sub
 
 Private Sub tmrTime_Timer()
     CurTime = Now
     MyTime = CurTime - StTime
    If lblTime.Caption <> Format(MyTime, "h:mm:ss") Then
       lblTime.Caption = Format(MyTime, "h:mm:ss")
    End If
 End Sub

Last edited by Shadow Wizard : January 30th, 2005 at 05:21 AM. Reason: added code tags

Viewing: ASP Free Forums > Programming > Visual Basic Programming > Stopwatch Help

« Previous Thread | Next Thread »

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump