Neues Sleep, millisekunden-genau

Frank A.

Code

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

Alles anzeigen

Werbepost

Hallo!

Wenn du gerade an deiner Website arbeitest oder dein aktuelles Hosting überdenkst: Wir betreiben mit NetzLiving eine Hosting-Plattform, die speziell auf Performance, Sicherheit und einfache Verwaltung ausgelegt ist.

✔️ Schnelle Ladezeiten (optimiert für WordPress, WoltLab & Co.)
✔️ Deutsche Server & DSGVO-konform
✔️ Persönlicher Support (kein 0815-Ticket-System)

Mehr erfahren

Wenn du Fragen hast, kannst du dich gerne jederzeit an @Maximilian Rupp wenden

Hinweis:

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

Frank A.

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.

Frank A.

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.

Jetzt mitmachen!