Best way to slow down a for loop

[Damien]

Hi All.
I'm looking for the best way to slow down a loop.
Is using a timer the best way to go.
Seems like a lot of overhead. I have done non productive
equations to slow things down also not good as it will
very a lot depending on the speed of the processor the
app is run on.

Any help greatfully accepted.

[makai]

this works best for me - Spd is like 7000

Private Sub pause()
    Dim i As Long
    
    For i = 1 To Spd
        DoEvents
    Next
End Sub

there is an example at:
http://pages.about.com/vbmakai/sv1.htm

[Damien]

Thanks Makai for the fast reply.
Used it seems to work fine.
Damien :-)

[kedaman]

Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long

Private Sub pause(milliseconds as long)
    Dim i As Long
    i=Gettickcount+milliseconds
    Do while Gettickcount<i
        DoEvents
    loop
End Sub

This ones a bit more adcanced, you can put the exact amount of millisecond for it to pause

[Damien]

Thanks Kedaman
I looked up GetTickCount and found that it rolls over to
zero if the system has been running for 49.7 days(obviously
not running a MicroSoft OS). Still stranger things have
happened. The pause routine could go into an infinite loop
if it was running when a system rolled over.
May be worth testing if count has just rolled over.

Once again thankyou for the advice
Damien

Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Sub pause(milliseconds As Long)
    Dim i As Long
    i = GetTickCount + milliseconds
    Do While GetTickCount < i
        If GetTickCount < 3000 Then Exit Do 'TickCount loops over to zero every 49.7 days
        DoEvents
    Loop
End Sub

[Edited by Damien on 10-16-2000 at 11:58 PM]

[kedaman]

Yeah, not only if you have running your system for that long, but also you can pause like some years if you want, hehehe

Private Declare Function GetTickCount Lib "kernel32" () As Long

Sub pause(milliseconds As Currency)
    Dim i As Currency, j As Currency, k As Currency
    j = GetTickCount
    i = j + milliseconds
    Do While (j + k) < i
        If GetTickCount < j Then k = k + j
        j = GetTickCount
        DoEvents
    Loop
End Sub