[ rako88 @ 09.10.2009. 19:21 ] @
Treba da uradim timer za usporavanje nekog procesa, ali kako sam ja uradio najmanji interval pauze je 1 sekunda.A 1 sekunda mi je mnogo sporo, treba da bude ispod pola sekunde.Pitanje kako da napravim pauzu manju od sekunde.Kao kod sam koristio Do petlju koja ceka dok se pauza ne prodje.Znaci kako da napisem vreme u milisekundama?

Ovako izgleda moj kod:
Code:
 
           pocetak = Time
           kraj = pocetak + TimeValue("00:00:01")
            
           Do
           Loop Until Time >= kraj
[ captPicard @ 09.10.2009. 19:57 ] @
Stavi Timer kontrolu na formu, stavi interval = 1, dupli klik na kontrolu i napiši to šta treba
[ rako88 @ 09.10.2009. 20:12 ] @
Citat:
captPicard: Stavi Timer kontrolu na formu, stavi interval = 1, dupli klik na kontrolu i napiši to šta treba


Ovo nisam bas najbolje razumeo ali hvala u svakom slucaju.Evo kako ide glavni kod problema:

Code:

For i = 1 to 10

    'ovde ide neko ispisivanje u celije,

    
    'ovde ispod je tajmer da malo uspori ispivanje, da bude "vidljivo okom"

    pocetak = Time

    kraj = pocetak + TimeValue("00:00:01")
            
    Do

    Loop Until Time >= kraj

Next i


Znaci For petlja koja ispisuje neke brojeve u celije, znaci nesto sasvim prosto, e sad treba taj proces tj. ispisivanje u celije treba da se uspori.Ovaj moj tajmer moze da uspori za 1 sekundu, ali to je mnogo sporo.To sa formom mi ne odgovara jer mi ne treba forma.
[ K4R10 @ 20.10.2009. 04:05 ] @
Npr ovako, umesto Time koristi Timer.

Code:


    Dim Pocetak As Double
    Dim Kraj As Double

    For i = 1 To 10

        Pocetak = Timer
        Kraj = Pocetak + 0.01       ' 10 ms

        Do
        
        Loop Until Timer >= Kraj
    Next i
[ Eurora3D Team @ 22.10.2009. 00:38 ] @
Sleep win api funkcija zaustavlja izvodjenje programa za oderedjeni broj milisekundi.
Code:

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

Private Sub S()

For i = 1 To 10

    'ovde ide neko ispisivanje u celije,

    'ovde ispod je tajmer da malo uspori ispivanje, da bude "vidljivo okom"

    Sleep 10
Next i
End Sub

[ rako88 @ 22.10.2009. 17:44 ] @
Hvala na odgovorima, ovo sa TImer-om je najjednostavnije.Hvala jos jednom...
[ Eurora3D Team @ 22.10.2009. 19:49 ] @
Jeste ali ces da vrtis prazan krug i da trosis procesorsko vreme bezveze ...
[ rako88 @ 25.10.2009. 14:37 ] @
Tu is upravu, ali program je kratak, tako da je znemarljiva potrosnja vremena procesora.Opet hvala na odgovoru.