Geschwindigkeitsmessung via 2 Lichtschranken

[D35troy3r]

Das Programm sieht nun folgendermaßen aus:

$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 100
$swstack = 100
$framesize = 100

Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , _
Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcd = 16 * 2

Config Timer1 = Timer , Prescale = 8

Config Pinc.5 = Input
Config Pinc.4 = Input

Config Single = Scientific , Digits = 4
Dim Geschwindigkeit As Single

Cls

Do
If Pinc.5 = 0 Then
Enable Timer1
Exit Do
End If
Loop

Do
If Pinc.4 = 0 Then
Disable Timer1
Exit Do
End If
Loop

Cls

Locate 1 , 1
Lcd Timer1
Geschwindigkeit = 60000 / Timer1
Locate 2 , 2
Lcd Geschwindigkeit ; "m/S"

End

Ich lasse mir gerade die gemessene Zeit und die Geschwindigkeit anzeigen.
Funktioniert ganz gut bis jetzt...doch die Rechnung haut nicht ganz hin?! Ein beispiel: auf dem Display steht 5401us aber eine eine Geschwindigkeit von 5,6m/s lol...

Das verwirrt mich jetzt etwas -.-

Taktteiler ist aus bei meinem Atmega


P.s: gut Problem mit den Berechnungen behoben...Timer1 musste ich in eine variable packen..erst dann waren die Ergebnisse richtig. Ich teste mal weiter