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

[Besserwessi]

Die Befehle Enable Timer und Disable Timer steuern nur die Erzeugung von Interrupts - der Timer läuft trotzdem weiter. Ob Bascom da extra Befehle zum Starten und anhalten des Timers hat, weiss ich nicht. Es geht aber auch beim Start einfach mit Timer1= 0 den Wert zurückzusetzen. Am Ende ließt man den Timer dann einmal aus und speichert die Zahl in einer Variable.

Damit wäre auch schon mal geklärt, wieso man nicht direkt mit der Größe Timer rechnen kann.

[D35troy3r]

Ich danke dir! Jetzt funktionierts auch richtig  
Bis 30m/s hab ich eben gemessen...werde mir mal morgen das Luftgewehr suchen und damit eine Messung durchführen  
Ich hoffe das es messbar ist da ichs ja nun nurnoch über einen digitalen port machen.

Hier noch der Code falls das Thema jemand aufsucht:

$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
Dim Y As Word
Cls

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

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

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

End