Timer u milisekundama

Timer u milisekundama 09.10.2009. u 20:21 · pre 207 meseci #1

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

Re: Timer u milisekundama 09.10.2009. u 20:57 · pre 207 meseci #2

Stavi Timer kontrolu na formu, stavi interval = 1, dupli klik na kontrolu i napiši to šta treba

Potpis

F

Re: Timer u milisekundama 09.10.2009. u 21:12 · pre 207 meseci #3

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.

Re: Timer u milisekundama 20.10.2009. u 05:05 · pre 207 meseci #4

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

Re: Timer u milisekundama 22.10.2009. u 01:38 · pre 207 meseci #5

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

Potpis

HomePage http://www.eurora3d.com

Re: Timer u milisekundama 22.10.2009. u 18:44 · pre 207 meseci #6

Hvala na odgovorima, ovo sa TImer-om je najjednostavnije.Hvala jos jednom...

Re: Timer u milisekundama 22.10.2009. u 20:49 · pre 207 meseci #7

Jeste ali ces da vrtis prazan krug i da trosis procesorsko vreme bezveze ...

Potpis

HomePage http://www.eurora3d.com

Re: Timer u milisekundama 25.10.2009. u 15:37 · pre 207 meseci #8

Tu is upravu, ali program je kratak, tako da je znemarljiva potrosnja vremena procesora.Opet hvala na odgovoru.

Forum kao aplikacija na telefonu

Srodne teme