Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Visual Basic
Expertise: Beginner
Aug 6, 1997



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Accurate Time Delay

This routine allows you to put a fairly accurate time delay, very useful for I/O routines and nice, graphic-delayed drawing routines in your code:

Sub Delay (milliseconds As Integer)
' This Routine uses a Timer to trigger
' a fixed Time Delay.
Dim Temp As Integer
If (milliseconds > 0 and milliseconds _
< 32767) Then
        TimeExpired = False
        Main.Delay.Interval = milliseconds
        Main.Delay.Enabled = True
        While (TimeExpired = False)
                Temp = DoEvents()
End If
End Sub

Sub Delay_Timer ()
'       This Routine is the Timer Event. That is, when
'       the timer expires, it is disabled and the global 
'       variable TimeExpired = set to True.
        TimeExpired = True
        Delay.Enabled = False
End Sub

Gary Sinde
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date