Visual Basic - Ayuda con contador

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda con contador

Publicado por Juan Pablo (46 intervenciones) el 23/05/2006 16:43:41
Hola a todos, tengo la siguiente duda que no sé como solucionar.
Resulta que poseo un contador que esta en formato de cronometro que me muestra el tiempo de detencion de un proceso. Este contador lo muestro en una celda de una MSFLEXGRID.
El codigo que uso lo muestro a continuacion:

Dim dif As Single
Dim horas As Integer
Dim minutos As Integer
Dim segundos As Integer

If Timer > tiempo1 Then
dif = Timer - tiempo1
Else
dif = 86400 - tiempo1 + Timer
End If

horas = Fix(dif) \ 3600
minutos = (Fix(dif) Mod 3600) \ 60
segundos = (Fix(dif) Mod 60)

MSFlexGrid1.TextMatrix(6, 1) = Format(horas, "00") & ":" & Format(minutos, "00") & ":" & Format(segundos, "00")
DoEvents

Con esto veo el tiempo para una detencion, pero el problema surge cuando existe una segunda, etc y quiero que se sume a la que ya hubo. Y no encuentro la solucion a esto.
Eso sería, espero poder tener ayuda.
Desde ya muchas gracias.
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:Ayuda con contador

Publicado por Jorge (67 intervenciones) el 23/05/2006 17:02:15
si tu cronometro parte de cero deberias poner este codigo en un command
MSFlexGrid1.TextMatrix(6, 1)
No se si se le puede sacar el mid a un msflexgid si es asi prueba esto

Private Sub Command1_Click()
variable = (mid(MSFlexGrid1.TextMatrix(6, 1) ),1,2 * 3600) +(MSFlexGrid1.TextMatrix(6, 1),4,2 * 60)
Iniciar = Timer
Timer1.Enabled = True '
End Sub

entonces cada vez que preciones el command tomara los valores que quedaron en el momento de detenerse y no comenzara de 0.
ojala te sirva
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