How to use this class - danielep71/VBA-PERFORMANCE GitHub Wiki

[Home]] ](/danielep71/VBA-PERFORMANCE/wiki/[[Class-cPerformanceMonitor)

---

Copy this routine into a standard module

---

Public Sub Test_PerformanceMonitor()
'------------------------------------------------------------------------------
'DECLARE
'------------------------------------------------------------------------------
    Dim cPM     As cPerformanceMonitor
    Dim i       As Integer              'Loop counter
    Dim j       As Long                 'Loop counter
'------------------------------------------------------------------------------
'INITIALIZE
'------------------------------------------------------------------------------
    Set cPM = New cPerformanceMonitor
'------------------------------------------------------------------------------
'TEST CLASS MODULE
'------------------------------------------------------------------------------
    For i = 1 To 20
        cPM.StartTimer (1)
        cPM.Pause 1              '1 second
        Debug.Print "Method " & "1" & " - "; cPM.ElapsedTime(1)
    Next i
'------------------------------------------------------------------------------
'TEST YOUR CODE
'------------------------------------------------------------------------------
    For i = 1 To 6
        cPM.StartTimer (i)
        'Your code here (example)
        For j = 1 To 10000000: Next j   'Empty loop
        Debug.Print cPM.ElapsedTime(i)
    Next i
'------------------------------------------------------------------------------
'TEST OVERHEAD
'------------------------------------------------------------------------------
    For i = 1 To 6
        Debug.Print cPM.Overhead(i)
    Next i
'------------------------------------------------------------------------------
'TEST TICK INTERVAL
'------------------------------------------------------------------------------
    Debug.Print cPM.TickInterval
'------------------------------------------------------------------------------
'TEST HRT TICK FREQUENCY
'------------------------------------------------------------------------------
    Debug.Print cPM.HRT_FrequencyPerSecond
'------------------------------------------------------------------------------
'TEST HRT TICK FREQUENCY
'------------------------------------------------------------------------------
    Debug.Print cPM.HRT_TickInterval
'------------------------------------------------------------------------------
'TEST METHODS NAME
'------------------------------------------------------------------------------
    For i = 1 To 6
        Debug.Print i & " - " & cPM.TimerMethod(i)
    Next i
'------------------------------------------------------------------------------
'EXIT
'------------------------------------------------------------------------------
    Set cPM = Nothing
End Sub

---

[Home]] ](/danielep71/VBA-PERFORMANCE/wiki/[[Class-cPerformanceMonitor)