Hallo,

danke für die Antworten. Mal sehen, vielleicht funktionierts auch mit einem Hallschalter. Um das Entprellen würde ich mich ja gerne drücken...

Könnte das hier funktionieren?

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

Config Pinb.1 = Input
Sensor1 Alias Pina.1
Config Pinb.2 = Input
Sensor2 Alias Pina.2
Config Pinb.3 = Input
Eingang Alias Portb.3
Config Portb.4 = Output
Ausgang Alias Portb.4

Dim A As Byte
Dim B As Byte
A = 0
B = 0

Do
If Sensor1 = 1 And Eingang = 0 Then
A = A + 1
End If
Loop Until Eingang = 1

If Eingang = 1 Then
B = B + 1
End If

If B = A Then
Ausgang = 0
End If

End
Über Verbesserungsvorschöäge freue ich mich,

Johannes