Tema: Timer
Ver Mensaje Individual
  #3 (permalink)  
Antiguo 30/09/2005, 06:35
Avatar de piojoman
piojoman
 
Fecha de Ingreso: enero-2005
Ubicación: Argentina
Mensajes: 224
Antigüedad: 20 años, 3 meses
Puntos: 3
Me mareo un poco el comentario pero creo que entendi...
Lo que podes hacer es poner el control Timer, dale un valor a la propiedad intervalo = 500, o lo que te parezca;

Usas un label o algo para tomar el tiempo del sistema con la funcion Now() o la funcion Time() y despues la funcion If..
Ej:

Tiempo= Second(Time) ' Simplemente toma los segundos de la hora

If Second(Time) + 60 > 59 Then ' Se fija si el tiempo original + el agregado se pasa de los 59 segundos
Tiempo = Tiempo - 60 ' Aca se le resta 60 en caso afirmativo
If Second(Time)>= Tiempo Then ' Mira si lo que queremos se cumple
Unload me ' desaparece el Form Actual
Frm_Segundo.Show = True ' Carga otro form
End If
End If

Nota: Tiempo no lo declare como variable porque no lo es, en realidad se Teimpo es una variable jamas se cumplira el IF porque a los segundos actuales se le van a sumar 60 asi que nunca va a hacer lo que qeuremos, te aconsejo que uses otro metodo como un label como testigo

Última edición por piojoman; 30/09/2005 a las 06:42