hola
quiero hacer un cronometro pero en cuenta regresiva
o sea yo introduzco 2:59:59 horas y empieze a contar hasta
llegar a cero
como puedo hacerlo , no se me ocurre nada :rolleyes:
saludos
Un timmer en 1000 con el tiempo q quieras, manejalo con IF y FOR anidados, si no entendes lo q te digo te paso un ejemplo, saludos !
hola, spero q esto t pueda ayudar ;)
Dim hrs, min, seg As String
Private Sub Form_Load()
'Ponemos las horas,min y seg q queramos...P.e:
hrs = 0
min = 1
seg = 10
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
'Empezamos la cuenta atrás
seg = seg - 1
'/////////////////////////////////////////////////////////////////////////////////////////////////////
'Cuando los valores llegan a 0:
If seg < 0 Then
seg = 59
min = min - 1
End If
If min < 0 Then
min = 59
hrs = hrs - 1
End If
If hrs < 0 Then
hrs = 23 '23h o las 11h, lo q c quiera poner
End If
'/////////////////////////////////////////////////////////////////////////////////////////////////////
'Para los valores <10:
'Ponemos len<2 para evitar q empieze a poner ceros sin parar_
'ya q aunq c pongan el 0 seguirá siendo < 10
If Val(hrs) < "10" And Len(hrs) < 2 Then
hrs = "0" & hrs
End If
If Val(min) < "10" And Len(min) < 2 Then
min = "0" & min
End If
If Val(seg) < "10" And Len(seg) < 2 Then
seg = "0" & seg
End If
Label1.Caption = hrs & ":" & min & ":" & seg
End Sub
:) salu2!
muchisimas gracias xXnewbieXx
tu ejemplo me ha ayudado muchisimo
saludos
y como haces para poner varios conometros en un mismo form ? :huh: se puede .... por ejemplo 5 cronometros difernetes en un mismo form ...... :o
No es necesario complicarse tanto con la conversion de horas, ya que se pueden hacer operaciones matematicas con variables de tipo DATE ya que se manejan internamente como reales.
Tendrias que definir 2 variables, una para la hora y otra para el intervalo que le restas:
Dim Hora, Intervalo as Date
Private Sub Form_Load()
Hora = Timevalue("2:59:59")
Intervalo = Timevalue("00:00:01")
End sub
Private Sub Timer1_Timer()
Hora = Hora - Intervalo
Label1 = Format(Hora, "HH:mm:ss")
End Sub
Saludos
Muy Bueno ....
estoy implentando mi aplicacion y hasta ahora todo sale bien ;D ... no sabia q extia esa funcion para restar horas ..... gracuas por la ayuda cuando lo termine lo subo a esta web .. ojala q haya donde ... :huh:.. ;D
bye