Packets

[Lenny]

Just use this to wait when you receive 0x25.

Code Select Expand

Sub Pause(ByVal fSeconds As Single, Optional ByVal AllowEvents As Boolean = True)
   Dim fTimer As Single
   If AllowEvents Then
       fTimer = Timer
       Do While Timer - fTimer < fSeconds
           Sleep 100
           DoEvents
           If Timer < fTimer Then
             fTimer = fTimer - 86400
           End If
       Loop
   Else
       Sleep fSeconds * 1000
   End If
End Sub

This code gives an extra 300ms delay when used as opposed to Sleep.

can some1 this code to me?

[Lenny]

Nvm just found out that Timer was internal clock seconds from midnight......