Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


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

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()
        Wend
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.

 

 

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