martes, 10 de febrero de 2009
Ejemplo de control Timer
Nota sobre la propiedad interval
La propiedad interval acepta como máximo el valor 65535. Es decir que si queremos asignar un valor superior nos dará un error por que desborda
Por eso , si queremos configurar el timer, con valores superiores , por ejemplo hacer que el timer se ejecute cada 10 minutos por decir un caso , podriamos hacer algo por el estilo :
Este código, ejecuta el temporizador cada 5 minutos ( el valor de la constante INTERVALO_EN_MINUTOS )
Código en el form con un timer1
Option Explicit
' Cantidad de minutos para el intervalo del timer _
en este caso para 5 minutos
Const INTERVALO_EN_MINUTOS As Integer = 5
Private Sub Form_Load()
' Ejecuta el timer cada 1 segundo
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
' variable estática para acumular la cantidad de segundos
Static Temp_Seg As Long
' incrementa
Temp_Seg = Temp_Seg + 1
' comprueba que los segundos no sea igual a la cantidad de minutos _
que queremos , en este caso 5 minutos
If (Temp_Seg * 60) >= (INTERVALO_EN_MINUTOS * 60) * 60 Then
' reestablece
Temp_Seg = 0
MsgBox "Se ejcutó el timer ", vbInformation
End If
End Sub
Para utilizar temporizadores en Visual Basic, no es la única forma mediante el control Timer, hay unas funciones del Api llamadas SetTimer y KillTimer que permiten crearlos sin utilizar el control estándar de Visual Basic.
En este enlace, Crear un Timer con el Api podés ver un ejemplo
También en este enlace podés descargar un módulo de clase para poder crear un timer con el api realizado por microsoft
La propiedad interval acepta como máximo el valor 65535. Es decir que si queremos asignar un valor superior nos dará un error por que desborda
Por eso , si queremos configurar el timer, con valores superiores , por ejemplo hacer que el timer se ejecute cada 10 minutos por decir un caso , podriamos hacer algo por el estilo :
Este código, ejecuta el temporizador cada 5 minutos ( el valor de la constante INTERVALO_EN_MINUTOS )
Código en el form con un timer1
Option Explicit
' Cantidad de minutos para el intervalo del timer _
en este caso para 5 minutos
Const INTERVALO_EN_MINUTOS As Integer = 5
Private Sub Form_Load()
' Ejecuta el timer cada 1 segundo
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
' variable estática para acumular la cantidad de segundos
Static Temp_Seg As Long
' incrementa
Temp_Seg = Temp_Seg + 1
' comprueba que los segundos no sea igual a la cantidad de minutos _
que queremos , en este caso 5 minutos
If (Temp_Seg * 60) >= (INTERVALO_EN_MINUTOS * 60) * 60 Then
' reestablece
Temp_Seg = 0
MsgBox "Se ejcutó el timer ", vbInformation
End If
End Sub
Para utilizar temporizadores en Visual Basic, no es la única forma mediante el control Timer, hay unas funciones del Api llamadas SetTimer y KillTimer que permiten crearlos sin utilizar el control estándar de Visual Basic.
En este enlace, Crear un Timer con el Api podés ver un ejemplo
También en este enlace podés descargar un módulo de clase para poder crear un timer con el api realizado por microsoft
Suscribirse a:
Entradas (Atom)