XProfan

English

Jörg
Sellmeyer

can me time someone explain, Why with SetTimer in link with WaitInput so gigantic differences in the comparison To Sleep appear.
loudly Profanhilfe are both command with Parameters To feed, The Millisekunden repräsentieren.
with Sleep comes the too about (is hold windows) there. SetTimer (sowohl Profan as well as by Api) in link with WaitInput are ca. 12-16 time slower!
a factor of 4-6 could I Yes understand, there Yes in the WaitInput what happens, but here would I me wish, that the something feiner getaktet go can.
Compile Mark Separation

 $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 ...

09/15/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

NT-versions having a stood off of 16 ms. Accurate goes it neither with Sleep.

09/15/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

Well, one sees Yes still a deutlichen Difference between Sleep and SetTimer.

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

09/15/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

@Jörg: if it you circa Echtzeit weg ought to, Timer are for a Frame unfit - but well for recurring Events. Sleep is imho accurate as Timer.

09/15/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

the here's ms-very:
Compile Mark Separation

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

09/15/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

Very beautiful! so can in link with Sleep a Zeitabfrage create, The at least on 2 ms exactly and nevertheless not the system charged.
I can me dumpf remind, that You, the too Schonmal on a inquire of Georg posted have. thanks.
Compile Mark Separation

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 ...

09/15/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

GDL

Hi,

I coming , with Frequenzmesser measured, too lest under 10 ms.
The problem by me is simply the executing Program, the unfortunately not Dauerprozess has.
for zeitkritische Messungen The I have, the µs area is there integrally normal, is windows not To use.

Hello
Georg

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