Neues Sleep, millisekunden-genau

[Frabbing]

Declare text$,sema&

Def WaitForSingleObject(2)!"kernel32","WaitForSingleObject"
Def CreateSemaphore(4)!"kernel32","CreateSemaphoreA"
Def CloseHandle(1)!"kernel32","CloseHandle"
Def timeGetTime(0)!"WINMM","timeGetTime"
Def timeBeginPeriod(1)!"WINMM","timeBeginPeriod"
Def timeEndPeriod(1)!"WINMM","timeEndPeriod"

timeBeginPeriod(1)

text$="xprofan"
sema&=CreateSemaphore(0,1,1,0)

WhileLoop 2000
  AddString "Wert in ms: "+Str$(timeGetTime())
  WaitForSingleObject(sema&,5)
EndWhile

ListBox$("Counter",2)

timeEndPeriod(1)
CloseHandle(sema&)
End

[RGH]

Hallo Frank,

wenn ich "WaitForSingleObject(sema&,5)" durch "Sleep 5" ersetze, sieht das Ergebnis nicht sonderlich anders aus: Die Zeitpunkte liegen zwischen 4 und 6 ms auseinander.

Gruß
Roland

[Frabbing]

Zwischen 4 und 6... wieso 4? Komisch, ich hab mit Sleep immer Lücken von 15-16 ms.
Werde das nachher mal am Laptop testen.

[Frabbing]

Hm, mit dem Laptop sind die Unterschiede zwischen Sleep und der Semaphorenlösung auch kaum zu finden. Nur bei meinem stationären Computer (der allerdings auch älter ist). Beides XP-Home.

Na vielleicht kann trotzdem jemand diese Lösung gebrauchen, oder sie inspiriert ihn noch zu ganz anderen Sachen.