Hier mein kleines Programm
Sub main()

'Initialisierung der Mini-Station
MINI_INIT()

'Endlosschleife
Do While True
OUTPUT1_ON() 'Ausgang aktiv
AbsDelay (50) 'kurze Pause
OUTPUT1_OFF() 'Ausgang inaktiv



'lesen
For X = 1 To 1000 Step 1

If INPUT_1(0) = 1 Then A=A+1 Hier Ist mein Denkfehler, wenn ich den sensor aktiviere den geht das signal auf 1 und nur für maximal 30 ms auf 0 ich hab diese zeile auf "If INPUT_1(0) = 0 Then A=A+1" geändert und jetzt geht es
End If

Next


If A > 9 Then OUTPUT7_ON() : End If
If A > 7 Then OUTPUT6_ON() : End If
If A > 5 Then OUTPUT5_ON() : End If
If A > 3 Then OUTPUT4_ON() : End If
If A > 2 Then OUTPUT3_ON() : End If
If A > 1 Then OUTPUT2_ON() : End If
AbsDelay (500) 'kurze Pause


OUTPUT2_OFF()
OUTPUT3_OFF()
OUTPUT4_OFF()
OUTPUT5_OFF()
OUTPUT6_OFF()
OUTPUT7_OFF()

A=1
End While



Vielen dank führ die Mühe und für den Hinweis auf das Program, ich war fest überzeugt das kein Signal 0 ist und ein signal 1, es ist aber andersrum und da das Signal sehr kurz ist hab ich es nicht gemerkt.
Ich nehmer gern noch Tips an wie ich das Signal besser auslesen kann.