Visual Basic - Necesito un cronometro

Life is soft - evento anual de software empresarial
 
Vista:

Necesito un cronometro

Publicado por Fernando (61 intervenciones) el 29/04/2006 17:28:19
Hola amigos necestio hacer un cronometro que tenga las siguientes funciones, creo no es muy dificil pero la verdad no tengo idea, la cosa es mas o menos asi debe tener dos botones Iniciar y Reiniciar hasta aqui todo bien, el tema es el siguiente cundo doy un clic en Iniciar debe iniciar el cronometro y a su vez cambiar el caption a Parar, si pulso Parar deberia detener el cronometro y cambiar el caption a Iniciar para que yo luego pulsando en iniciar comience el conteo nuevamente, pero e aqui el problema ya que el conteo lo debe realizar desde donde quedo y no desde cero.
Y logico cuando aprieto reiniciar deberia volverlo a cero.
Espero no se a muy complicado y alguien me pueda ayudar.
Desde y amuchas gracias por leer esto.

PD:

Tengo este codigo pero no se como modifiacarlo para que haga lo que necesito
Private Sub Form_Load()

Timer1.Enabled = False
Cronometro.Caption = "00:00:00"

End Sub

Private Sub BtnInicio_Click()

Cronometro.Caption = "00:00:00"
Iniciar = Timer
Timer1.Enabled = True
Captura.SetFocus
contador = 0

End Sub

Private Sub BtnParar_Click()

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

Dim dif As Single
Dim minutos As Integer
Dim segundos As Integer
Dim centesimas As Integer
Dim bandera As Boolean

If Timer > Iniciar Then

dif = Timer - Iniciar

Else

dif = 86400 - Iniciar + Timer
End If

centesimas = (dif - Fix(dif)) * 100
minutos = (Fix(dif) Mod 3600) \ 60
segundos = (Fix(dif) Mod 60)

Cronometro.Caption = Format(minutos, "00") & ":" & Format(segundos, "00") & ":" & Format(centesimas, "00")
DoEvents
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Necesito un cronometro

Publicado por Cristian (1 intervención) el 01/05/2006 05:20:33
Fernando te paso un cod. que posiblemente es lo que buscas. en la seccion de diseño solo tenes que agregar un textbox y dos botones.
lo que hice con tu cod. es declarar las variables en forma global y luego ir incrementando dichas variables al llegar a 60. espero que te sirva... Un ABRAZO

ante culquier duda de este cod. enviame un mail.

Dim minutos As Integer
Dim segundos As Integer
Dim centesimas As Integer
Private Sub Btinicio_Click()
If BtInicio.Caption = "Iniciar" Then
tx1.Text = "00:00:00"
Iniciar = Timer
Timer1.Enabled = True
contador = 0
BtInicio.Caption = "Detener"
Else
Timer1.Enabled = False
BtInicio.Caption = "Iniciar"
End If
End Sub

Private Sub Command2_Click()
If MsgBox("Restaurar", vbQuestion + vbYesNo) = vbYes Then
tx1.Text = "00:00:00"
minutos = 0
segundos = 0
centesimas = 0
End If
End Sub
Private Sub Form_Load()

Timer1.Enabled = False
tx1.Text = "00:00:00"

End Sub
Private Sub Timer1_Timer()
If Not centesimas = 60 Then
centesimas = centesimas + 1
Else
segundos = segundos + 1
centesimas = 0
End If
If segundos = 60 Then
minutos = minutos + 1
segundos = 0
centesimas = 0
End If
tx1.Text = Format(minutos, "00") & ":" & Format(segundos, "00") & ":" & Format(centesimas, "00")
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Necesito un cronometro

Publicado por Fernando (61 intervenciones) el 02/05/2006 02:18:09
gracias Cristian por tu ayuda, lo pruebo y te digo como anda... un abrazo..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar