Ja,kein Problem .


Code:
Dim Taste1 As Bit
Dim Taste2 As Bit
Dim Taste3 As Bit


...
Do
 For I = 1 To Keys
  Key = I
  Select Case Key
  Case 1 : Debounce Pind.0 , 1 , Fall1 , Sub
  Case 2 : Debounce Pind.1 , 0 , Fall2 , Sub
  Case 3 : Debounce Pind.2 , 0 , Fall3 , Sub
  End Select
 Next
Gosub Auswert
Loop
...



Fall1:
Taste1 = 1
Return

Fall2:
Taste2 = 1
Return

Fall3:
Taste3 = 1
Return

Auswert:
'Hier kann man mit If...Then oder Case die Kombinationen auswerten.
'Die höherwertigen Mehrfachkombinationen zuerst.
'also erst 3er dann 2er und am Ende 1er
Return
Ich habs jetzt absichtlich mal ganz simpel und nachvollziehbar gehalten.
Das läst sich auch viel einfacher gestallten aber es geht ja ums Prinzip.

Erst wird einfach in Variablen der Status der Tasten festgehalten und erst am Ende der Abfrageschleife geprüft welche Tastenkombinationen gedrückt wurden.

wie gesagt läst sich das auch etwas geschickter machen als wie da oben.
Nicht das de gleiche einer rumspottet.