speedcheck - calculates a functions runtime in ms (4 code-optimization)
Just one line of code is needed to test a functions speed -> With this class-module. It creates an object which is automatically terminated together with the function you check and it uses debug.print to let you know how long your pc had been busy (in ms) with that function. Sure you can save the value of timer() and read it before your function reaches exit/end function, but its harder to remove this before you release your app... So try this!
AI
ملخص الذكاء الاصطناعي: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
كود المصدر
'This is just an example to use it...
'Its as easy as possible-
'therefor I do not use option explicit here
'and I work with a slow variant-datatype :-)
Private Sub Form_Load()
Dim A As SpeedCheck: Set A = New SpeedCheck
For I = 0 To 1000
Debug.Print "Debug-Print is very slow!"
Next I
End Sub
التعليقات الأصلية (3)
مسترجع من Wayback Machine