Printable View
Hay i need to make an timer in Vb .I know now u guys will say there area lots of timer on this site.but the problem is i need timer to return me value in h:m:s just like normal watch.In short I need make an watch but I can control this watch make it start from 0:0:0
use a variable to keep track of the timer. like this :
dim l as long
set the timer interval to 1 second and in the timer function, put this.
l = l + 1
put a button to form and in the click event, set l = 0.
then l will always contains the time after u click the button, you can get the hour, min, and sec as below
second = l mod 60
minute = (l \ 60) mod 60
hour = l mod 3600
HTH
cksiow
http://vblib.virtualave.net - share our codes
You can use the gettickcount API.
Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () as Long
Dim lStart as long
private Sub Command1_Click()
lStart = GetTickCount()
Timer1.Enabled = true
End Sub
private Sub Timer1_Timer()
dim lNow as lomg, lElapsed as Long
dim ShowTime as string, ShowHrs as Long, ShowMin as Long, ShowSec as Long
lNow = GetTickCount
' get ti;e elapsed in seconds
lElapsed = (lNow - lStart) / 1000
' hours
ShowHrs = int(lElapesed / 3600)
lElapsed = lElapsed - (ShowHrs * 3600)
' minutes
ShowMin = int(lElapesed / 60)
lElapsed = lElapsed - (ShowMin * 60)
' seconds
ShowSec = lElapsed
Label1.Caption = ShowHrs & ":" & ShowMin & ":" & ShowSec
End Sub
Tom Cannaerts
[email protected]
Programming today is a race between software engineers striving to build bigger and better idot-proof programs, and the universe trying to produce bigger and better idiots. So far, the universe is winning -- Rich Cook
thank for it but when I start the timmer it start from 24:2:00 some thing like this I want it to be start from 0:0:00