Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => 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
Cita de: 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.

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 (vb) [Seleccionar]
Dim vFechaEjecutar As String
Dim vHoraEjecutar As String

Private Sub Form_Load()
    ' Cambia los valores de fecha y hora para probar manualmente
    vFechaEjecutar = "16/07/2011"
    vHoraEjecutar = "17:32"

    With Timer1
        .Interval = 1000
        .Enabled = True
    End With
End Sub

Private Sub Proceso1()
    MsgBox ("se ejecuto el proceso")
End Sub

Private Sub Timer1_Timer()
    Me.Caption = Format(Now, "dd/MM/yyyy HH:mm") ' Simplemente para mostrar la fecha y hora

    If vFechaEjecutar = Format(Now, "dd/MM/yyyy") And vHoraEjecutar = Format(Now, "HH:mm") Then
        Timer1.Enabled = False
        Call Proceso1
    End If
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
Cita de: seba123neo en 16 Julio 2011, 22:32 PM
algo basico seria asi:

Código (vb) [Seleccionar]
Dim vFechaEjecutar As String
Dim vHoraEjecutar As String

Private Sub Form_Load()
    ' Cambia los valores de fecha y hora para probar manualmente
    vFechaEjecutar = "16/07/2011"
    vHoraEjecutar = "17:32"

    With Timer1
        .Interval = 1000
        .Enabled = True
    End With
End Sub

Private Sub Proceso1()
    MsgBox ("se ejecuto el proceso")
End Sub

Private Sub Timer1_Timer()
    Me.Caption = Format(Now, "dd/MM/yyyy HH:mm") ' Simplemente para mostrar la fecha y hora

    If vFechaEjecutar = Format(Now, "dd/MM/yyyy") And vHoraEjecutar = Format(Now, "HH:mm") Then
        Timer1.Enabled = False
        Call Proceso1
    End If
End Sub


pone un Timer en el formulario.

saludos.

Esto es lo que buscaba, muchisimas gracias :'D