XProfan

Español

Jörg
Sellmeyer

Kann me de tiempo alguien erklären, por qué en SetTimer en verbindung con WaitInput así riesige Unterschiede en el Vergleich a Sleep auftreten.
Laut Profanhilfe son beide Befehle con Parametern a füttern, el Millisekunden repräsentieren.
En Sleep kommt el auch ungefähr (es sólo Windows) hin. SetTimer (sowohl Profano como auch por Api) en verbindung con WaitInput son ca. 12-16 veces langsamer!
Einen Faktor de 4-6 podría Yo sí verstehen, como sí en el WaitInput qué passiert, aber hier sería Yo wünschen, daß el algo feiner getaktet voluntad kann.
Kompilieren Marca Separación

 $H Windows.ph
Cls
SetTimer 1
Var n& = -&gettickcount

WhileLoop 50

    WaitInput

Wend

Print n& + &getTickcount
KillTimer
n& = -&gettickcount
Sleep 50
Print n& + &getTickcount
n& = -&gettickcount
~SetTimer(%hwnd,1,1,0)

WhileLoop 50

    WaitInput

Wend

~KillTimer(%hwnd,1)
Print n& + &getTickcount
WaitInput

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

15.09.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

NT-Versionen haben una Abstand de 16 ms. Genauer es auch no con Sleep.

15.09.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Naja, uno sieht sí doch una deutlichen Diferencia zwischen Sleep y SetTimer.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

15.09.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

@Jörg: Falls lo Usted en Echtzeit ir debería, Temporizador son para una Frame ungeeignet - aber bien para wiederkehrende Events. Sleep es mi humilde opinión genauer como Temporizador.

15.09.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

Das hier es ms-genau:
Kompilieren Marca Separación

Millisekunden-genaue Zeitmessung
ohne Hardwaretimer unter NT-Windows.
(c) Frank Abbing
Def timeGetTime(0)!"WINMM","timeGetTime"
Def timeBeginPeriod(1)!"WINMM","timeBeginPeriod"
Def timeEndPeriod(1)!"WINMM","timeEndPeriod"
timeBeginPeriod(1)
Sleep 32

WhileLoop 2000

    AddString "Wert in ms: "+Str$(timeGetTime())

EndWhile

ListBox$("Counter",2)
timeEndPeriod(1)
End

15.09.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Sehr schön! So puede ser en Verbindung con Sleep una Zeitabfrage redactar, el zumindest en 2 ms genau es y trotzdem no el Sistema belastet.
Puedo mich dumpf erinnern, daß Usted el auch schonmal en una Anfrage de Georg Nuevo hast. Gracias.
Kompilieren Marca Separación

Millisekunden-genaue Zeitmessung
ohne Hardwaretimer unter NT-Windows.
(c) Frank Abbing
Def timeGetTime(0)!"WINMM","timeGetTime"
Def timeBeginPeriod(1)!"WINMM","timeBeginPeriod"
Def timeEndPeriod(1)!"WINMM","timeEndPeriod"
timeBeginPeriod(1)
Sleep 32
Cls
Var n& = timeGetTime() + 100

While timeGetTime() < n&

    sleep 1
    AddString "Wert in ms: "+Str$(timeGetTime())
    Case Between(timeGetTime(),n&-42,n&-40):Print "a"

EndWhile

ListBox$("Counter",2)
timeEndPeriod(1)
WaitInput
End

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

15.09.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

GDL

Hi,

Yo kam , con Frequenzmesser gemessen, auch así no bajo 10 ms.
Das Problema en me es simplemente el ausführende Programa, el por desgracia, no Dauerprozess ha.
Für zeitkritische Messungen el Yo, el µs Zona es como bastante normal, es Windows no a gebrauchen.

Servus
Georg

Windows7 Xprofan 8,9,10 [...]