Visual Basic - ayuda con el timer

Life is soft - evento anual de software empresarial
 
Vista:

ayuda con el timer

Publicado por Danos (50 intervenciones) el 20/04/2006 00:59:59
hola que tal

estoy haciendo un programa de un cronometro, pero necesito saber como le hago para que el cronometro siga corriendo hacia delante

ejemplo : cuando le doy iniciar empiesa en 00:00:00:00, lo que quiero hacer es darle
00:30:00:00 u otro tiempo y de apartir de ahi corra hacia adelante

00:30:00:01
00:30:00:02
00:30:00:03
00:30:00:04
00:30:00:05

pongo codigo de mi programa de cronometro si me pueden ayudar.

el programa funciona bien pero empiesa a partir de 00:00:00:00

saludos a todos GRACIAS.

ption Explicit

Dim pararHoras As Integer
Dim pararMinutos As Integer
Dim pararSegundos As Integer
Dim pararCentesimas As Integer

Dim Iniciar As Single
_____________________________________________
Private Sub Command1_Click()
Iniciar = Timer
Timer1.Enabled = True
End Sub
_____________________________________________
Private Sub Form_Load()
Iniciar = Timer
Timer1.Enabled = False
End Sub
_____________________________________________
Private Sub Timer1_Timer()
Dim dif As Single
Dim horas As Integer
Dim minutos As Integer
Dim segundos As Integer
Dim centesimas As Integer

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

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

Text5.Text = Format(horas, "00")
Text6.Text = Format(minutos, "00")
Text7.Text = Format(segundos, "00")
Text8.Text = 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:ayuda con el timer

Publicado por Jorge (67 intervenciones) el 21/04/2006 23:23:11
Lo que tienes que hacer es crear unja variable donde guardas el calculo de segundos que tienen las horas + los minutos

Private Sub Command1_Click()
variable = (Text5 * 3600) + (Text6 * 60) '
Iniciar = Timer
Timer1.Enabled = True '
End Sub

despues

If Timer > Iniciar Then
dif = variable + Timer - Iniciar
Else
dif = 86400 - Iniciar + Timer
End If
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:ayuda con el timer

Publicado por Danos (50 intervenciones) el 22/04/2006 20:32:54
GRACIAS POR TODO JORGE TE LO AGRADESCO ENORMEMENTE.

SALUDOS
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