Imprimir Página - como crear una cuenta regresiva?

Título: como crear una cuenta regresiva?
Publicado por: ricardovinzo en 18 Noviembre 2008, 05:03 am

Buenas... como con un timer puedo crear una cuenta regresiva, por ejemplo que la cuenta sea de 2 minutos pero en segundos... y se muestre el tiempo que ha transcurrido en un label y cuando ese tiempo ( 120 segundos ) sea 0 muestre un mensaje??...

Gracias!

Título: Re: como crear una cuenta regresiva?
Publicado por: ‭‭‭‭jackl007 en 18 Noviembre 2008, 05:23 am

declaras una variable global en tu proyecto: dim Contador as integer
en el evento load colocas: contador = 2 * 60 '2 minutos!

mira pones al timer el intervalo: 1000 y se ejecutara cada segundo.
y en su evento colocas:
contador = contador -1
if contador = 0 then
msgbox "Pasaron dos minutos"}
timer1.enabled= false
end if

facil no?

Título: Re: como crear una cuenta regresiva?
Publicado por: cassiani en 18 Noviembre 2008, 06:00 am

Código

Option Explicit
Dim Minutos  As Integer
Dim Segundos As Byte
 
Private Sub Form_Load()
    Timer1.Interval = 1000
    Minutos = 2
    Segundos = 0
    Label1.Caption = Format(Minutos & ":" & Segundos, "Short Time")
End Sub
 
Private Sub Timer1_Timer()
    If Segundos > 0 Then
        Segundos = Segundos - 1
    ElseIf Segundos = 0 Then
        Minutos = Minutos - 1
        If Minutos = -1 Then
            Minutos = 0
            Label1.Caption = Format(Minutos & ":" & Segundos, "Short Time")
            Timer1.Enabled = False
        Else
             Segundos = 59
        End If
    End If
    Label1.Caption = Format(Minutos & ":" & Segundos, "Short Time")
End Sub

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: ricardovinzo en 18 Noviembre 2008, 05:03 am