Imparare a tenere traccia del tempo nel programma Visual Basic 6.0 è importante quando si mostra la quantità di tempo che intercorre tra le diverse azioni o quando il debug il tempo di diversi algoritmi. La funzione "GetTickCount" built-in consente di tenere traccia della quantità di millisecondi che sono passati tra i due eventi. Ripristino del conteggio di tick viene fatto semplicemente chiamando di nuovo la funzione "GetTickCount". Sottraendo due letture "GetTickCount" ti dà una misura del tempo che è passato.

istruzione

1 Aprire il file VB6 in Microsoft Visual Studio 6.0.

2 Dichiarare due variabili per tenere traccia di inizio e di fine del timer aggiungendo la seguente codice nella funzione:

Dim lng_Beg As Long

Dim lng_End As Long

3 Chiamare la funzione "GetTickCount" per avviare il monitoraggio in tempo aggiungendo il codice:

lng_Beg = GetTickCount ()

La funzione "GetTickCount" memorizza il numero di millisecondi che sono trascorsi da quando il sistema acceso. Se il sistema viene lasciato acceso per più di 49,7 giorni, un overflow è possibile perché il tempo viene memorizzato come un 32-bit DWORD. Su molti sistemi il tempo effettivo tra le zecche è di 10 o 16 ms.

4 Aggiungere il codice da tempo, come un loop, l'elaborazione di un file o recuperare informazioni da un database.

5 Ripristinare le zecche richiamando di nuovo la funzione "GetTickCount", aggiungendo il codice:

lng_Beg = GetTickCount ()

Il conteggio tick precedente è ormai scartato.

6 Termina il codice che si desidera tempo e poi richiamare la funzione "GetTickCount" di nuovo con l'aggiunta di codice:

lng_End = GetTickCount ()

7 Visualizzare la quantità di millisecondi trascorsi si azzera il contatore di graduazione con il codice:

MsgBox CStr (lng_End - lng_Beg)

Il "CStr" converte il tipo "Long" dati in una stringa stampabile.

8 Salvare il file VB6 e compilare ed eseguire il programma per vedere quanto tempo ci vuole per eseguire il codice.