clsTimer
This code keeps a count in milliseconds of how long it takes between calls of StartTimer and StopTimer or Elapsed.
AI
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.
மூலக் குறியீடு
' in clsTimer...
Dim start, finish
Public Sub StopTimer()
finish = GetTickCount()
End Sub
Public Sub StartTimer()
start = GetTickCount()
finish = 0
End Sub
Public Sub DebugTrace(v)
Debug.Print v & " " & Elapsed()
End Sub
Public Property Get Elapsed()
If finish = 0 Then
Elapsed = GetTickCount() - start
Else
Elapsed = finish - start
End If
End Property
Upload
அசல் கருத்துகள் (3)
வேபேக் மெஷினிலிருந்து (Wayback Machine) மீட்டெடுக்கப்பட்டது