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!
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?
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