OnTimer keeping correct time?

Is it slow?

from WinCustomize Forums
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
  2. Sub Object_OnTimer1
  3. If milisec > 999 Then
  4. milisec = 0
  5. sec = sec + 1
  6. If sec > 59 Then
  7. min = min + 1
  8. sec = 0
  9. End If
  10. If min > 59 Then
  11. hr = hr + 1
  12. min = 0
  13. End If
  14. If hr = 100 Then object.KillTimer 1
  16. Else
  17. milisec = milisec + 10
  18. End If
  19. txt = "0"
  20. If len(milisec) = 1 Then
  21. milisec = txt & txt & milisec
  22. Elseif len(milisec) = 2 then
  23. milisec = txt & milisec
  24. End if
  25. If len(sec) = 1 Then sec = txt & sec
  26. If len(min) = 1 Then min = txt & min
  27. If len(hr) = 1 Then hr = txt & hr
  28. Object.text = hr & ":" & min & ":" & sec & ":" & milisec
  29. 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?
desktopx
1,855 views 2 replies
Reply #1 from WinCustomize Forums Top
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
  2. Object.OnTimer 1,1
  4. Sub Timer1
  5. If seconds=0 Then
  6. Object.OnTimer 2,10
  7. End If
  8. End Sub
Reply #2 from WinCustomize Forums Top
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
  2. Dim milisec, sec, min, hr
  4. 'Called when the script is executed
  5. Sub Object_OnScriptEnter
  6. milisec = 0
  7. sec = 0
  8. min = 0
  9. hr = 0
  10. object.SetTimer 1,1000
  11. object.SetTimer 2,10
  12. End Sub
  14. Sub Object_Ontimer1
  15. milisec = 0
  16. sec = sec + 1
  17. If sec > 59 Then
  18. min = min + 1
  19. sec = 0
  20. End If
  21. If min > 59 Then
  22. hr = hr + 1
  23. min = 0
  24. End If
  25. If hr = 100 Then object.KillTimer 1
  26. End Sub
  28. Sub Object_OnTimer2
  29. If milisec > 999 Then
  30. milisec = 0
  31. Else
  32. milisec = milisec + 10
  33. End If
  35. txt = "0"
  36. If len(milisec) = 1 Then
  37. milisec = txt & txt & milisec
  38. ElseIf len(milisec) = 2 Then
  39. milisec = txt & milisec
  40. End If
  41. If len(sec) = 1 Then sec = txt & sec
  42. If len(min) = 1 Then min = txt & min
  43. If len(hr) = 1 Then hr = txt & hr
  44. Object.text = hr & ":" & min & ":" & sec & ":" & milisec
  45. End Sub
Offworld Trading Company