Das deutsche QBasic- und FreeBASIC-Forum

[tony]

hallo,
ich bin noch an meinem würfelprogramm. mit select case version komme ich irgendwie nicht klar: wer kann mir helfen und sagen wo der fehler sitzt. ich drehe noch durch...

dim as integer ezaehler,i,x1,x2,x3,x4,x5,x6,wurf,n
randomize timer
ezaehler=0
x1=0
x2=0
x3=0
x4=0
x5=0
x6=0
wurf=0
input"Die Anzahl der Wuerfe angeben";n

for i=1 to n
ezaehler=ezaehler+1
wurf=int(rnd*6)+1
print wurf;


next i


select case wurf
case 1
x1=x1+1
:print"eins=";x1
case 2
x2=x2+1
:print"zwei=";x2
case 3
x3=x3+1
:print"drei=";x3
case 4
x4=x4+1
:print"vier=";x4
case 5
x5=x5+1
:print"fuenf=";x5
case 6
x6=x6+1
:print"sechs=";x6

end select

sleep

vielen dank im voraus....

[player424]

wieso machst du vor jede print anweisung einen doppelpunkt? naja mach die mal weg und versuchs so

[tony]

das habe ich auch schon versucht geht nicht. programm soll wie folgt aussehen: anzahl der würfe wird vorgegeben und dann soll er anzeigen wie oft welche zahl gewürfelt wurde. weiss nicht wo ich den fehler mache. er zahlt die augenzahlen nicht zusammen.
ausgabe zum beispiel:
anzahl der würfe:4
1=2x
2=0x
3=1x
4=0x
5=1x
6=0x
so schwer kann das doch nicht sein. mit for next bekomme ich es hin aber an select case verzweifle ich noch...

[player424]

ist es ein syntaxfehler oder kommt nicht das gewünschte ergebnis raus? evt. fehlermeldung posten

[tony]

das gewünschte ergebnis kommt nicht raus. die ausgabe sieht wie folgt aus:
er listet die gewürfelten augen auf aber zeigt nicht an welche zahl wie oft gewürfelt wurde

[volta]

Hi,

[tony]

vielen dank,
ich schaue mal ob es klappt, aber ich gehe davon aus
wie kann ich mich nur am besten fit machen in freebasic???

[player424]

im freebasic portal in den tutorials. aber ist auch von vorteil wenn du qbasic kannst, da freebasic ja syntaktisch daran angelehnt ist

[frebas]

[Mao]

Alternativ kannst du sie natürlich auch einfach immer aktuell online verwenden. http://www.fb-referenz.de
Die Tutorials waren auch schon ein guter Tipp, evtl. hier und im englischen Forum ein wenig stöbern - da bekommt man meist so nebenbei immer ein paar gute Dinge mit.
Entgegen players Meinung ist es allerdings nicht notwendig, QB zu k{e; ö}nnen. Ist in Bezug auf einige veraltete und/oder schlichtweg auch komplizierteren Dinge eher das Gegenteil zu empfehlen: Gleich in FB einsteigen. Dinge wie GoTo, Zeilennummern u.Ä. gewöhnst du dir so gar nicht erst an.
_________________
Eine handvoll Glück reicht nie für zwei.
--

[player424]

naja ganz so altmodisch bin ich auch nicht das ich mit zeilennummern arbeite . aber mir war es sehr hilfreich auch ein paar kenntnisse in qbasic zu haben als ich in freebasic eingestiegen bin

[Mao]

Hatte ich auch nirgends von dir behauptet.
"Erfreulicherweise" sind GoTo und Zeilennummern jedoch immer mit eines der ersten Dinge, die Anfänger falsch lernen.
Mir fällt allerdings kein Grund ein, warum ein (Programmier-)Einsteiger Kenntnisse in einer hoffnunglos veralteten Sprache braucht, um auf eine teilweise kompatible aber viel mächtigere Sprache umzusteigen. Wenn du ohnehin schon mit QB Erfahrung gemacht hast, gut, brauchst du nicht alles neu lernen. Wenn man allerdings vor der Entscheidung steht QB oder FB, dann sollte gerade für Fortgeschrittene klar sein, dass man sich mit QB auch viel schlechten Stil beibringen kann, der später umso schwerer zu korrigieren ist.
_________________
Eine handvoll Glück reicht nie für zwei.
--

[player424]