Ist OK so, So habe ich mich gleich in deinem Programm zurecht gefunden. Bei deiner ersten Version hätte ich mir erst gar nicht die Mühe gemacht den Ablauf zu verstehen.
Nur wie Torsten schon sagte, Kommentarzeilen einfügen. Auch wenn das anfangs lästig erscheint spart es dir im nachhinein viel ärger und Zeit. Ich habe durch gute Kommentarzeilen schon oft viel Zeit gespart.
Du kannst auch Kommentare hinter eine Anweisung setzen, zum Beispiel
Else ' ***** Kommentar ****
Ich würde jetzt noch deine If umändern. So ist sie noch übersichtlicher. Man sieht gleich, daß wenn die drei Schalter 1 sind "Gerade" ausgeführt wird, andernfalls die andren Ifs abgearbeitet werden. Zudem kannst du die drei andren Abfragen noch einrücken, was das ganze noch übersichtlicher macht.
Code:
Do
If Schalterlinks = 1 And Schaltermitte = 1 And Schalterrechts = 1 Then
Print "g"
Gosub Gerade
Else
If Schalterlinks = 0 Then
Print "L"
Zaehler = 0
Gosub Links
End If
If Schaltermitte = 0 Then
Print "M"
Zaehler = 0
Gosub Mitte
End If
If Schalterrechts = 0 Then
Print "R"
Zaehler = 0
Gosub Rechts
End If
End If
Loop
mfg
guy
Lesezeichen