Imparare a tenere traccia del tempo nel vostro programma di Visual Basic 6.0 è importante quando si mostra la quantità di tempo tra le diverse azioni o in fase di debug il tempo di diversi algoritmi . La funzione built-in " GetTickCount " consente di tenere traccia del numero di millisecondi che sono trascorsi tra due eventi . Azzeramento del conteggio viene fatto semplicemente chiamando di nuovo la funzione " GetTickCount " . Sottraendo due letture " GetTickCount " ti dà una misura del tempo che è passato . Istruzioni
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 il seguente codice nella funzione . :

Dim lng_Beg As Long Dim

lng_End As Long
3

richiamare la funzione " GetTickCount " per avviare il tempo di monitoraggio con il codice :

lng_Beg = GetTickCount ( ) per

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 DWORD 32 bit . Su molti sistemi il tempo effettivo tra le zecche è di 10 o 16 ms .
4

Aggiungi il codice da tempo, come un loop , l'elaborazione di un file o di recupero di informazioni da un database.

5

Ripristinare le zecche richiamando nuovamente la funzione " GetTickCount " , aggiungendo il codice :

lng_Beg = GetTickCount ( ) per

il precedente conteggio è ormai scartato < . br> Pagina 6

Finisci il codice che si desidera al tempo e quindi chiamare la funzione " GetTickCount " di nuovo con il codice :

lng_End = GetTickCount ( ) economici 7

Visualizzare il numero di millisecondi trascorsi dalla si azzera il contatore di tick aggiungendo il codice :

MsgBox CStr ( lng_End - lng_Beg ) per

" CStr " converte il tipo di dati " Long" 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.

• Come modificare le funzioni in VB6 
• Come formattare Posizioni decimali in Visual Basic