-
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?
Code:
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 :D
-
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.
-
How would I have a loop wait for a certain amount of time? Just set a for loop so a high number?
-
Actually, I think what you need is a sub that loops until a specified amount t time in milliseconds have passed:
Code:
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
-
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.
Code:
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
-
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]
-
thats it, but when its turned down, the animation goes too fast :mad: This is frustrating...but thanks for all the hlep you guys are giving me! :D
-
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.
Code:
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.
