Hola de nuevo,
Por fin puedo ejecutar, cosa rara esos simbolos aparecidos.
Me vas a llamar pesado pero...
...hay un par de lineas que no entiendo de tu codigo y me gustaria saber como funciona para poder hacer cambios el dia de mañana.
Código:
Do
If DuracionActivo = 0 Then Exit Do
Tiempo = Timer + DuracionActivo ' ¿¿¿¿¿¿¿¿¿ QUE SIGNIFICA ESTA LINEA???????
Motor1.BackColor = &HFF00&
Out Val("&H" + "378"), Val(10)
DoEvents
Do While Timer < Tiempo ' Aqui se queda indefinidamente.
Loop
Tiempo = Timer + DuracionNoActivo
Motor1.BackColor = &HFF&
Out Val("&H" + "378"), Val(0)
DoEvents
Do While Timer < Tiempo
Loop
Loop
La funcion timer no la entiendo en la linea:
Tiempo = Timer + DuracionNoActivo
no se si es el timer de un temporizador, el timer de la hora de sistema....y al llegar al primer bucle => Do While Timer < Tiempo se queda colgado.
Gracias.