TimeDelay

TimeDelay fuction is good for when you want to time out a loop, in milliseconds.
Does'nt use a timer control, Uses simple api declare.

Original Author: Mitch Mooney

Inputs

Delay as Long, milliseconds

Assumptions

Create a module with the following api declare and function
Usage can be
Do
FuncThatRetunsTrue
MoreCode
EctEct
Loop until ( FuncThatRetunsTrue=True) or (TimeDelay(60000)=True)

Returns

TimeDelay as boolean, turns turn if time reached,else false

API Declarations

Declare Function GetTickCount& Lib "kernel32" ()

Code



Public Function TimeDelay(ByVal Delay As Long) As Boolean
Static Start As Long
Dim Elapsed As Long
If Start = 0 Then                            'if start is 0 then set a
  Start = GetTickCount                       'Static value to compare
End If
Elapsed = GetTickCount
If (Elapsed - Start) >= Delay Then
  TimeDelay = True
  Start = 0                            'Remember to reset start
Else: TimeDelay = False                 'once true so subsquent
End If                                'calls wont "spoof" on you!
End Function


About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 100 times

Categories

Visual Basic 6

Attachments

No attachments for this post

Comments

No comments have been added for this post.

You must be logged in to make a comment.