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