Sign in to follow this  
Followers 0
MvGulik

Useful, or not.

1 post in this topic

Probably not.

Anyway ... Just felt the need to post this.

(probably should have used chat, but than it would probably end up here anyway.)

Input:

#include "Debug_Timer.(not included)"
If 1 Then
    Debug_Timer('ignored')
    $DBF = True
    Debug_Timer('error')
    Debug_Timer('main')

    ;; basic
    ConsoleWrite('--- 1 ---' & @CRLF)
    Debug_Timer('timer1')
    Debug_Timer() ;; close last timer. (timer1)
    Debug_Timer('timer2')
    Sleep(50)
    Debug_Timer()

    ;; nested(1)
    ConsoleWrite('--- 2 ---' & @CRLF)
    Debug_Timer('timer3')
    Sleep(100)
    Debug_Timer('timer4')
    Sleep(100) ;; 1000
    Debug_Timer() ;; close last timer. (timer4)
    Sleep(100)
    Debug_Timer()

    ;; nested(2)
    ConsoleWrite('--- 3 ---' & @CRLF)
    Debug_Timer('timer5')
    For $i = 1 To 4
        Debug_Timer('timer6')
        Sleep(10)
        Debug_Timer()
    Next
    Debug_Timer('', '-') ;; minus older timer times.

    ;; limitation/behavior.
    ConsoleWrite('--- 4 ---' & @CRLF)
    For $i = 1 To 32
        Debug_Timer('timer7')
        Debug_Timer()
    Next

    Debug_Timer() ; main

    ;; closing.
    ConsoleWrite('--- 5 ---' & @CRLF)
    ;; dump remaining stored timer data.
;~  ConsoleWrite('Debug_TimerQuit:' & @CRLF & Debug_TimerQuit() & @CRLF)
    ConsoleWrite('Debug_TimerQuit:' & @CRLF & DB_EA8D_ArrayWrite2(Debug_TimerQuit(), 'Debug_TimerQuit()') & @CRLF)
EndIf

Output:

--> Press Ctrl+Alt+F5 to Restart or Ctrl+Break to Stop
--- 1 ---
--- 2 ---
--- 3 ---
--- 4 ---
TimerReset:--- --- 0 (array dump), , Debug_TimerQuit():[33][2].
--- |--|         0|                     1|
[0] |I3|       32 | 2 : 0                  |
[1] |St| |error   | (1.45222892518865e+015) |
[2] |St| |main  | (1.45222892543034e+015) |
[3] |St| timer1   | 0.1 mSec.              |
[4] |St| timer2   | 49.62 mSec.          |
[5] |St| timer3   | 328.16 mSec.            |
[6] |St| timer4   | 109.4 mSec.          |
[7] |St| timer5   | 0.59 mSec.            |
[8] |St| + timer6 | 15.11 mSec.          |
[9] |St| + timer6 | 15.87 mSec.          |
[10] |St| + timer6 | 15.17 mSec.             |
[11] |St| + timer6 | 15.84 mSec.             |
[12] |St| timer7   | 0.08 mSec.           |
[13] |St| timer7   | 0.09 mSec.           |
[14] |St| timer7   | 0.08 mSec.           |
[15] |St| timer7   | 0.06 mSec.           |
[16] |St| timer7   | 0.06 mSec.           |
[17] |St| timer7   | 0.06 mSec.           |
[18] |St| timer7   | 0.06 mSec.           |
[19] |St| timer7   | 0.06 mSec.           |
[20] |St| timer7   | 0.06 mSec.           |
[21] |St| timer7   | 0.06 mSec.           |
[22] |St| timer7   | 0.05 mSec.           |
[23] |St| timer7   | 0.06 mSec.           |
[24] |St| timer7   | 0.05 mSec.           |
[25] |St| timer7   | 0.05 mSec.           |
[26] |St| timer7   | 0.05 mSec.           |
[27] |St| timer7   | 0.05 mSec.           |
[28] |St| timer7   | 0.05 mSec.           |
[29] |St| timer7   | 0.05 mSec.           |
[30] |St| timer7   | 0.05 mSec.           |
[31] |St| timer7   | 0.05 mSec.           |
[32] |St| timer7   | 0.05 mSec.           |
--- --- 0
--- 5 ---
Debug_TimerQuit:
--- --- 0 (array dump), , Debug_TimerQuit():[14][2].
--- |--|       0|                       1|
[0] |I3|     13 | 1 : 0                |
[1] |St| |error | (1.45222892518865e+015) |
[2] |St| main   | 452.41 mSec.          |
[3] |St| timer7 | 0.07 mSec.              |
[4] |St| timer7 | 0.05 mSec.              |
[5] |St| timer7 | 0.05 mSec.              |
[6] |St| timer7 | 0.05 mSec.              |
[7] |St| timer7 | 0.05 mSec.              |
[8] |St| timer7 | 0.05 mSec.              |
[9] |St| timer7 | 0.05 mSec.              |
[10] |St| timer7 | 0.05 mSec.             |
[11] |St| timer7 | 0.05 mSec.             |
[12] |St| timer7 | 0.05 mSec.             |
[13] |St| timer7 | 0.05 mSec.             |
--- --- 0
>Exit code: 0   Time: 3.011

Code/udf: ... nope. (not really fit for general consumption yet. anyway.)


"Straight_and_Crooked_Thinking" : A "classic guide to ferreting out untruths, half-truths, and other distortions of facts in political and social discussions."
"The Secrets of Quantum Physics" : New and excellent 2 part documentary on Quantum Physics by Jim Al-Khalili. (Dec 2014)

"Believing what you know ain't so" ...

Knock Knock ...
 

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0