OnTimer keeping correct time?

Is it slow?

Thursday, August 9, 2007 by sViz | Discussion: DesktopX

object.settimer 1,10 should give me a 10 milisecond timer; one-hundredth of a second.

So if I counted by 10 every time, ontimer...


Sub Object_OnTimer1
milisec = milisec + 10
End Sub


...milisec should reach 1000 every second, on the second.


For a simple stopwatch I used the following code in a text object:

Code: vbscript
  1. Sub Object_OnTimer1
  2. If milisec > 999 Then
  3. milisec = 0
  4. sec = sec + 1
  5. If sec > 59 Then
  6. min = min + 1
  7. sec = 0
  8. End If
  9. If min > 59 Then
  10. hr = hr + 1
  11. min = 0
  12. End If
  13. If hr = 100 Then object.KillTimer 1
  15. Else
  16. milisec = milisec + 10
  17. End If
  18. txt = "0"
  19. If len(milisec) = 1 Then
  20. milisec = txt & txt & milisec
  21. Elseif len(milisec) = 2 then
  22. milisec = txt & milisec
  23. End if
  24. If len(sec) = 1 Then sec = txt & sec
  25. If len(min) = 1 Then min = txt & min
  26. If len(hr) = 1 Then hr = txt & hr
  27. Object.text = hr & ":" & min & ":" & sec & ":" & milisec
  28. End Sub


I let it run side by side with my system clock and my stopwatch is slower than the system time. It takes roughly TWO seconds for milisec to count to 1000. Am I missing something painfully obvious here?
2 Reply 11 Referrals
SirSmiley
Reply #1 Thursday, August 9, 2007 10:45 PM
Ah, fun I know what you mean. You have to either somehow sync it to your system clock but, even then there will be a slight delay.

I did something like this for practice some time ago and the only work-a-round I figure was two timers. In the first timer you'd put some type of IF STATEMENT to check against the rollover of the system clock.

Code: vbscript
  1. Object.OnTimer 1,1
  3. Sub Timer1
  4. If seconds=0 Then
  5. Object.OnTimer 2,10
  6. End If
  7. End Sub

sViz
Reply #2 Saturday, August 11, 2007 4:33 AM
Thanks, SirS. I went with 2 timers. Since the 1-second timer keeps better time than the millisecond timer, I have the millisecond timer track the milliseconds and the 1-second timer keep track of everything else. Works better now.  



Code: vbscript
  1. Dim milisec, sec, min, hr
  3. 'Called when the script is executed
  4. Sub Object_OnScriptEnter
  5. milisec = 0
  6. sec = 0
  7. min = 0
  8. hr = 0
  9. object.SetTimer 1,1000
  10. object.SetTimer 2,10
  11. End Sub
  13. Sub Object_Ontimer1
  14. milisec = 0
  15. sec = sec + 1
  16. If sec > 59 Then
  17. min = min + 1
  18. sec = 0
  19. End If
  20. If min > 59 Then
  21. hr = hr + 1
  22. min = 0
  23. End If
  24. If hr = 100 Then object.KillTimer 1
  25. End Sub
  27. Sub Object_OnTimer2
  28. If milisec > 999 Then
  29. milisec = 0
  30. Else
  31. milisec = milisec + 10
  32. End If
  34. txt = "0"
  35. If len(milisec) = 1 Then
  36. milisec = txt & txt & milisec
  37. ElseIf len(milisec) = 2 Then
  38. milisec = txt & milisec
  39. End If
  40. If len(sec) = 1 Then sec = txt & sec
  41. If len(min) = 1 Then min = txt & min
  42. If len(hr) = 1 Then hr = txt & hr
  43. Object.text = hr & ":" & min & ":" & sec & ":" & milisec
  44. End Sub

Please login to comment and/or vote for this skin.

Welcome Guest! Please take the time to register with us.
There are many great features available to you once you register, including:

  • Richer content, access to many features that are disabled for guests like commenting on the forums and downloading skins.
  • Access to a great community, with a massive database of many, many areas of interest.
  • Access to contests & subscription offers like exclusive emails.
  • It's simple, and FREE!
Login

Home | About | Privacy | Upload Guidelines | Terms of Service | Help
Copyright © Stardock Corporation. All Rights Reserved.


web-wc01