Sleeping only 1 sub?

[SteveCRM]

This is what I have...if you look at it carefully, you will see, every time you push the button, the "animation" goes, but it slows the whole program, can I make it only slow down that sub?

    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'CHecks keypresses
    If KD(vbKeyLeft) = True Then
        Player.x = Player.x - 1
        Player2.x = Player.x
        Player.DC = picPlayer2.hDC
        If Player.x < 0 Then: Player.x = 0
    End If
    If KU(vbKeyLeft) = True Then
        Call Skate(False)
    End If

Private Sub Skate(ifSkate As Boolean)
    'makes the guy skate
    
    Do Until ifSkate = False
        If SkateVar = 1 Then Player.DC = picPlayer.hDC
        If SkateVar = -1 Then Player.DC = picPlayer2.hDC
        Sleep (100)
        SkateVar = Val(SkateVar) * (-1)
        ifSkate = False
    Loop
End Sub

thanks all

[kedaman]

That depends what you mean with slow down, sleep function pauses the app completely, you can't do something like "just pause that sub" because vb doesn't support multithreading. On the other hand i think you can have a loop waiting for the specific amount of time while allowing other events to fire, if that's what you want.

[SteveCRM]

How would I have a loop wait for a certain amount of time? Just set a for loop so a high number?

[kedaman]

Actually, I think what you need is a sub that loops until a specified amount t time in milliseconds have passed:

Declare Function GetTickCount Lib "kernel32" () As Long

Sub Dealy(t As Long): Dim b As Long
    b = t + GetTickCount
    Do Until t < GetTickCount
        DoEvents
    Loop
End Function

[SteveCRM]

Sorry, my fault, I didn't explain myself enough. When I put your code in everything works fine, the player moves the right speed, but my animation doesn't...it goes too fast.

Would there be a way to make the animation in that function so after a certain amount of time it changes the animation?

[Edited by SteveCRM on 10-21-2000 at 11:43 PM]

DoEvents, Steve.
And if it still moves to fast, place a sleep event before the DoEvents.

    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'CHecks keypresses
    If KD(vbKeyLeft) = True Then
        Player.x = Player.x - 1
        Player2.x = Player.x
        Player.DC = picPlayer2.hDC
        If Player.x < 0 Then: Player.x = 0
    End If
    If KU(vbKeyLeft) = True Then
        Call Skate(False)
    End If

Private Sub Skate(ifSkate As Boolean)
    'makes the guy skate
    
    Do Until ifSkate = False
        If SkateVar = 1 Then Player.DC = picPlayer.hDC
        If SkateVar = -1 Then Player.DC = picPlayer2.hDC
        Sleep  (100 )
        SkateVar = Val(SkateVar) * (-1)
        ifSkate = False
    DoEvents
    Loop
End Sub

[SteveCRM]

But the problem with having the sleep is that it makes it so the player moves forward slower...I hope you understand what I mean, If you want me too, I can upload the form and module.

I think I understand. You are saying that without a little timer/sleep, the animation is to fast. But with it, the player moves to damn slow. <- that what you mean?

I see you have 100, did you try changing it? To 50 or something?

[Edited by Matthew Gates on 10-22-2000 at 12:15 AM]

[SteveCRM]

thats it, but when its turned down, the animation goes too fast This is frustrating...but thanks for all the hlep you guys are giving me!

[kedaman]

Hey folks! Don't use sleep when you already have a loop with doevents, it's like having two cakes on one birthday party or something... At least sleep is not the right one.

Private Sub Skate(ifSkate As Boolean)
    'makes the guy skate
    
    Do Until ifSkate = False
        If SkateVar = 1 Then Player.DC = picPlayer.hDC
        If SkateVar = -1 Then Player.DC = picPlayer2.hDC
        Dealy  100
        SkateVar = Val(SkateVar) * (-1)
        ifSkate = False
    Loop
End Sub

What you do is replace the sleep call with Dealy instead, now if it goes too slow or too fast you just change the amount of milliseconds to pass on Dealy.