Tema destacado: [Overclocking] Récords de overclock del foro
 Autor
|
Tema: (solucionado)Duda con hora de ejecucion (Leído 456 veces)
|
Trane!
 Desconectado
Mensajes: 101
Welcome to New Radius!
|
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?
|
|
|
|
« Última modificación: 16 Julio 2011, 22:39 por Trane! »
|
En línea
|
|
|
|
|
seba123neo
|
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.
|
|
|
|
|
En línea
|
Mucha gente, especialmente la ignorante desea castigarte por decir la verdad, por ser correcto, por ser tú. Nunca te disculpes por ser correcto, o por estar años delante de tu tiempo.
Si estas en lo cierto, y lo sabes, que hable tu razón. Incluso si eres una minoria de uno solo, la verdad sigue siendo la verdad. M. Gandhi
|
|
|
Trane!
Desconectado
Mensajes: 101
Welcome to New Radius!
|
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 )
|
|
|
|
|
En línea
|
|
|
|
|
seba123neo
|
algo basico seria asi: 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. |
|
|
|
|
En línea
|
Mucha gente, especialmente la ignorante desea castigarte por decir la verdad, por ser correcto, por ser tú. Nunca te disculpes por ser correcto, o por estar años delante de tu tiempo.
Si estas en lo cierto, y lo sabes, que hable tu razón. Incluso si eres una minoria de uno solo, la verdad sigue siendo la verdad. M. Gandhi
|
|
|
Trane!
Desconectado
Mensajes: 101
Welcome to New Radius!
|
algo basico seria asi: 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
|
|
|
|
|
En línea
|
|
|
|
|
 |
