Help with loops.

[devonknows]

Hi, im making a loop that opens several pages into internet explorer, using the tabs, but to stop it from causing too much lagg i want to make the loop wait 200ms each time.

this is the loop im using, do i need to use a timer inside the loop or add something to the function it calls?

any help you can give ill most appreciative,

Kind Regards
Devon.

Do While Not getsd.EOF
            If sitesopened <= maxsites Then
                replacementtext = Replace(Text1.Text, " ", getsd!keywordsplitmarker)
                endcommand = getsd!endcommandstring
                ShellExecute hwnd, "open", getsd!WebSiteSearchAddress & replacementtext & endcommand, vbNullString, vbNullString, SW_SHOW
                getsd.MoveNext
                sitesopened = sitesopened + 1
                lastsearch = Text1.Text
            Else
                If maxsitereached = 1 Then
                    getsd.MoveNext
                Else
                    MsgBox "Your Current Settings do not allow for you to go above " & maxsites & " sites," & vbCrLf & "You can change this in the settings menu.", vbInformation, "Information!"
                    maxsitereached = 1
                    getsd.MoveNext
                End If
            End If
        Loop
 

[Killer42]

I'd suggest you create a Public sub called something like Pause, which you can reuse. In there, you can do a number of things to waste time. For example...

Public Sub Pause (ByVal Seconds As Double)
  Dim StartTime As Double, EndTime As Double
  StartTime = Timer
  EndTime = Timer + Seconds
  Do
    DoEvents
  Loop until ( Timer > EndTime ) Or ( Timer < StartTime )
End Sub

Note, the "< StartTime" is to prevent an "infinite" loop if you pass midnight. The value in Timer clocks over at midnight.

Don't forget the DoEvents in there, to let Windows get on with things and avoid locking everything up.

To pause for 200 ms, just code Pause 0.2

[Andrew Thackray]

This is a routine which uses the Windows API sleep function to sleep the program.

put the declare statement in the beginning of the module where you add the sleep subroutine

It doesn't tie up the CPU for other conncurrent applications while the thread is sleeping

call the sleep module as follows

 
    Public Declare Sub sapiSleep Lib "kernel32" Alias "Sleep" _
        (ByVal dwMilliseconds As Long)
 
Sub Sleep(lngMilliSec As Long)
    If lngMilliSec > 0 Then
        Call sapiSleep(lngMilliSec)
    End If
End Sub
 

[Andrew Thackray]

This is a routine which uses the Windows API sleep function to sleep the program.

put the declare statement in the beginning of the module where you add the sleep subroutine

It doesn't tie up the CPU for other conncurrent applications while the thread is sleeping

call the sleep module as follows

Sleep 200

sleeps the program for 200 milliseconds

 
    Public Declare Sub sapiSleep Lib "kernel32" Alias "Sleep" _
        (ByVal dwMilliseconds As Long)
 
Sub Sleep(lngMilliSec As Long)
    If lngMilliSec > 0 Then
        Call sapiSleep(lngMilliSec)
    End If
End Sub