Any suggestions about the accuracy of timers in VB? (using VB2)

In theory the following code should print a message every 60 secs.
In practice it prints a message once every 61-62 secs if I do
absolutely nothing else; if I keep Windows quite busy doing other
stuff
(nothing very compute-bound; just tapping away at an editor, or
checking
through fles via file manager) I get messages ever 65-90 seconds.

Does anyone know any way to get more accurate timings
(like maybe +-5 secs) out of VB?

Let me guess: use a timer, but when it times out sample system time
with Time or Time$.  Do unpleasant messing to subtract starting time
from
latest value returned by Time.

-----------------------------

Sub Form_Load ()

rem m%, n% are Dimmed for form

  m% = 0
  n% = 0

  Show
  form1.Print Time$

End Sub
___________________________________

Sub Timer1_Timer ()

rem Timer1 has Interval of 1000

 n% = n% + 1
 If n% = 59 Then

  n% = 0
  form1.Print Time$

  m% = m% + 1
  If m% = 6 Then End

 End If

End Sub

Yours,

Alan Campbell
Brighton, UK

<<<<<<<<<<<<<<<<<<<<<<     >>>>>>>>>>>>>>>>>>>

Don't know if this is exactly what you want but have a look at the 'Timer'
FUNCTION.
Also to calculate the difference between two times try the 'DateDiff' function.

1. Declare the following function somewhere
        Declare Function GetCurrentTime& Lib "User"

2. In your form load event try this

Dim nCounter as long

nCounter = GetCurrentTime()

        :
        :
        :
        :       any startup code you may have
        :      
        :
Do while doevents()
        if GetCurrentTime() > nCurrentTime + 60000 then
                nCurrentTime = getCurrentTime()
                : Do your thing here
        Endif
Loop

The Do loop will not interfere with the normal operation of your form, but is a great deal more
accurate than a timer control.

Have fun,

Peter  

but is a great deal more

If you want Windows to respond, not just your App, include a DoEvents
statement in the loop.

Jens
--
  -------------------------------------------------------------------------
 |  Jens Balchen jr.         |  I came, I saw, I answered.                 |
 |  Innocent Software        |                                             |
 |  P.O. Box 6052            |    - Julius Cesar                           |
 |  N-4638 Kristiansand      |                                             |
  -------------------------------------------------------------------------