QueryPerformanceFrequency - Procedure

[jacky]

Hi,

I've got this from the forum somewhere:

Code: Select all

    Global QueryPerformanceFrequency.q : QueryPerformanceFrequency_(@QueryPerformanceFrequency)

    ; Returns the elapsed time between this call and the last call
    Procedure.d GetExecutionTime(unit.d=#Time_Millisecond)
      Protected counter.q, time.d
      Static QueryPerformanceCounter.q

      QueryPerformanceCounter_(@Counter)
      time = unit * (counter-QueryPerformanceCounter) / QueryPerformanceFrequency
      QueryPerformanceCounter = counter

      ProcedureReturn time
    EndProcedure

I can call it e.g. with:

Code: Select all

GetExecutionTime()
; Do something here...
Debug "Time to do something: " + GetExecutionTime() + " ms"

Is there a way to expand the procedure that I could measure overlapping times?

Like this:

Code: Select all

timeOuter.d = GetExecutionTime()
For i = 1 To 1000
  ; Do something
  timeInner.d = GetExecutionTime()
  For j = 1 To 1000
  ; Do something
  Next j
  Debug "Time for inner loop: " + GetExecutionTime(timeInner) + " ms"
Next i
Debug "Time for outer loop: " + GetExecutionTime(timeOuter) + " ms"

[Sicro]

Have a look at this code:
Poor (wo)man's time profiling

[jacky]

Thanks, but all of them aren't using QueryPerformanceCounter and I don't know if it's necessary to do it with 10 times the code of this little procedure...

[Demivec]

Just a note, PB's ElapsedMilliseconds() uses QueryPerformanceTimer if it is available so if you don't need dinner resolution than a millisecond it should work as well for you.