Accurate Time Delay

Accurate Time Delay

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

 Sub Delay (milliseconds As Integer)' This Routine uses a Timer to trigger' a fixed Time Delay.'======================================Dim Temp As IntegerIf (milliseconds > 0 and milliseconds _< 32767) Then        TimeExpired = False        Main.Delay.Interval = milliseconds        Main.Delay.Enabled = True        While (TimeExpired = False)                Temp = DoEvents()        WendEnd IfEnd SubSub 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 = FalseEnd Sub
See also  How to Avoid Money Transfer Scams  

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist