Frage Summe Eingangspin bilden

[Picht]

Hallo,
ich will mit meinen Attiny 2313 5 Pins überwachen.
nur einer darf auf H sein.
Jetzt wollte ich schreiben:

If Summe Pinb.= 1 Then
Print "OK"
Else
Print "Leitungsfehler"
End if

Summe Pinb. wollte ich als Sub unten ablegen.
Geht das in Bascom überhaupt.und wie könnte man das machen.
Ein Bascom Anfänger

Wigbert

[linux_80]

Hallo,
so kommts mit einfacher vor, ohne Sub:

Dim B As Byte

B = Pinb And &B00111110
If B > 0 Then
    Print "OK"
Else
    Print "NOK"
End if

nach dem AND dann diese Pins auf eins, die abgefragt werden sollen, wenn dann eins dieser Pins mal high ist, ist der Gesamtwert grösser als 0 und dann trifft das zu.

PS:
hab das jetzt aber nicht in der Praxis ausprobiert !

[Picht]

Hallo,
Danke für den Code.Im Programm muss das "Vergleichen"
mehrmals gemacht werden.Aber ich denke ich komme erst mal
weiter.

Wigbert