Basic programm - auswahlmenü??

[pirat]

Das sieht dann so aus:

[CODE]Local a,b
Lbl eins
ClrText
Print "1.Umfang"
Print "2.Flícheninhalt"
Print "3.Volumen"
Print "4.Ende"

Do
GetKey b
LpWhile b(ungleich)0
If b=49
Then
Goto zwei
IfEnd
If b=50
Then
Goto drei
IfEnd
If b=51
Then
Goto vier
IfEnd
If b=52
Then
Message "Vielen Dank fürs ausführen, bla, bla, bla...Copyrights usw. ..."
Stop
IfEnd

Lbl zwei
ClrText
Input a,"Radius eingeben"
PrintNatural 2í¸aí¸î
Goto eins

Lbl drei
ClrText
Input a,"Radius eingeben"
PrintNatural a^2îî
Goto eins

Lbl vier
ClrText
Input a,"Radius eingeben"
PrintNatural (4/3)îîîa^2
Goto eins
[/CODE]

[Nt2005]

aber if setze mit goto beenden ist nicht gerade schön.....das ist ein schlechte programmierung....

probier mal lieber das (ist etwas unübersichtlicher aber es ist besser)

[CODE]Local a,b

Lbl eins

ClrText

Print "1.Umfang"

Print "2.Flícheninhalt"

Print "3.Volumen"

Print "4.Ende"

Do
GetKey b
LpWhile b(ungleich)0
If b=49
Then
If b=50
Then
If b=51
Then
IfEnd
If b=52
Then
IfEnd
Message "Vielen Dank fürs ausführen, bla, bla, bla...Copyrights usw. ..."
Stop
IfEnd
Goto vier
IfEnd
Goto drei
IfEnd
Goto zwei
////////////////////////das ist eine kette wo das erste if auf den letzten ifend springt und das 2. if spring
////////////////////////aufs vorletzte ifend usw....
/////////////////////////kann wird if~ifend ausgeführt und deine gewünschten bedingungen erfüllt.....

Lbl zwei
ClrText
Input a,"Radius eingeben"
PrintNatural 2í¸aí¸î
Goto eins

Lbl drei
ClrText
Input a,"Radius eingeben"
PrintNatural a^2îî
Goto eins

Lbl vier
ClrText
Input a,"Radius eingeben"
PrintNatural (4/3)îîîa^2
Goto eins [/CODE]

ach ja oben mit den b=/=0 wird ich nicht machen da das einfach weiter geht lieber b=/=49 and b=/=50 usw.

[geändert von Nt2005 am [TIME]1148836753[/TIME]]

[holly34]

kann es sein dass nach dem if=51 das IfEnd da nicht hingehört? weil ich dann nämlich ein "ungültige syntax" fehler bekomme und das ganze nicht speichern kann.
und wenn ihcs wegmache kann ich speichern, bekomme dann aber wieder ungültige syntax wenn ich es ausführen will..
der cursor springt dann automatisch in die zeile LpWhile b=/=49

[Nt2005]

ja das ifend nach 51 muss weg... aber bei mir funtionierts so... (eigentlich)

im handbuch ist das auchnochmal beschrieben.....

[pirat]

Das =/= is das ungleichzeichen ,das ist dir schon klar, oder?
pirat