cronometro

[maxnet]

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 

saludos

[Grimble Grumble]

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 !                   
       

[xXnewbieXx]

hola, spero q esto t pueda ayudar 

Código [Seleccionar] Expandir

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!

[maxnet]

muchisimas gracias xXnewbieXx
tu ejemplo me ha ayudado muchisimo

saludos

[juanjoxx]

y como haces para poner varios conometros en un mismo form ? se puede .... por ejemplo 5 cronometros difernetes en un mismo form ......

[Ironhorse]

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:

Código [Seleccionar] Expandir


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

[juanjoxx]

Muy Bueno ....
estoy implentando mi aplicacion y hasta ahora todo sale bien  ... 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 ... ..  

bye