Das deutsche QBasic- und FreeBASIC-Forum

[Nullchecker]

Hallo, bin FB Anfänger, habe früher mal auf dem C64 in Basic programmiert.
Da es ja in FB kein GOTO oder GOSUB gibt stehe ich vor einem kleinen Problem.

Ich möchte von einem Hauptmenü aus in ein anderes springen, und von dort aus entweder zurück ins Hauptmenü oder in ein anderes.

Mein Testprogramm (Hauptmenü, 2 Untermenüs) läuft leider nicht.
Für euere Hilfe wäre ich sehr Dankbar.

Hier das Programm:

DECLARE SUB Hauptmenue (x AS INTEGER)
DECLARE SUB m1 (x AS INTEGER)
DECLARE SUB m2 (x AS INTEGER)

Do
Sub Hauptmenue (x As INTEGER)

Input"Welches Menue wollen Sie", x
If x= 1 then Sub m1
If x= 2 then Sub m2
If x> 2 then Print"Falsche Eingabe"
Sleep


SUB m1 (x AS INTEGER)

Print"Menue 1 gewählt"
x= 0
Print"Hauptmenü = Taste 1"
Print
Print"Menü 2 = Taste 2"
Input x
If x= 1 then Hauptmenue
If x= 2 then m2
If x> 2 then Print"Falsche Eingabe"
Sleep



SUB m2 (x AS INTEGER)
Do
Print"Menue 2 gewählt"
x= 0
Print"Hauptmenü = Taste 0"
Print
Print"Menü 1 = Taste 1"
Input x
If x= 0 then Hauptmenue
If x= 1 then m1
If x> 1 then Print"Falsche Eingabe"
Sleep
Loop

End

[nemored]

SUB ist nicht zu verwechseln mit einer GOTO-Marke! Es ist vielmehr ein Programmblock für ein Unterprogramm, in das du hineinspringen und dann nach Beendigung wieder zurückspringen kannst.

[Nullchecker]

Erst mal Danke für deine schnelle Antwort.
Ist eine neue Anregung, werde sie morgen mal ausprobieren.
Das eine SUB nur eine Unterroutine ist, ist mir klar.

Deshalb ist mein Problem ja, wie ich ohne GOTO oder GOSUB
gezielt an eine bestimmte Stelle springen kann.

Was die Referenzartikel betrifft, ich raffe sie nicht was mein Problem
betrifft, deshalb wende ich mich ja an euch, um an so einem Beispiel
den Durchblick zu bekommen.

[nemored]

GOTO gibt es zwar nach wie vor, es ist jedoch so gut wie immer möglich, auf GOTO zu verzichten, ohne dabei große Verrenkungen machen zu müssen (es gibt tatsächlich nur sehr wenige Fälle, in denen der Einsatz Sinn macht; in allen anderen sollte man darauf verzichten).

Eine Möglichkeit zum Sprung zu bestimmten Stellen ist die erwähnte Anweisung SELECT CASE; sie ist im Prinzip so etwas ähnliches wie ON wert GOTO marke1, marke2, ... Für ein Menü ist sie nahezu ideal. Werden die Menüpunkte und Unterverschachtelungen zu komplex, muss man auch da wieder aufpassen, dass es nicht unübersichtlich wird - möglich wäre noch eine Kombination von SELECT CASE mit SUBs bzw. FUNCTIONs.

[Nullchecker]

Vielen Dank für deine Mühe, dass mit dem SELECT CASE war der richtige Tip.
Der Befehl war mir unbekannt.
Für die, die es interessiert hier die Lösung:

DIM AS INTEGER Auswahl
DIM AS INTEGER x

Do
CLS
Input "In welches Menue ? ", Auswahl

SELECT CASE Auswahl
Case 1
CLS
Print"Menue 1 "

Case 2
CLS
Print"Menue 2 "

Case 3
CLS
Print"Menue 3 "

END SELECT
SLEEP 2000
Loop

Durch den Do .... LOOP erreiche ich, immer wieder ins Hauptmenü (in diesem Beispiel die Input-Zeile), nachdem ein Case abgearbeitet ist zu gelangen.

Prima GOTO bzw. GOSUB Ersatz.

Ich werde es für eine eigene Adressenverwaltung nutzen.

Somit kann ich dann z.B. in Menü 1 Adressen eingeben, in Menü 2 ändern usw.

Nochmals VIELEN DANK für den Tip, ohne dich wäre ich nicht weitergekommen und hätte wohl resigniert, jetzt ist die Motivation
100 %.

[dreael]

Aus meiner QB-Sammlung etwas

http://beilagen.dreael.ch/QB/MENUE.BAS

Sollte 1:1 auch in FB verwendet werden können. Generell: Menüroutine wie dort gezeigt einmalig und alle Parameter variabel als SUB, danach im Hauptpogramm GOTO-frei arbeiten.
_________________
Teste die PC-Sicherheit mit www.sec-check.net