Zitat Zitat von Der bastler Beitrag anzeigen
wenn ich richtig verstehe kommt das was in der do loop schleife nichts rein richtig?
Das hängt von Deinem Programm ab. Wenn die Schalter ständig abgefragt werden müssen bzw sollen, sähe es so aus:

Code:
do

Kodierschalter = PINB And &B0000_0111

Select Case Kodierschalter
  Case 0 : Gosub Prog_0
  Case 1 : Gosub Prog_1
  Case 2 : Gosub Prog_2
'  Case 3 : Gosub Prog_3
'  Case 4 : Gosub Prog_4
  Case 7 : Gosub Testlauf
'  Case Else: gosub xy
End Select

Loop
Das SELECT-CASE ist der Ersatz für Dein IF THEN und müßte Deinem Beispiel nach auch in die DO LOOP Schleife zusammen mit der PIN Abfrage. Wie gesagt, hängt von Deinem übrigen Programm ab.

Gruß
Searcher