-
Cómo restablecer garrapatas en VB6
-
Aprender a controlar el tiempo en el programa de Visual Basic 6.0 es importante cuando se muestra la cantidad de tiempo entre las diferentes acciones o al depurar el momento de diferentes algoritmos. La función "GetTickCount" incorporado le permite realizar un seguimiento de la cantidad de milisegundos que han transcurrido entre dos eventos. Restablecer el recuento de paso se hace simplemente llamando a la función "GetTickCount" de nuevo. Restando dos lecturas "GetTickCount" le da una medida del tiempo que ha pasado.Instrucciones
1 Abra el archivo de Visual Basic 6 en Microsoft Visual Studio 6.0.
2 Declarar dos variables para realizar un seguimiento de inicio y fin del temporizador añadiendo el siguiente código en su función:
Dim lng_Beg As Long
Dim lng_End As Long
3 Llame a la función "GetTickCount" para iniciar el seguimiento de tiempo añadiendo 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 durante más tiempo que 49,7 días, un desbordamiento es posible porque el tiempo se almacena como un DWORD 32 bits. En muchos sistemas el tiempo real entre las garrapatas es de 10 o 16 ms.
4 Añadir el código que desee en cuando, como un bucle, el procesamiento de un archivo o recuperar información de una base de datos.
5 Restablecer las garrapatas llamando a la función "GetTickCount" de nuevo, añadiendo el código:
lng_Beg = GetTickCount ()
El recuento de paso anterior ahora se descarta.
6 Termina el código que quiere tiempo y luego llamar a la función "GetTickCount" de nuevo añadiendo el código:
lng_End = GetTickCount ()
7 Mostrar la cantidad de milisegundos que han transcurrido desde restablece el contador de paso añadiendo el código:
MsgBox CStr (lng_End - lng_Beg)
El "CStr" convierte el tipo de datos "largo" 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.
