times seem engine-depending. I'm far from 0.03 seconds and need only 0
for benchmarks I would use the built-in high-resolution-timer instead of getTickCount since it's much more precise.
Problem with GetTickCount is: it just delivers a new value every 0.015 to 0.025 seconds - depending on system, so I'm pretty sure the test needs less than 0.016 seconds on mine - 0.0059 to be precise, see screenshotUses "console" Dim startingTime As Quad Dim neededTime As Quad Dim tick As Long ' we compare tickcount & hires-timer now... HiResTimer_Init ' do always if want to use HiresTimer tick = GetTickCount Do startingTime = HiResTimer_Get ' idle until it changes Loop While tick = GetTickCount tick = GetTickCount While tick = GetTickCount: Wend neededTime = HiResTimer_Get - startingTime PrintL "Time for one tickcount-change: " + Format$(neededTime / 1000000, "#.0000") PrintL $CRLF & Repeat$(42, "_") PrintL $CRLF & "Press the ANY-key to end" WaitKey
Bookmarks