Precisión del control Timer

[Antonio92]

Buenas,


como ya he puesto en otro hilo estoy haciendo un programa que cuente tiempos entre clicks, para el cual estoy utilizando un control Timer, quería precisión de centésima de segundo pero me dan medidas muy imprecisos (cuento con mi reloj que pasen 10 segundos entre clicks y el programa me dice que han pasado 6,2 y cosas así, notándose más el efecto "retardo" cuanto más tiempo dejo pasar entre clicks).

Si cambio el intervalo del Timer para que capte solo precisión de décima de segundo (pongo Timer1.Interval a 100) es bastante menos impreciso, pero sigue siéndolo y en tiempos grandes se nota. ¿A qué se debe esto? ¿Puedo solucionarlo de alguna manera?

El código en cuestión es el siguiente (en este caso tengo Timer1.Interval a 10 para captar precisión de centésima de segundo):

Código :

Dim Tiempo As Integer
Dim Indice As Integer
Dim Fichero As String
 
Private Sub Command2_Click()
Tiempo = 0
End Sub
 
 
Private Sub Form_Load()
Tiempo = 0
Indice = 1
Fichero = InputBox("Introduzca el nombre del archivo en el que quieres guardar los tiempos", "CuentaTiempos versión 0.01 por Antonio Álvarez")
Open App.Path & "\" & Fichero & ".txt" For Append As #1
End Sub
 
Private Sub Command1_Click()
List1.AddItem "Tiempo de oscilación " & Indice & ": " & Tiempo / 100 & " segundos"
Print #1, "Tiempo de oscilación " & Indice & ": " & Tiempo / 100 & " segundos"
Tiempo = 0
Indice = Indice + 1
End Sub
 
Private Sub Timer1_Timer()
Tiempo = Tiempo + 1
End Sub
 

[erbuson]

Hola:

Según dices, estas midiendo tiempos entre Clicks, ¿ Significa esto que el tiempo empieza a contar cuando haces un Click en un Boton y termina cuando lo haces en otro ?

Si es así, pienso que no necesitas realmente el control timer puesto que es mucho mas sencillo utilizar la variable Timer

Si tienes una variable comun definida

Dim Inicio as Single

en Command1 Inicio = Timer

en Command2 Transcurrido = Timer - Inicio

He sido breve en la explicación pero si necesitas mas aclaración coméntalo.

Saludos

[Antonio92]

Iniciado por erbuson

Hola:

Según dices, estas midiendo tiempos entre Clicks, ¿ Significa esto que el tiempo empieza a contar cuando haces un Click en un Boton y termina cuando lo haces en otro ?

Si es así, pienso que no necesitas realmente el control timer puesto que es mucho mas sencillo utilizar la variable Timer

Si tienes una variable comun definida

Dim Inicio as Single

en Command1 Inicio = Timer

en Command2 Transcurrido = Timer - Inicio

He sido breve en la explicación pero si necesitas mas aclaración coméntalo.

Saludos

Gracias por la respuesta, sin embargo no entiendo muy bien a qué te refieres.
Lo que quiero es que al hacer click en un botón (Command1) se resetee el "cronómetro" y se imprima a la listbox (y al fichero) el tiempo actual, y así con cada click. El botón Command2 está hecho sólo para usarse la primera vez, sería para empezar el experimento (lo hice así porque es para unas prácticas de Física y necesito un botón solamente para empezar tal como tengo montado el sistema). No sé si me explico.
Saludos

[erbuson]

Hola:

Copia este código y podrás probarlo a ver si te sirve, necesitas command1, command2 y list1 no necesitas el timer

En principio es para que entiendas la idea, despues si es necesario comentamos las dudas.

Código:

Option Explicit

Dim Tiempo As Single
Dim Indice As Integer
Dim Fichero As String
 
Private Sub Command2_Click()
Tiempo = Timer
End Sub
 
Private Sub Form_Load()
Command2.Caption = "Reiniciar"
Command1.Caption = "Guardar"
Fichero = InputBox("Introduzca el nombre del archivo en el que quieres guardar los tiempos", "CuentaTiempos versión 0.01 por Antonio Álvarez")
Open App.Path & "\" & Fichero & ".txt" For Append As #1
End Sub
 
Private Sub Command1_Click()
Tiempo = Timer - Tiempo
List1.AddItem "Tiempo de oscilación " & Indice & ": " & Tiempo & " segundos"
Print #1, "Tiempo de oscilación " & Indice & ": " & Tiempo / 100 & " segundos"
Tiempo = Timer
Indice = Indice + 1
End Sub

Saludos

[Antonio92]

No lo he copiado tal cual pues quería entenderlo, no copiarlo pero ya he captado la idea, el caso era que no conocía la variable Timer, ahora ya sé usarla y ya la he aprovechado para mi programa. Muchas gracias ;)

[erbuson]

Saludos y cualquier duda ya sabes donde preguntar.