|
Título: llevar a cabo accion en determinado horario Publicado por: rubeng en 3 Julio 2006, 21:56 pm wenas , tengo una pregunta , como puedo hacer para que se realice una tarea en determinado horario, ya que el uso del timer es muy limitado ademas de que no me sirve para lo que necesito
salu2 Título: Re: llevar a cabo accion en determinado horario Publicado por: Ragnarok en 3 Julio 2006, 22:01 pm Si que te sirve, pones un timer que cada 6mn mire la hora que es, dadas la hora de la tarea (t) y la hora que es (h) compruebas si |t-h| <= 3mn y de ser así realizas la tarea.
PD: o aún mejor, al arrancar el programa compruebas la hora que es, y pones un timer para t-h. La cuestión es que se hace con un timer, sólo necesitas poder ver la hora actual, en C se hace con time, en VB seguro que es parecido. Título: Re: llevar a cabo accion en determinado horario Publicado por: Robokop en 3 Julio 2006, 22:13 pm como te dice ragnarok tienes que usar un timer que cada cierto tiempo compruebe la hora por ejemplo:
Código: If Hour(Now) = 15 Then En minutos seria asi: Código: If minute(Now) = 34 Then recuerda que en horas debes de usar un formato de 24 horas es decir si son las 3 poner 15 , 6:18 etc.. Si lo quieres para tu sistema has un buen code para que no te gaste demasiados recursos. Título: Re: llevar a cabo accion en determinado horario Publicado por: rubeng en 4 Julio 2006, 01:02 am gracias a los dos pense que el timer no me servia por que solo llega a 60 segundo (1 min) gracias de nuevo
salu2 Título: Re: llevar a cabo accion en determinado horario Publicado por: -POLACO- en 13 Julio 2006, 19:11 pm Otra forma de hacerlo pero es casi lo mismo, es asi:
pones 2 TextBox y un Timer en un form 'codigo Private Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = True End Sub Private Sub Text1_Change() If Text1 = Text2 Then MsgBox "LEgo la hora" End Sub Private Sub Timer1_Timer() Text1 = Format(Now, "hh:mm:ss")'da la hora completa del pc End Sub 'en el text2 cuando pongas la hora acordate de separarlo con ":" . 'fin codigo cuando se igualan los dos tectbox ejecuta la accion . Saludos espero te sea util.-. |