Alexforo
27 de Septiembre del 2005

Quiero que al apretar un boton en un label me muestre un tiempo que yo asigne, por ejem que inicialize en 1:20:00 (Una hora, 20 minutos, cero segundos) y vaya en retroceso a la velocidad de un reloj comun (1:19:59 y asi sucesivamente) hasta llegar a 0:00:00
Espero alguien me pueda ayudar Gracias de antemano

mvallejos
27 de Septiembre del 2005

Antes que nada necesitas un Timer con la propiedad Interval en 1000 (equivale a 1 segundo).
Luego, codificas una sub, que tome como pararámetro una cantidad de segundos y te lo convierta a Horas, minutos y segundos.
A esta sub la llamas desde el Timer

En este ejemplo, la sub, el primer parametro es la cantidad de segundos totales, esto lo debe descomponer en horas, min y segundos.

Sub Convertir(Segundos, Horas as Integer,Minutos as Integer,Seg As Integer)
Dim Resto as Long

' Tomará solo la parte entera de la división
Horas = Segundos / 3600 ' (60 min x 60 seg)
Resto =Segundos - (Horas * 3600)
Minutos = Resto / 60
Seg = Resto - (Minutos*60)

End Sub

En el Timer, le restas 1 a la cantidad de segundos iniciales, con ese resultado llamas a la sub

Saludos