How to set up a loop

[Dude1]

How do I set up a loop using Gettickcount to do an animation for a certain amount of time, say for 2 seconds?

Thanks

[Zaei]

Simply take the number of frames in the animation, and divide that by the number of milliseconds that you want it to play (2000ms, in your case).

' in animation code
' lastAnimTick is the last time a frame was switched
' num_ms = 2000
' frames_in_anim = number of frames in animation
' nextFrame is the index of the next animation frame
If GetTickCount() > lastAnimTick + (num_ms / frames_in_anim) Then
   SwitchFrame(nextFrame)
   nextFrame = nextFrame + 1
End If

I am assuming a 2d animation here, by the way. For 3d, its a bit more complicated.

Z.

[Zaei]

The above was for playing one animation loop smoothly over a period of time. If you have an animation you want to play over and over again for a period of time, use this:

Dim sTime as Long
Dim PlayAnim as Boolean
Dim currFrame as Long
currFrame = 0
sTime = GetTickCount()
PlayAnim = True
While bRunning ' main loop
     If GetTickCount() > sTime + 2000 Then
          PlayAnim = False
     End If
     If PlayAnim Then
          SetFrame(currFrame Mod frames_in_anim)
          currFrame = currFrame + 1
     End If
Wend

Z.

[Janus]

Add 'Call ' onto the beginning of his SetFrame and SwitchFrame lines. Otherwise VB will get upset about the floating parentheses.

Been coding too much C++, eh zae?

[Zaei]

Never too much. VB is just strange =).

Z.