[ c0de @ 05.04.2009. 13:10 ] @
Pravim neku animaciju semafor,automobil i raskrsnica.

Napravio sam vremenski interval koji ide od 0 do 30 kada dodje do trideset vrati ponovo na nulu.
E sad na osnovu tog intervala sam dao da kada je zeleno svjetlo npr od 22-30 sekunde onda treba da automobil krene.
Automobil po formi se krece sljedecom funkcijom

forma.automobil.move 324,100 pa sledeca sekunda
forma.automobil.move 324,120
forma.automobil.move 324,140
.
.
.
itd



e sad ako automobil ubacim u petlju for on tako brzo proleti da ljudsko oko ne moze da vidi a sekundi nemam dovoljno da ga svake sekunde micem za 1+ TOP

Kako da ubacim stotinke kao vremenski interval pa da ga svake stotinke micem za MOVE TOP+1
Ako postoji neki drugi nacin neka mi neko kaze.Znaci da se automobil krece glatko po formi.

UNAPRIJED HVALA!
[ Jpeca @ 05.04.2009. 17:05 ] @
Možeš da koristiš API funkciju sleep koja će zaustaviti makro zadato vreme. Vreme se zadaje u milisekundama

Code:

' Deklaracija API funkcije u glavnom modulu
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
' Rutina za animaciju u formi
Private Sub Kreni_Click()
Do Until i = 10
   i = i + 1
   Me.Automobil.Move 0, 12 * i
   Me.Repaint ' ponovo iscrtava formu
   Sleep 200
 Loop
End Sub