Ich habe nochmal etwas experimentiert und habe dann dieses Programm herausbekommen:


$regfile = "m32def.dat"
$crystal = 1000000
$baud = 1200

Dim Umdr As Integer

Config Portd.7 = Output
Config Pinc.0 = Input
Portc.0 = 1

Do
If Pinc.0 = 1 Then
Portd.7 = 1
Umdr = Umdr + 1
Print "Umdrehungen: " ; Umdr
Else
Portd.7 = 0
End If
Loop

End


Das Programm zählt zu der Variable Umdr +1 dazu, wenn das Loch zwischen der schranke ist.
Jetzt ist mein Problem, dass, wenn das Rad langsam ist, so lange das Loch zwischen der Schranke ist, dass es so lange +1 rechnet.
Wie kann ich das umgehen?
Gibte es eine Befehl, der sagt, dass er so lange warten soll, bis das Signal wieder an ist und dann erst zu Do springt?

Für den Anfang wäre das so erst mal in Ordnung. Ich kann halt wärenddessen nichts anderes machen.

Trotzdem wäre es sehr schön, wenn noch jemand eine Idee hätte.
Ich würde mich sehr freuen, da ich fast schon am verzweifeln bin.
Kaum funktioniert mal die Elektronik bekomme ich kein ordentliches Programm hin!!

Also ganz habe ich die Hoffnung noch nicht aufgegeben!!

jon