Wo sind sie jetzt dran, an A oder an D?
Du kannst schon mit
Elseif Pind = &B10000000 Then
den ganzen Port abfragen, aber dann müssen auch die unbenutzten Pins auf 0 liegen.
Wenn du also nur 4 Schalter dran hast, dann ist so zunächst einmal nicht sicher, dass sie das auch tun.
Wenn du pulldown Widerstände nach Masse an jeden Pin machst, auch an die mit Codierschalter dran, dann sollte die Abfrage funktionieren.
Lesezeichen