Ejemplos usando el Api de windows para Visual basic

51 - Api GetTickCount, Sleep y la función Timer de Visual basic para generar esperas

Tres rutinas para generar esperas mediante la función Timer, GettickCount y Sleep

Contenido

Ejemplo 1 - GetTickCount
Ejemplo 2 - función Timer de vb
Ejemplo 3 - Función Sleep
Relacionados

Ejemplo 1 - GetTickCount

Este ejemplo utiliza el Api GetTickCount para generar un retardo de tiempo.

Dicha función Api devuelve el valor en milisegundos desde que se inicio Windows. Teniendo ese valor como punto inicial se puede generar una espera.

En el siguiente ejemplo se genera una espera de 5 segundos, ( en realidad no son exactos )

Nota: Utilizamos DoEvents en el bucle para que el programa no se coma los recursos del cpu.

Código fuente

Option Explicit Private Declare Function GetTickCount& Lib "kernel32" () Private Sub Command1_Click() Dim retraso As Long 'GetTickCount devuelve un valor _ inicial, y se lo sumamos al de retraso retraso = 5000 + GetTickCount& While retraso >= GetTickCount& DoEvents Wend 'Fin MsgBox "Terminó el retardo", vbInformation End Sub

Ejemplo 2 - Función Timer de Visual Basic

Con esta función de Visual basic podemos implementar el mismo ejemplo anterior.

Timer devuelve el número de segundos transcurridos desde la medianoche, y ese valor lo tomamos como punto de referencia

Lo siguiente genera una espera de cinco segundos

Private Sub Command1_Click() 'Le sumamos 5 segundos al valor Timer como punto inicial retraso = 5 + Timer While retraso >= Timer DoEvents Wend 'Fin MsgBox "Terminó el retardo", vbInformation End Sub

Ejemplo 3 - Función Api Sleep

Esta función Api lleva como parámetro un valor de tipo Long que indica la cantidad de milisegundos que queremos implementar el retardo.

A diferencia de las otras 2 anteriores, esta detiene la ejecución del programa completamente hasta que haya terminado el tiempo. Por lo tanto el programa quedará por decirlo como si estuviese congelado.

Si haces la prueba intentando mover el formulario o interactuar con algún control de la ventana mientras se está ejecutando la función Sleep, te vas a dar cuenta que el mismo pareciera como si estuviese muerto, es decir la función sleep no retorna el control a la ventana - proceso hasta que termine

'Función Api sleep Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Command1_Click() 'Le pasamos un valor de 5000 milisegundos (5 seg) Sleep 5000 'Fin MsgBox "Terminó el retardo" End Sub

Nota: otra función del Api que se puede utilizar para cronometrar un proceso, es la función api TimeGeTtime

Recursos Visual basic.NET - Relacionados

Ejemplo del objeto StopWatch de .NET para medir el tiempo de un proceso

Buscar en Recursos vb