[es] - Timer u milisekundama

rako88
Srbija

Član broj: 146509
Poruke: 111
79.101.205.*

+1 Profil

^{09.10.2009. u 19:21 - pre 176 meseci}

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

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: Timer u milisekundama

^{09.10.2009. u 19:57 - pre 176 meseci}

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

Odgovor na temu

rako88
Srbija

Član broj: 146509
Poruke: 111
79.101.205.*

+1 Profil

Re: Timer u milisekundama

^{09.10.2009. u 20:12 - pre 176 meseci}

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.

Odgovor na temu

K4R10
Karlo Hubai
Student, FTN
SO(NS), Srbija

Član broj: 236574
Poruke: 20
*.neobee.net.

Sajt: www.dijabetesbezgranica.i..

Profil

Re: Timer u milisekundama

^{20.10.2009. u 04:05 - pre 176 meseci}

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

Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
*.dynamic.sbb.rs.

+7 Profil

Re: Timer u milisekundama

^{22.10.2009. u 00:38 - pre 176 meseci}

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

HomePage http://www.eurora3d.com

Odgovor na temu

rako88
Srbija

Član broj: 146509
Poruke: 111
79.101.177.*

+1 Profil

Re: Timer u milisekundama

^{22.10.2009. u 17:44 - pre 176 meseci}

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

Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
*.dynamic.sbb.rs.

+7 Profil

Re: Timer u milisekundama

^{22.10.2009. u 19:49 - pre 176 meseci}

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

HomePage http://www.eurora3d.com

Odgovor na temu

rako88
Srbija

Član broj: 146509
Poruke: 111
91.150.109.*

+1 Profil

Re: Timer u milisekundama

^{25.10.2009. u 14:37 - pre 176 meseci}

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

Odgovor na temu