Título: Cuenta regresiva Publicado por: Demereth en 27 Marzo 2013, 20:58 pm Hola, necesito hacer un programa muy sencillo en el que haga una cuenta regresiva,y al terminarla haga un sonido de alarma y comienze nuevamente, tambien quiero que sea siempre visible y que se active con Av Pag o Supr.
ALGO ASI QUIERO: http://babilonia.jimdo.com/app/download/302514513/5153511b%2F2115afa03029c949e494d5c906b3a5e30b397d6d%2FVaquita.zip?t=1224601309 (http://babilonia.jimdo.com/app/download/302514513/5153511b%2F2115afa03029c949e494d5c906b3a5e30b397d6d%2FVaquita.zip?t=1224601309) pero que vos elijas los segundos de la cuenta regresiva. La cuenta regresiva ya esta hecha, lo que no pude hacer es que comienze de nuevo al terminar, y que haga la alarma, lo de que sea siempre visible y se inicie con una tecla debe ser sencillo. Yo se que es muy simple pero no se de vb6. aca el codigo del contador: Código: Private Sub Command1_Click() Label2.Caption = "00:00:" & Text1.Text Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Label2.Caption = Format(CDate(Label2.Caption) - CDate("00:00:01"), "hh:mm:ss") If Label2.Caption = "00:00:00" Then Timer1.Enabled = False End If End Sub Gracias. EDITO: YA LOGRE QUE SEA SIEMPRE VISIBLE Y SE INICIE CON UNA TECLA, LO QUE ME FALTA ES QUE AL TERMINAR HAGA UN SONIDO Y COMIENZE DE NUEVO. Título: Re: Cuenta regresiva Publicado por: MCKSys Argentina en 27 Marzo 2013, 21:11 pm Te dejo el codigo de un "reloj de ajedrez" que hice hace un tiempo. Tiene la cuenta regresiva que pides y agunas cosillas mas (es el form completo).
Código
Espero te sirva... Saludos! Título: Re: Cuenta regresiva Publicado por: Demereth en 28 Marzo 2013, 00:36 am Gracias por la ayuda, pero ya empeze el mio, un sencillo exe que vos pones una cifra en un text, pones start y empieza la cuenta regresiva, lo que quiero hacer y no puedo es que cuando termine, reproduzca un sonido cortito y comienze de nuevo, y asi sucesivamente.
Saludos Título: Re: Cuenta regresiva Publicado por: Demereth en 28 Marzo 2013, 16:47 pm Ya lo pude hacer lo solucione con este simple cambio:
Private Sub Timer1_Timer() Label2.Caption = Format(CDate(Label2.Caption) - CDate("00:00:01"), "hh:mm:ss") If Label2.Caption = "00:00:00" Then Beep Label2.Caption = "00:00:" & Text1.Text End If End Sub SOLUCIONADO |