Lernen, wie man Zeit in Ihrem Visual Basic 6.0 -Programm zu verfolgen ist wichtig, wenn die die Zeitspanne zwischen verschiedenen Aktionen oder beim Debuggen die Zeit von verschiedenen Algorithmen. Der eingebaute " GetTickCount "-Funktion können Sie verfolgen die Anzahl von Millisekunden , die zwischen zwei Ereignissen vergangen sind . Zurücksetzen des Tickzähler wird einfach durch den Aufruf der " GetTickCount "-Funktion wieder getan . Zieht man zwei " GetTickCount " Lesungen gibt Ihnen eine Messung der Zeit , die vergangen ist . Anleitung
1
Öffnen Sie Ihre VB6 Datei in Microsoft Visual Studio 6.0
2
deklarieren zwei Variablen des Timers Anfang und Ende , indem Sie den folgenden Code in Ihrer Funktion zu verfolgen. :
Dim lng_Beg As Long Dim
lng_End As Long
3
Rufen Sie die " GetTickCount "-Funktion , um die Zeiterfassung , indem Sie den Code starten:
lng_Beg = GetTickCount ()
" GetTickCount "-Funktion speichert die Anzahl der Millisekunden , die seit das System eingeschaltet haben . Wenn das System auf länger als 49,7 Tage gelassen wird , ist ein Überlauf möglich, weil die Zeit als 32- Bit Doppelwort gespeichert ist. Auf vielen Systemen die tatsächliche Zeit zwischen Zecken ist 10 oder 16 ms .
4
Fügen Sie den gewünschten Code zu Zeit , wie eine Schleife , die Verarbeitung einer Datei oder das Abrufen von Informationen aus einer Datenbank.
5
zurücksetzen Zecken durch den Aufruf der " GetTickCount "-Funktion wieder , indem Sie den Code eingeben:
lng_Beg = GetTickCount ()
die bisherige Anzahl der Ticks ist nun verworfen < . br> 6
Beenden Sie den gewünschten Code zu Zeit und rufen Sie dann die " GetTickCount "-Funktion wieder , indem Sie den Code :
lng_End = GetTickCount ()
7
Display die Anzahl von Millisekunden , die seit Sie das Häkchen Zähler zurücksetzen , indem Sie den Code haben :
MsgBox CStr ( lng_End - lng_Beg )
" CStr " wandelt die " Long" -Datentyp in eine druckbare Zeichenfolge.
8
Speichern Sie die Datei und VB6 kompilieren und Ausführen des Programms zu sehen, wie lange es dauert, um Ihren Code ausführen müsste .
