Visual Basic - automatizacion

Life is soft - evento anual de software empresarial
 
Vista:

automatizacion

Publicado por wladimir (54 intervenciones) el 01/03/2006 20:53:16
hola a todos, tengo el siguiente problema me explico.

me pidieron generar un tabla dbf al presionar un boton lo logre hacer.

aqui viene el problema lo tenia listo y me dijieron que ahora tenia que ejecutarce solo todos los dias a una hora especificada.

si alguien conoce la forma de hacerlo se lo agradeceria bastante, si tiene codigo seria genial pero sino si tienen una pagina de informacion sobre el tema que me pueda ayudar porfavor.

saludos de chile.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:automatizacion

Publicado por jose carlos (340 intervenciones) el 01/03/2006 21:20:14
pon un timer para que se ejecute cada x tiempo y le pones una rutina que capture la fecha (date) y haces la comparación con la que te interesa cuando sea igual lanza la aplicación
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

RE:automatizacion

Publicado por wladimir (54 intervenciones) el 01/03/2006 21:25:12
no tendras un ejemplo porfavor saludos.
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

RE:automatizacion

Publicado por jose carlos (340 intervenciones) el 02/03/2006 00:56:48
Este es un trozo de un programa que hice para apagar el pc a una hora determinada
el timer le llamé COMPROBACION, cuando compara la hora de apagado con la real, fija el tiempo de activación de COMPROBACION, una vez que entre en este evento, lo comprueba cada 60 minutos la comprobación lo hace de hora en hora

Private Sub fijar_Click()

'CALCULA LA HORA DE APAGADO EN SEGUNDOS
tiempo = Val(hora) * 3600 + Val(Min) * 60
'CALCULA EL TIEMPO REAL EN SEGUNDOS
p = InStr(1, Time, ":")
q = InStr(p + 1, Time, ":")
hora1 = Left(Time, p - 1)
min1 = Mid(Time, p + 1, q - p - 1)
seg1 = Right(Time, Len(Time) - q)
tiempo_real = Val(hora1) * 3600 + Val(min1) * 60
comprobacion.Interval = (60 - Val(seg1)) * 1000
comprobacion.Enabled = True
'COMPARA SI LA HORA DE APAGADO ES MENOR QUE LA HORA REAL
If tiempo_real > tiempo Then
fecha = Date
End If
End Sub

Private Sub comprobacion_Timer()
comprobacion.Interval = 60000
'CALCULA EL TIEMPO REAL EN SEGUNDOS
p = InStr(1, Time, ":")
q = InStr(p + 1, Time, ":")
hora1 = Left(Time, p - 1)
min1 = Mid(Time, p + 1, q - p - 1)
' seg1 = Right(Time, Len(Time) - q)
tiempo_real = Val(hora1) * 3600 + Val(min1) * 60
'COMPARA SI HAY CAMBIO DE DIA
If fecha <> "" Then
p = InStr(1, Date, "/")
dia_salto = Left(Date, p - 1)
p = InStr(1, fecha, "/")
dia_comp = Left(fecha, p - 1)
If dia_salto <> dia_comp Then fecha = ""
End If
'SI NO HAY CAMBIO DE DIA COMPARA TIEMPOS PARA APAGAR
If fecha = "" Then
If tiempo_real >= tiempo Then
AQUI TIENES QUE PONER LO QUE TE INTERESA A TI
End If
End If
End Sub

no se si te servirá de algo, pero aqui lo tienes
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

RE:automatizacion

Publicado por Cecilia Colalongo (3116 intervenciones) el 02/03/2006 02:09:09
Utiliza el programador de tareas de Windows y define ahí que días debe ejecutarse y a que hora.
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