QueryPerformance

[kaesereibe]

QueryPerformance

This example shows just a way to calculate the TimeDiff. Otherwise please use the TimerDiff() function.

- MSDN System Information Functions: Kernel32.dll QueryPerformanceCounter

- MSDN System Information Functions: Kernel32.dll QueryPerformanceFrequency

Func QueryPerformance($N = 0)
    Static $F, $A, $Q, $P, $X
    Local $R
    If $N And Not $P Then
        $F = DllCall("Kernel32.dll", "Int", "QueryPerformanceFrequency", "Int64*", "")
        $F = $F[1]
        $P = DllCall("Kernel32.dll", "Int", "QueryPerformanceCounter", "Int64*", "")
        $P = $P[1]
        Return $F + $P + ($X = 0) + ($A = 0)
    EndIf
    $Q = DllCall("Kernel32.dll", "Int", "QueryPerformanceCounter", "Int64*", "")
    $A = $A + $Q[1] - $P
    $P = $Q[1]
    $X = $X + 1
    $R = $A / $X / $F
    Return ($N And $X = $N) ? BitShift($X = $X - 1, -64) : ($N = 0 And $R) ? ($R + ($A = 0) + ($P = 0) + ($X = 0)) : 1
EndFunc    ;==> QueryPerformance() AutoIt v3.3.12.0

Edited July 22, 2014 by kaesereibe

[kaesereibe]

Examples:

QueryPerformance(1)
Sleep(2500)
$End = QueryPerformance(0)
MsgBox(0, "QueryPerformance()", $End)



$i = 0
QueryPerformance(1)
While $i <> 10000000
    $i += 1
WEnd
$End = QueryPerformance(0)
MsgBox(0, "QueryPerformance()", $End)

Edited July 22, 2014 by kaesereibe

[funkey]

This is just the same like this:

#include <Timers.au3>
Global $Start = _Timer_Init()
Sleep(200)
ConsoleWrite (_Timer_Diff($Start) & @LF)

[kaesereibe]

Like I said in my top post:

"This example shows just a way to calculate the TimeDiff. Otherwise please use the TimerDiff() function."

Its the same in short and only 1 function

QueryPerformance(1) start

QueryPerformance(0) to get the diff & reset

Edited July 22, 2014 by kaesereibe

[careca]

And

Global $Start = _Timer_Init() ;to start

ConsoleWrite (_Timer_Diff($Start) & @LF) ;to get the diff

@kaesereibe that is unnecessarily complicated, all to replace a native function that works.

But i do appreciate the effort to come up with something new. Keep it up.

Edited July 22, 2014 by careca