Cronometro con decimas de segundo - VB-MUNDO

Zion_Tm · #1 (**permalink**) 20-01-2007, 23:42:54

Hola :

Alguien me puede dar una mano a corregir este cronometro ??

Código:

Option Explicit
Dim decimas As Integer
Dim segundos As Integer
Dim c As Integer
Dim hora As Integer




Private Sub Timer1_Timer()
timer1.interval = 10
Text1.Text = Str(Val(Text1.Text) + 1)
decimas = decimas + 1
Text1.Text = decimas

Text2.Text = segundos
If decimas = 90 Then
    segundos = segundos + 1
End If
If decimas = 100 Then
    decimas = 0
End If
'----------------------------------

Text3.Text = c

If segundos = 59 Then
    c = 1
End If
If segundos = 60 Then
    segundos = 0
End If
'------------------------------------
Text4.Text = hora
If c = 60 Then
    hora = 1
End If
If c = 60 Then
    c = 0
End If
End Sub

J.M.Movilla · #2 (**permalink**) 21-01-2007, 08:15:34

Teóricamente creo que quedaría mejor asÍ:

Código:

Option Explicit
Dim decimas As Integer
Dim segundos As Integer
Dim minutos As Integer
Dim horas As Integer


Private Sub Timer1_Timer()

    decimas = decimas + 1
    If decimas = 100 Then
        segundos = segundos + 1
        decimas = 0
    End If
    Text1.Text = decimas
    '----------------------------------
    
    If segundos = 60 Then
        minutos = minutos + 1
        segundos = 0
    End If
    Text2.Text = segundos
    '----------------------------------
    
    If minutos = 60 Then
        horas = horas + 1
        minutos = 0
    End If
    Text3.Text = minutos
    '------------------------------------
    
    If horas > 24 Then
        horas = 0
    End If
    Text4.Text = horas
    
End Sub

Pero compruebo que NO CUENTA correctamente... Hay mucha demora probablemente por el delay de presentación del vídeo... y resulta que en un minuto pierde más de 10 segundos... Y es que para contar décimas de segundo con exactitud no podemos meterle tantas líneas de comparaciones con las que pierde tiempo que no puede admitir el cronómetro.

MiguelS · #3 (**permalink**) 21-01-2007, 12:36:14

Conviene usar el http://www.mvps.org/vb/code/ccrpTmr6.zip.
Con el vas a poder medir correctamente el tiempo con resolucion de 1 ms.

Zion_Tm · #4 (**permalink**) 22-01-2007, 02:24:41

Tienes razon , pierde tiempo haciendo la comparacion de los " If " ...... estuve provando una y otra vez hasta que quedo casi correcto modificando las decimas a 63 en vez de 100. ( cotejado con el reloj de win ).

Gracias por la ayuda Sr Movilla , Agradecido :smt006

MiguelS · #5 (**permalink**) 22-01-2007, 07:37:11

El error del tiempo no es previsible y depende de todos los programas que corren en la maquina y de capacidad de la misma.
Por lo tanto, es una mala idea utilizar el timer de vb para medir tiempo.
Con el timer propuesto en mi previo post puedes recibir resultados exactos por que:
1) Tiene una resulucion real de 1ms cuando el de vb no garantiza menos de 10ms.
2) El evento del timer indica exactactamente cuanto tiempo paso , asi que si por alguna razon el evento se demora , se sabe exactamentecuanto tiempo paso.
3) Tiene un objeto stopwatch que mide el tiempo total dese que se resetea , con una resolucion de 1ms.
4) El tiempo esta representado en Long y no en Integer , por loque se pueden medir tiempos largos.

J.M.Movilla · #6 (**permalink**) 22-01-2007, 18:52:49

Indudablemente, MiguelS tiene toda la razón... Olvídate de recursos correctores que no te garantizan ningún buen resultado.