Ejemplos usando el Api de windows para Visual basic

175 - Ejemplo para crear un Timer mediante el api

Ejemplo de las funciones SetTimer y KillTimer para poder implementar un timer

El ejemplo es como muestra el siguiente formulario

vista del formulario para hacer el ejemplo del timer con el api

El command1 ( el que inicia el timer ), lo que hace es ejecutar la función setTimer para iniciarlo.

A la función se le debe pasar el hwnd del formulario, un valor para el intervalo expresado en milisegundos, y un valor para el id ( identificador ) de ese timer que estamos creando

Para detener el Timer iniciado se llama KillTimer pasando también el Hwnd del formulario y el Id que se especificó al llamar a SetTimer

Con respecto a este id o identificador, aclarar que al crear un timer por ejemplo, y pasarle como identificador el número 1, al matar el Timer el número debe ser el mismo, es decir un 1, si se le pasa cualquier otro valor distinto, la función KillTimer no hará caso, y el timer seguirá corriendo como si nada

Nota : En la página siguiente a esta, hay un ejemplo que muestra como usar este Id, para implementar varios Timers

Importante: La función callback ( la que tiene el código del timer ), si o si debe estar en un módulo bas, no puede estar en un módulo de objeto ( como un módulo de clase, un formulario, en un UserControl, etc..)

Para ver una descripción detallada de los parámetros de estas funciones, podés ver este muy buen sitio Win Api con clase : función SetTimer y KillTimer donde explica los parámetros de las funciones y algunas otras cuestiones

Pasos para crear el proyecto de ejemplo:

Tres CommandButton ( no agregarle los captions a los command )
Un módulo bas

Código en el módulo bas

Option Explicit 'Declaraciones para implemntar el timer con el Api '*********************************************************** ' Función que crea un timer Declare Function SetTimer Lib "user32" ( _ ByVal hwnd As Long, _ ByVal nIDEvent As Long, _ ByVal uElapse As Long, _ ByVal lpTimerFunc As Long) As Long ' Función que detiene el timer iniciado Declare Function KillTimer Lib "user32" ( _ ByVal hwnd As Long, _ ByVal nIDEvent As Long) As Long ' Función Callback que se dispara al iniciar el timer Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, _ ByVal uElapse As Long, ByVal lpTimerFunc As Long) Static x As Long Form1.Caption = "Valor de x : -->> " & CStr(x) x = x + 1 End Sub 'Inicia Sub Iniciar_Timer(Hwnd_Form As Long, Intervalo As Long, ID As Long) SetTimer Hwnd_Form, ID, Intervalo, AddressOf TimerProc End Sub 'Detiene Sub Detener_Timer(Hwnd_Form As Long, ID As Long) KillTimer Hwnd_Form, ID End Sub

Código en el Formulario

Option Explicit Dim Milisegundos As Long Private Sub Command1_Click() ' Inicia el timer Call Iniciar_Timer(Me.hwnd, Milisegundos, 0) ' Imprime en el form el valor de los milisegundos Cls Me.Print " Valor actual del intervalo: " & _ CStr(Milisegundos) & " Milisegundos" End Sub Private Sub Command2_Click() ' Detiene la ejecución del timer que se iniciado Call Detener_Timer(Me.hwnd, 0) End Sub Private Sub Command3_Click() On Error Resume Next ' Para Especificar los milisegundos Milisegundos = InputBox(" Intervalo ", _ " Indicar los milisegundos para el intervalo ") ' Si se presiona cancelar o no es un número sale If Err.Number = 13 Then MsgBox " el valor ingresado no es un válido", vbCritical Exit Sub End If ' Limpia el controlador de error On Error GoTo 0 ' Cambia el intervalo Call Iniciar_Timer(Me.hwnd, Milisegundos, 0) ' Esto solo muestra el valor de los milisegundos en el form Cls Me.Print " Valor actual del intervalo: " & _ CStr(Milisegundos) & " Milisegundos" End Sub Private Sub Form_Unload(Cancel As Integer) ' Mata el timer y finaliza el programa Call Detener_Timer(Me.hwnd, 0) End End Sub Private Sub Form_Load() Milisegundos = 250 Me.AutoRedraw = True Me.Print " Valor actual del intervalo: " & _ CStr(Milisegundos) & " Milisegundos" Command1.Caption = " Iniciar " Command2.Caption = " Detender " Command3.Caption = " Especificar Intervalo " End Sub

Nota. en la página siguiente a esta, hay un ejemplo de como implementar, también con SetTimer, varios temporizadores en el mismo programa, no solo uno como el que se vió en este ejemplo.

Enlaces relacionados

Buscar en Recursos vb