hi,
ich probiere das, wie da_reefer meinte, mit maskedport aus. Jedoch verstehe ich das nicht ganz.

Code:
Dim MaskedPort as Byte
...
MaskedPort = Pind And &b00001111
If MaskedPort = S Then
...
ich muss dim maskedport as byte nur einmal erwähnen.
Dann MaskedPort = Pind And &b00001111 so abändern, dass da wo die 4 Einsen sind die BCD Codes hinkommen. Also so etwa?
Code:
Dim Maskedport As Byte

Maskedport = Pind And &B00000001
Maskedport = Pind And &B00000010
Maskedport = Pind And &B00000011
Maskedport = Pind And &B00000100
Maskedport = Pind And &b00000101
Maskedport = Pind And &B00000110
Maskedport = Pind And &B00000111
Maskedport = Pind And &B00001000
Maskedport = Pind And &B00001001
Maskedport = Pind And &B00001011
Maskedport = Pind And &B00001100
aber wo werden dann die BCD Namen verteilt, wie 1, 2, 3, 4, ..., s, r?
Oder stehe ich aufem Schlauch ?
gruß baschdi1649