reto

andy
07 de Junio del 2006
hola a todos, saben espero alguien de ustedes pueda ayudarme, estoy tratando de hacer un \"cuenta atras\" en donde yo inserto el tiempo necesario y que cuando llegue a cero ejecute una accion, ademas necesito ver en un recuadro el tiempo que falta para que mi tiempo llegue a cero, se que estoy en buenas manos pues no creo que sea un reto tan dificil a programadores de su nivel! saludos y gracias anticipadas

goyi
07 de Junio del 2006
Hola!!!!

Aqui te dejo el codigo y te explico un poco:
Lo que necesitas para hacer este cuenta atras, tienes que crear un textbox(donde vas a meter el numero que tu quieras), un commandbutton(para que empiece la cuenta atras) y un timer(para que haga la cuenta atras).
El timer tiene unas propiedades y entre ellas hay una que es interval que lo pones a 1000 y asi te cuenta los segundos.
------------------------------------------------------------------
'Metes el numero y le das al boton para que empiece la cuenta atras.
Private Sub Command1_Click()
If Text1.text <> "" Then
Command1.Enabled = False
Text1.Enabled = False
Timer1.Enabled = True
Else
MsgBox ("¡Mete un numero!"), vbOKOnly
Text1.SetFocus
End If
End Sub

'Despues codificas el timer para que te haga la cuenta atras.
Private Sub Timer1_Timer()
If Text1 = 1 Then
Text1 = Text1 - 1
'Aqui pones el codigo de la accion que quieras que haga
Timer1.Enabled = False
Else
Text1 = Text1 - 1
End If
End Sub
------------------------------------------------------------------

Ya esta, espero que te sirva.
Besos!!!

Goyi

goyi
07 de Junio del 2006
Denada

Si tienes alguna otra duda, no dudes en preguntar por el foro o por mi direccion: [email protected]
respondere encantada.

Besos!!

Goyi