Seite 1 von 1
Freebasic Select Case auf PB übertragen
Verfasst: 14.04.2006 20:35
von PureBaser
Hi Leute,
mir scheint, dass ich wohl mit Vergleichsoperationen noch nicht gut umgehen kann.
Code: Alles auswählen
INPUT "Geben Sie eine Nummer zwischen 1 und 10 ein: "; choice
SELECT CASE choice
CASE 1
PRINT "Sie haben 1 angegeben"
CASE 2
PRINT "Die Zahl ist 2"
CASE 3, 4
PRINT "Die Zahl ist 3 oder 4"
CASE 5 TO 10
PRINT "Die Zahl liegt zwischen 5 und 10"
CASE IS > 10
PRINT "Die Zahl ist größer als 10"
CASE ELSE
PRINT "Die Zahl ist kleiner als 1"
END SELECT
Das Beispiel in PB - soweit ich kann -
Code: Alles auswählen
OpenConsole()
Print("Geben Sie eine Nummer zwischen 1 und 10 ein: ")
choice$ = Input()
zahl1 = Val(choice$)
Select zahl1
Case 1
Print("Sie haben Eins angegeben")
Case 2
Print("Die Zahl ist Zwei")
;ab hier muss ich passen
;Case 3,4 ?? Case 5 To 10 ?? Case zahl1 > 10 ??
Default
Print("Die Zahl ist kleiner als 1")
EndSelect
Input()
CloseConsole()
End
Wie mach ich das richtig?
Schöne Ostern noch!!
Verfasst: 14.04.2006 20:47
von vonTurnundTaxis
Wenn ich mich nicht sehr irre gibt es keine Möglichkeit, mehrere "Cases" als einen zu behandeln.
(Möglicherweise ist das in der 4.x ja anders, aber die gibt es ja nur für Windows...)
Verfasst: 14.04.2006 20:50
von PureBaser
Wird wohl stimmen.
Zum Glück ist das Beispiel eher theoretischer als praktischer Natur.
Verfasst: 14.04.2006 20:51
von ts-soft
Wie wäre es mit PB lernen statt FB zu übertragen?
FB ist QBasic und VBBasic orientiert, PB ist PureBasic! (Not MS-orientiert,
sondern BASIC)
Du machst es Dir nur unnötig schwer.
Verfasst: 14.04.2006 20:58
von PureBaser
Ich lerne von Anfang an mit PB
Der Vergleich ist eher zufällig
P.S: Du hast ja Super Programme auf deiner Page - Respekt!
Verfasst: 14.04.2006 21:44
von Deeem2031
So vielleicht?
Code: Alles auswählen
OpenConsole()
Print("Geben Sie eine Nummer zwischen 1 und 10 ein: ")
choice$ = Input()
zahl1 = Val(choice$)
Select zahl1
Case 1
Print("Sie haben Eins angegeben")
Case 2
Print("Die Zahl ist Zwei")
Case 3, 4
Print("Die Zahl ist 3 oder 4")
Case 5 To 10
Print("Die Zahl liegt zwischen 5 und 10")
Case 10 To $7FFFFFFF ;geht glaub ich nicht besser
Print("Die Zahl ist größer als 10")
Default
Print("Die Zahl ist kleiner als 1")
EndSelect
Input()
CloseConsole()
End
Verfasst: 14.04.2006 21:47
von ts-soft
>> P.S: Du hast ja Super Programme auf deiner Page - Respekt!
Nur alter Kram, nichts besonderes. Die IDE für XProfan ist ganz Nett, aber
nicht Fertig
Verfasst: 15.04.2006 21:31
von PureBaser
Noch was interessantes zum Schluss: Die "Reichweite" mehrerer Fälle wird ab PB 4 unterstützt!
Verfasst: 15.04.2006 21:38
von MVXA
> Noch was interessantes zum Schluss: Die "Reichweite" mehrerer Fälle wird ab PB 4 unterstützt!
Auch schon gemerkt
?