como crear una cuenta regresiva?

[ricardovinzo]

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!

[‭‭‭‭jackl007]

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?

[cassiani]

Código (vb) [Seleccionar] Expandir

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