Pause your Program and let Other Processes Execute w/o API

Category:

Miscellaneous

Type:

Snippets

Difficulty:

Beginning

Author:

Andrew Park

Version Compatibility: Visual Basic 6, Visual Basic 5

More information:

Use the procedure by calling the procedure DoDelay (x) where x is wait time in seconds. Thanks to pkwatz for adding bug fix whereby delay did not work if it was set to more than 60 seconds.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

''''''''''''''''''''''''''''''''''''''''''''''
' Delays the program and lets other process
' execute.  intDelay represents how long the
' program should pause in seconds.
''''''''''''''''''''''''''''''''''''''''''''''
Public Sub DoDelay(intDelay As Integer)

Dim intStartSecond As Integer
    Dim intCurrentSecond As Integer
    Dim intMinutes As Integer
    Dim intSeconds As Integer
    Dim bAbove As Boolean
    
    intStartSecond = Val(Left(Right(Time(), 5), 2))
    intMinutes = 0
    intSeconds = 0
    bAbove = True
    
      Do While (((intMinutes * 60) + intSeconds) < intDelay)
         intCurrentSecond = Val(Left(Right(Time(), 5), 2))
         If intCurrentSecond < intStartSecond Then
            intSeconds = (60 - intStartSecond) + intCurrentSecond
            
            If bAbove Then
                bAbove = False
            End If
         Else
            intSeconds = intCurrentSecond - intStartSecond
            If bAbove = False Then
                intMinutes = intMinutes + 1
                bAbove = True
            End If
         End If
            
         DoEvents
      Loop
      
End Sub