@Hardstyleroxx


Da ist einiges zu tun.
Ich hätte es ganz anders gemacht aber da hat jeder seinen eigenen Stil also versuch ich es mit ner Korrektur.:


Zum einen die Variable "Pr1_3" im Unterprogramm "Pr_wechsel"

Du erhöhst um eins.
Prüfst aber erst welche Subroutine angesprungen wird und erst zuletzt ob die Variable überläuft.
In letzterem Falle passiert da garnix.

Der Passus der Prüfung muß nach oben also erst prüfen dann springen (Wie beiden Fallschirmspringern)


Dann in den Unterroutinen (zb. "Pr_1") am Ende gibst bei einer "Nichtänderung" ein weiteres "Gosub" ind das gleiche unterprogramm.
So läuft dir der schnell Stack über.
Da gehöhrt also ein "Goto" hin also :

If Pr1_3 = 0 Then
Goto Pr_1
Else


Ja und den Timer hast du zwar angelegt und mit einer Subroutine bedacht aber ich sehe nirgens einen Sprung in diese Routine.
Ohne Einsprung kann das auch nicht klappen.
Das solltest du in die Hauptroutine noch einbauen '-)



Und zuletzt:

Du springst nur beim Tastendruck einmal in die Subroutinen und das wars dann.
Geht so nicht.




Ich würde wie schon erwähnt wurde den Taster auf einen Interrupt legen damit das Programm "Jederzeit" reagieren kann aber das hat erstmal Zeit bis das Programm erstmal richtig läuft.




Mehr will ich jetzt nicht machen.

X-Ryder hat ja angeboten dir zu helfen und Zwei Leute sind einer zuviel also will ich mich nicht weiter einmischen.