Geschwindigkeitsmessung via 2 Lichtschranken

[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