Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Kretanje objekta po formi (VBA)

[es] :: Office :: Excel :: Kretanje objekta po formi (VBA)

[ Pregleda: 3010 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

c0de
Aleksej Slobodnjikov
Pc Serviser
Moskow

Član broj: 190673
Poruke: 66
*.bratunac.zona.ba.



Profil

icon Kretanje objekta po formi (VBA)05.04.2009. u 13:10 - pre 151 meseci
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!
AS
 
Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2195
194.106.167.*

Sajt: www.gowi.rs


+96 Profil

icon Re: Kretanje objekta po formi (VBA)05.04.2009. u 17:05 - pre 151 meseci
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

Nije to loše Rembrante, samo što ne bi dodao još malo boje?
 
Odgovor na temu

[es] :: Office :: Excel :: Kretanje objekta po formi (VBA)

[ Pregleda: 3010 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.