Dani
06 de Febrero del 2006

Hola amigos, estoy intentando hacer un contador que me cuente desde 3600 segundos es decir una 1h hasta 0.Que descuente en segundos. Tengo una variable inicializada en 3600 y quiero que me vaya descontando en segundos hasta llegar a cero.
ALguien me puede ayudar??
Muchas gracias.

Rosa
06 de Febrero del 2006

Usa un timer con su propiedad Interval en 1000 para que su evento Timer se ejecute cada segundo y descuente tu variable a nivel de módulo, así:


Dim mintContador As Integer

Private Sub Form_Load()

mintContador = 3600

End Sub

Private Sub Timer1_Timer()

If mintContador > 0 Then
mintContador = mintContador - 1
Else
MsgBox "Contador en cero"
End If

End Sub