Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Trane! en 16 Julio 2011, 21:32 pm



Título: (solucionado)Duda con hora de ejecucion
Publicado por: Trane! en 16 Julio 2011, 21:32 pm
Alguien conoce algun ejemplo o me podria explicar como hacer que una accion determinada se ejecute a una hora que este dentro de un textbox?


Título: Re: Duda con hora de ejecucion
Publicado por: seba123neo en 16 Julio 2011, 21:38 pm
como accion determinada a que te referis, un .exe externo o un proceso de tu mismo programa ?

podrias hasta crear una tarea de windows con apis.


Título: Re: Duda con hora de ejecucion
Publicado por: Trane! en 16 Julio 2011, 21:46 pm
como accion determinada a que te referis, un .exe externo o un proceso de tu mismo programa ?

podrias hasta crear una tarea de windows con apis.

Procesos de mi mismo programa, como por ejemplo a la hora blablabla del textbox que cambie el mensaje de un label ( es solo un ejemplo )


Título: Re: Duda con hora de ejecucion
Publicado por: seba123neo en 16 Julio 2011, 22:32 pm
algo basico seria asi:

Código
  1. Dim vFechaEjecutar As String
  2. Dim vHoraEjecutar As String
  3.  
  4. Private Sub Form_Load()
  5.    ' Cambia los valores de fecha y hora para probar manualmente
  6.    vFechaEjecutar = "16/07/2011"
  7.    vHoraEjecutar = "17:32"
  8.  
  9.    With Timer1
  10.        .Interval = 1000
  11.        .Enabled = True
  12.    End With
  13. End Sub
  14.  
  15. Private Sub Proceso1()
  16.    MsgBox ("se ejecuto el proceso")
  17. End Sub
  18.  
  19. Private Sub Timer1_Timer()
  20.    Me.Caption = Format(Now, "dd/MM/yyyy HH:mm") ' Simplemente para mostrar la fecha y hora
  21.  
  22.    If vFechaEjecutar = Format(Now, "dd/MM/yyyy") And vHoraEjecutar = Format(Now, "HH:mm") Then
  23.        Timer1.Enabled = False
  24.        Call Proceso1
  25.    End If
  26. End Sub

pone un Timer en el formulario.

saludos.


Título: Re: Duda con hora de ejecucion
Publicado por: Trane! en 16 Julio 2011, 22:38 pm
algo basico seria asi:

Código
  1. Dim vFechaEjecutar As String
  2. Dim vHoraEjecutar As String
  3.  
  4. Private Sub Form_Load()
  5.    ' Cambia los valores de fecha y hora para probar manualmente
  6.    vFechaEjecutar = "16/07/2011"
  7.    vHoraEjecutar = "17:32"
  8.  
  9.    With Timer1
  10.        .Interval = 1000
  11.        .Enabled = True
  12.    End With
  13. End Sub
  14.  
  15. Private Sub Proceso1()
  16.    MsgBox ("se ejecuto el proceso")
  17. End Sub
  18.  
  19. Private Sub Timer1_Timer()
  20.    Me.Caption = Format(Now, "dd/MM/yyyy HH:mm") ' Simplemente para mostrar la fecha y hora
  21.  
  22.    If vFechaEjecutar = Format(Now, "dd/MM/yyyy") And vHoraEjecutar = Format(Now, "HH:mm") Then
  23.        Timer1.Enabled = False
  24.        Call Proceso1
  25.    End If
  26. End Sub

pone un Timer en el formulario.

saludos.

Esto es lo que buscaba, muchisimas gracias :'D