Hallo Leute
Kann mir mal jemand sagen warum der Code nicht funktioniert?


$regfile = "m8def.dat".dat "
$crystal = 1000000

Dim X As Word

Config Pind.4 = Input
Config Portd.5 = Output
Config Portd.6 = Output


Do
Pulsein X , Pind , 4 , 0

If X <= 34000 Then
Portd.5 = 1
Elseif X > 34000 And X <= 64000 Then
Portd.6 = 1

End If
Loop

Ich möchte die Drehzahl eines Motors überwachen.Das Eingangssignal hat zwischen 4 ms und 30 ms.
Kann mir jemand helfen?

Gruß
Horst12