XProfan

Deutsch

Jörg
Sellmeyer

Kann mir mal jemand erklären, warum bei SetTimer in verbindung mit WaitInput so riesige Unterschiede im Vergleich zu Sleep auftreten.
Laut Profanhilfe sind beide Befehle mit Parametern zu füttern, die Millisekunden repräsentieren.
Bei Sleep kommt das auch ungefähr (ist halt Windows) hin. SetTimer (sowohl Profan als auch per Api) in verbindung mit WaitInput sind ca. 12-16 mal langsamer!
Einen Faktor von 4-6 könnte ich ja verstehen, da ja im WaitInput was passiert, aber hier würde ich mir wünschen, daß das etwas feiner getaktet werden kann.
Kompilieren Markieren Separieren

 $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 zitieren Zeilenweise zitieren

Frank
Abbing

NT-Versionen haben einen Abstand von 16 ms. Genauer geht es auch nicht mit Sleep.

15.09.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Naja, man sieht ja doch einen deutlichen Unterschied zwischen Sleep und SetTimer.

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

15.09.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

@Jörg: Falls es Dir um Echtzeit gehen sollte, Timer sind für ein Frame ungeeignet - aber gut für wiederkehrende Events. Sleep ist imho genauer als Timer.

15.09.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Frank
Abbing

Das hier ist ms-genau:
Kompilieren Markieren Separieren

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 zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Sehr schön! So kann man in Verbindung mit Sleep eine Zeitabfrage erstellen, die zumindest auf 2 ms genau ist und trotzdem nicht das System belastet.
Ich kann mich dumpf erinnern, daß Du das auch schonmal auf eine Anfrage von Georg gepostet hast. Danke.
Kompilieren Markieren Separieren

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 zitieren Zeilenweise zitieren

GDL

Hi,

ich kam , mit Frequenzmesser gemessen, auch damit nicht unter 10 ms.
Das Problem bei mir ist einfach das ausführende Programm, das leider nicht Dauerprozess hat.
Für zeitkritische Messungen die ich habe, der µs Bereich ist da ganz normal, ist Windows nicht zu gebrauchen.

Servus
Georg

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