Visual Basic - Ejecutar a hora determinada

Life is soft - evento anual de software empresarial
   
Vista:

Ejecutar a hora determinada

Publicado por Facundo (58 intervenciones) el 24/06/2013 20:18:46
Buenas,
les pido ayuda con un programa...

quiero que a determinada hora se ejecute una accion.
para esto, se me ocurrio lo siguiente:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Form_Load()
 
Do
 
If Hour(Now) = 12 Then
    If Minute(Now) = 44 Then
        If ejecutado < 1 Then
 
		ACCION QUE QUIERO QUE SE EJECUTE
 
		ejecutado = 1
 
        End If
    End If
End If
 
 
Loop Until ejecutado = 1
 
End
 
End Sub


Lo que no me gusta de este código es el DO/LOOP UNTIL que se ejecuta a veces durante horas.
Otro problema es que mientras se recorre el DO/LOOP UNTIL el programa no responde.

Hay alguna otra forma de hacer lo que quiero?

Gracias por sus respuestas-
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
1
Responder
Imágen de perfil de Antoni Masana

Ejecutar a hora determinada

Publicado por Antoni Masana (88 intervenciones) el 25/06/2013 06:40:49
Añade un objeto TIMER ponle un intervalo de 500 y en el codigo pones:

1
2
3
4
5
6
Private Sub Timer1_Timer()
    If Time$ = "12:44:01" Then
       MsgBox "Hola"                 ' --- Acción que desea realizar 
       Timer1.Enabled = False        ' --- Desactiva el reloj ( Opcional )
    End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Ejecutar a hora determinada

Publicado por Facundo (58 intervenciones) el 26/06/2013 03:07:39
Gracias! Nunca había usado Timer.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar