Como usar el control timer ??

@padawan@ · #1 (**permalink**) 13/12/2006, 10:20

Lo que necesito es lo siguiente, en un mismo programa tengo varios procesos , en los cuales quiero darles cierto tiempo entre la ejecucion entre uno y otro, quiero hacer algo asi, por ejemplo:

1 - Se ejecuta el primer proceso
2 - lapso de 30 seg
3 - Se ejecuta el segundo proceso
4 - lapso de 30 seg
5 - Se ejecuta el tercer proceso

intente hacerlo con este control , pero no me sale, estoy investigando como hacerlo , pero necesito hacerlo rapido, si alguien la tiene clara, por favor que me ayude con este codigo, debe ser muy simple, pero no me sale, sera porque estoy muy apurado o que, peo no me sale.

muchas gracias a todos de antemanos.

tazzito · #2 (**permalink**) 13/12/2006, 11:14

mmm prueba algo asi

declara una variable proceso como numerica en el formulario
dentro del timer (declaralo a 30 segundos) ocupa algo asi

if proceso = 1 then
correr proceso 1
proceso = 2
elseif proceso = 2 then
correr proceso 2
proceso = 3
elseif proceso = 3 then
correr proceso 3
proceso = 1
endif

espero te sirva.... aun cuando no lo eh probado

albertovicat · #3 (**permalink**) 13/12/2006, 13:53

Al control Timer tienes que establecerle la propiedad Interval al tiempo deseado, en milisegundos, luego ponerlo en marcha (Enabled = True) cuando sea necesario, pararlo (Enabled = False) etc.
Para lapsos de espera prefiero usar esto:
-----------------------------
Public Sub ESPERAR(S As Single)
Dim T1 As Single
T1 = Timer
Do While T1 + S > Timer
DoEvents
Loop
End Sub
-----------------------------
Debe estar en un módulo, para accederla desde cualquier parte del proyecto. En tu caso le dices
ESPERAR 30
o
Call ESPERAR(30)
y eso es todo.
Te hago notar la presencia de DoEvents dentro del Do While / Loop. Es necesaria para que mientras espera que se cumpla el tiempo puedan ejecutarse otros eventos de otros programas, de otra forma la PC te queda colgada hasta que se cumpla el tiempo.

@padawan@ · #4 (**permalink**) 13/12/2006, 13:56

ok, DoEvents sirve para dejar lapsos de tiempo entonces??

albertovicat · #5 (**permalink**) 13/12/2006, 19:35

No, eso lo hace el Do - Loop.
DoEvents es del lenguaje, lo que hace es consultar si hay algún evento del sistema operativo en espera de ser ejecutado. Por eso si no la ponés la PC se congela (se "cuelga") hasta que termine el Do - Loop.