1
Abra el archivo VB6 en Microsoft Visual Studio 6.0
2
Declare dos variables para hacer un seguimiento de inicio y final del contador de tiempo , añadiendo el siguiente código en su función. :
lng_Beg Dim As Long
lng_End Dim As Long
3
llamar a la función " GetTickCount " para iniciar el tiempo de seguimiento con el código :
lng_Beg = GetTickCount ()
la función " GetTickCount " almacena el número de milisegundos que han transcurrido desde que el sistema de encendido. Si el sistema se deja encendido durante más de 49,7 días , un desbordamiento es posible debido a que el tiempo se almacena como un valor DWORD de 32 bits . En muchos sistemas el tiempo real entre las garrapatas es 10 o 16 ms .
4
Añadir el código que desea a tiempo , tales como un bucle , el procesamiento de un archivo o recuperar información de una base de datos .
Página 5
Restablecer las garrapatas llamando a la función " GetTickCount " de nuevo, con el código :
lng_Beg = GetTickCount ()
el contador anterior está descartado < . br> 6
Finalizar el código que desee en cuando y luego llamar a la función " GetTickCount " de nuevo con el código :
lng_End = GetTickCount ()
7
Muestra la cantidad de milisegundos que han pasado desde que restablezca el contador tick con el código :
MsgBox CStr ( lng_End - lng_Beg )
" CStr " convierte el tipo de datos " Long" en una cadena imprimible.
8
Guarde el archivo VB6 y compilar y ejecutar el programa para ver cuánto tiempo se tarda en ejecutar el código.