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
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


0