Evento al cronómetro 2

   Buenos díasComo decía ayer (Unamuno) he retomado el asunto y lo expongo por si ha habido, o hay, alguien al que le pueda interesar.
Es un simple ejemplo del manejo del evento "Al cronómetro".
El propósito es emitir un primer mensaje cuando se de una condición aleatoriamente elegida.
El mensaje varía según una horquilla de horarios.
Después de salir el primer mensaje, se genera otro diferente al cabo de un tiempo determinado.
Este segundo mensaje se pude repetir o no eligiendo el tiempo adecuado.

El procedimiento:
En el evento "Intervalo de cronómetro" del cuadro de propiedades, elegimos "0"

En el evento "Al activar el registro" ponemos:

Private Sub Form_Current()
Dim MyValue
' Generamos un valor aleatorio ente 1 y 3 que se refleja en un cuadro de texto.
Me.Texto11 = Int(((3 - 1 + 1) * Rnd) + 1)
' Mediante la propiedad "TimerInterval" damos un retardo para que salga el 2º mensaje. Si TimerInterval=0 el 2º mensaje no sale.
Me.TimerInterval = 10000
' Generamos un primer mensaje según una horquilla de horarios y un determinado valor aleatorio.
If Me.Texto11 = 1 Then
If Time > TimeSerial(8, 0, 0) And Time < TimeSerial(14, 0, 0) Then
MsgBox "Buenos días"
End If
If Time > TimeSerial(14, 0, 0) And Time < TimeSerial(21, 0, 0) Then
MsgBox "Buenas tardes"
End If
If Time < TimeSerial(8, 0, 0) Then
MsgBox "Buenas Noches"
End If
End If

Y en el evento "Al cronómetro" ponemos:
Private Sub Form_Timer()
' Tiempo de repetición del 2º mensaje. Si TimerInterval=0 el mensaje no se repite.
Me.TimerInterval = 0
' Generamos un segundo mensaje según una horquilla de horarios y un determinado valor aleatorio .
If Me.Texto11 = 1 Then
If Time > TimeSerial(8, 0, 0) And Time < TimeSerial(14, 0, 0) Then
MsgBox "Estira las piernas"
End If
If Time > TimeSerial(14, 0, 0) And Time < TimeSerial(21, 0, 0) Then
MsgBox "Date un paseo"
End If
If Time < TimeSerial(8, 0, 0) Then
MsgBox "¿No tienes sueño?"
End If
End If
End Sub

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
Juan Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Colaborador Unido: 26/Mayo/2006 Localización: España Estado: Sin conexión Puntos: 1035	Opciones de entrada Responder Cita Juan Informar de mensaje Gracias(0) Cita Respuesta Tema: Evento al cronómetro 2 Enviado: 14/Marzo/2021 a las 08:17
	Buenos días Como decía ayer (Unamuno) he retomado el asunto y lo expongo por si ha habido, o hay, alguien al que le pueda interesar. Es un simple ejemplo del manejo del evento "Al cronómetro". El propósito es emitir un primer mensaje cuando se de una condición aleatoriamente elegida. El mensaje varía según una horquilla de horarios. Después de salir el primer mensaje, se genera otro diferente al cabo de un tiempo determinado. Este segundo mensaje se pude repetir o no eligiendo el tiempo adecuado. El procedimiento: En el evento "Intervalo de cronómetro" del cuadro de propiedades, elegimos "0" En el evento "Al activar el registro" ponemos: Private Sub Form_Current() Dim MyValue ' Generamos un valor aleatorio ente 1 y 3 que se refleja en un cuadro de texto. Me.Texto11 = Int(((3 - 1 + 1) * Rnd) + 1) ' Mediante la propiedad "TimerInterval" damos un retardo para que salga el 2º mensaje. Si TimerInterval=0 el 2º mensaje no sale. Me.TimerInterval = 10000 ' Generamos un primer mensaje según una horquilla de horarios y un determinado valor aleatorio. If Me.Texto11 = 1 Then If Time > TimeSerial(8, 0, 0) And Time < TimeSerial(14, 0, 0) Then MsgBox "Buenos días" End If If Time > TimeSerial(14, 0, 0) And Time < TimeSerial(21, 0, 0) Then MsgBox "Buenas tardes" End If If Time < TimeSerial(8, 0, 0) Then MsgBox "Buenas Noches" End If End If Y en el evento "Al cronómetro" ponemos: Private Sub Form_Timer() ' Tiempo de repetición del 2º mensaje. Si TimerInterval=0 el mensaje no se repite. Me.TimerInterval = 0 ' Generamos un segundo mensaje según una horquilla de horarios y un determinado valor aleatorio . If Me.Texto11 = 1 Then If Time > TimeSerial(8, 0, 0) And Time < TimeSerial(14, 0, 0) Then MsgBox "Estira las piernas" End If If Time > TimeSerial(14, 0, 0) And Time < TimeSerial(21, 0, 0) Then MsgBox "Date un paseo" End If If Time < TimeSerial(8, 0, 0) Then MsgBox "¿No tienes sueño?" End If End If End Sub
	jj