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 :
Ver originalDim 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