While schleife klappt nicht

Übersicht

BlitzBasic

Beginners-Corner

	Dreadnough Betreff: While schleife klappt nicht	Do, Feb 10, 2011 16:11 Antworten mit Zitat
Hallo Kann mir jemand sagen wo hier der fehler ist irgendwie zeigt er die frage nicht an und wenn ichs auf 1 stelle zeigt er sie 1000 ma ^^ Print "möchtest du ein eis?" :WaitKey Print "1 - ja" : WaitKey Print "2 - nein" :WaitKey Eis = Input$("wähle jetzt: ") If Eis = 1 Then Print "du willst also eins" If Eis = 2 Then Print "du willst also keins" While Eiss < 1 Antwort$ = Input$("Willst du noch eine kugel? J/N: ") Wend WaitKey

Dreadnough

Betreff: While schleife klappt nicht

Do, Feb 10, 2011 16:11
Antworten mit Zitat

Hallo Kann mir jemand sagen wo hier der fehler ist irgendwie zeigt er die frage nicht an und wenn ichs auf 1 stelle zeigt er sie 1000 ma ^^

Print "möchtest du ein eis?" :WaitKey
Print "1 - ja" : WaitKey
Print "2 - nein" :WaitKey
Eis = Input$("wähle jetzt: ")
If Eis = 1 Then Print "du willst also eins"
If Eis = 2 Then Print "du willst also keins"
While Eiss < 1
Antwort$ = Input$("Willst du noch eine kugel? J/N: ")
Wend
WaitKey

	Mr.Hyde Newsposter	Do, Feb 10, 2011 16:39 Antworten mit Zitat
Du hast dich einfach vertippt. Die Abfrage für die Schleife hat die Variable "Eiss" du benutzt aber "Eis". Selbstverständlich musst du es dann auf = 1 setzten. Übrigens, für die bessere Lesbarkeit, wäre es super wenn du die Code-Tags benutzt also entweder [ code ]Hier käme der Code zwischen[ /code ] oder noch besser, weil mit automatischem Highlighting: [ syntax="bb" ]Hier käme der Code zwischen[ /syntax ] jeweils ohne die Leerzeichen
BBP News RSS \| Chaos Interactive \| Watanien 2 Screens, Infos und Download \| Watanien 2 Worklog \| PuzzleMasters http://abgeordnetenwatch.de - http://www.regierungs-beratung.de - Der Regierung auf die Finger schauen

Mr.Hyde

Newsposter

Do, Feb 10, 2011 16:39
Antworten mit Zitat

Du hast dich einfach vertippt. Die Abfrage für die Schleife hat die Variable "Eiss" du benutzt aber "Eis". Selbstverständlich musst du es dann auf = 1 setzten.

Übrigens, für die bessere Lesbarkeit, wäre es super wenn du die Code-Tags benutzt also entweder
[ code ]Hier käme der Code zwischen[ /code ]
oder noch besser, weil mit automatischem Highlighting:
[ syntax="bb" ]Hier käme der Code zwischen[ /syntax ]

jeweils ohne die Leerzeichen

BBP News RSS | Chaos Interactive | Watanien 2 Screens, Infos und Download | Watanien 2 Worklog | PuzzleMasters
http://abgeordnetenwatch.de - http://www.regierungs-beratung.de - Der Regierung auf die Finger schauen

	Dreadnough	Do, Feb 10, 2011 16:46 Antworten mit Zitat
Achso ja dank dir ^^ beim nächsten mal weiß ich bescheid ^^

Dreadnough

Do, Feb 10, 2011 16:46
Antworten mit Zitat

Achso ja dank dir ^^ beim nächsten mal weiß ich bescheid ^^

	Dreadnough	Do, Feb 10, 2011 16:54 Antworten mit Zitat
Nun habe ich folgendes problem, jetzt fragt er mich aber nicht nach einer weiteren Kugel wenn ich ja sage Code: [AUSKLAPPEN] [EINKLAPPEN] Print "möchtest du ein eis?" :WaitKey Print "1 - ja" : WaitKey Print "2 - nein" :WaitKey Eis = Input$("wähle jetzt: ") If Eis = 1 Then Print "du willst also eins" If Eis = 2 Then Print "du willst also keins" While Eis < 1 Antwort$ = Input$("Willst du noch eine kugel? J/N: ") Wend

Dreadnough

Do, Feb 10, 2011 16:54
Antworten mit Zitat

Nun habe ich folgendes problem, jetzt fragt er mich aber nicht nach einer weiteren Kugel wenn ich ja sage

Code: [AUSKLAPPEN]

Print "möchtest du ein eis?" :WaitKey
Print "1 - ja" : WaitKey
Print "2 - nein" :WaitKey
Eis = Input$("wähle jetzt: ")
If Eis = 1 Then Print "du willst also eins"
If Eis = 2 Then Print "du willst also keins"
While Eis < 1
Antwort$ = Input$("Willst du noch eine kugel? J/N: ")
Wend

	ToeB	Do, Feb 10, 2011 17:13 Antworten mit Zitat
Darf ich mal fragen was das im Codearchiv zu suchen hat ? mfg ToeB
Religiöse Kriege sind Streitigkeiten erwachsener Männer darum, wer den besten imaginären Freund hat. Race-Project - Das Rennspiel der etwas anderen Art SimpleUDP3.0 - Neuste Version der Netzwerk-Bibliothek Vielen Dank an dieser Stelle nochmal an Pummelie, welcher mir einen Teil seines VServers für das Betreiben meines Masterservers zur verfügung stellt!

ToeB

Do, Feb 10, 2011 17:13
Antworten mit Zitat

Darf ich mal fragen was das im Codearchiv zu suchen hat ?

mfg ToeB

Religiöse Kriege sind Streitigkeiten erwachsener Männer darum, wer den besten imaginären Freund hat.
Race-Project - Das Rennspiel der etwas anderen Art
SimpleUDP3.0 - Neuste Version der Netzwerk-Bibliothek
Vielen Dank an dieser Stelle nochmal an Pummelie, welcher mir einen Teil seines VServers für das Betreiben meines Masterservers zur verfügung stellt!

	Dreadnough	Do, Feb 10, 2011 17:44 Antworten mit Zitat
Naja ich war im chat mir wurde dort gesagt ich solls im codearchiv posten^^

Dreadnough

Do, Feb 10, 2011 17:44
Antworten mit Zitat

Naja ich war im chat mir wurde dort gesagt ich solls im codearchiv posten^^

	Mr.Hyde Newsposter	Do, Feb 10, 2011 17:59 Antworten mit Zitat
ui hab ich gar nicht gesehen, solche Fragen künftig bitte ins BlitzBasic Beginners Corner. Irgendein freundlicher Mod, wird das hier wohl auch verschieben.
BBP News RSS \| Chaos Interactive \| Watanien 2 Screens, Infos und Download \| Watanien 2 Worklog \| PuzzleMasters http://abgeordnetenwatch.de - http://www.regierungs-beratung.de - Der Regierung auf die Finger schauen

Mr.Hyde

Newsposter

Do, Feb 10, 2011 17:59
Antworten mit Zitat

ui hab ich gar nicht gesehen, solche Fragen künftig bitte ins BlitzBasic Beginners Corner. Irgendein freundlicher Mod, wird das hier wohl auch verschieben.

	SM3D	Do, Feb 10, 2011 18:06 Antworten mit Zitat
Grüße, BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Print "Möchtest du ein Eis?" Print "1 - Ja" : Print "2 - Nein" ;Eiswahl Abfrage Eis = Input$("Wähle jetzt: ") ; Wenn 1 (Ja) gewählt wurde If Eis = 1 Then Print "Du willst also ein Eis" ;Eiskugelzähler auf 1 setzen da wir ein Eis bekommen haben was ja ;nicht leer sein kann iKugeln = 1 ;solange bei der Farge nach noch einer Kugel nichts anderes wie 1 ;gewählt wird While Not Eis <> 1 Antwort$ = Input$("Willst du noch eine Kugel?: ") If Antwort = 1 Then ;Eiskugelzähler um 1 erhöhen iKugeln = iKugeln +1 Print "Du hast jetzt "+iKugeln+" Kugeln." ;wenn keine Kugel mehr gewollt ist bei Antwort$ Else Print "Du willst also keine weitere Kugel" WaitKey ;zum lesen der Nachricht Exit ;Schleife verlassen End If Wend End If ;Das wenn bei der Frage ob man ein Eis möchte etwas anderes wie 1 gewählt ;wurde. If Eis <> 1 Then Print "Du willst also kein Eis" WaitKey ;warte auf Taste damit man es lesen kann End If Sowas ? Einfach mal die Hilfe lesen unter schleifen und ausprobieren. Wobei ich auch nicht verstehe was das mit dem Codearchiv zu tun hat, da dort eigentlich fertige Codes rein gehören wenn ich mich nicht irre. MfG

SM3D

Do, Feb 10, 2011 18:06
Antworten mit Zitat

Grüße,

BlitzBasic: [AUSKLAPPEN]

Print "Möchtest du ein Eis?"
Print "1 - Ja" :
Print "2 - Nein"
;Eiswahl Abfrage
Eis = Input$("Wähle jetzt: ")
; Wenn 1 (Ja) gewählt wurde
If Eis = 1 Then 
	Print "Du willst also ein Eis"
	;Eiskugelzähler auf 1 setzen da wir ein Eis bekommen haben was ja
	;nicht leer sein kann
	iKugeln = 1
	;solange bei der Farge nach noch einer Kugel nichts anderes wie 1
	;gewählt wird
	While Not Eis <> 1
		Antwort$ = Input$("Willst du noch eine Kugel?: ")
		If Antwort = 1 Then
		;Eiskugelzähler um 1 erhöhen
		iKugeln = iKugeln +1
		Print "Du hast jetzt "+iKugeln+" Kugeln."
		;wenn keine Kugel mehr gewollt ist bei Antwort$
	Else
		Print "Du willst also keine weitere Kugel"
		WaitKey ;zum lesen der Nachricht
		Exit ;Schleife verlassen
	End If
Wend
End If

;Das wenn bei der Frage ob man ein Eis möchte etwas anderes wie 1 gewählt
;wurde.
If Eis <> 1 Then 
		Print "Du willst also kein Eis"
		WaitKey	;warte auf Taste damit man es lesen kann
	End If

Sowas ? Einfach mal die Hilfe lesen unter schleifen und ausprobieren. Wobei ich auch nicht verstehe was das mit dem Codearchiv zu tun hat, da dort eigentlich fertige Codes rein gehören wenn ich mich nicht irre.

MfG

	Johannes´	Do, Feb 10, 2011 18:06 Antworten mit Zitat
Es ist ja nicht verwunderlich, dass er nach keiner Kugel fragt, weil er nicht in die While-Schleife kommen kann, wenn du mit Ja (also 1) antwortest. Die Bedingung der Schleife ist wenn Eis kleiner 1 ist. Wenn du also für Eis 1 eigegeben hast und er prüft, ob Eis <1 ist, wird die Bedingung nicht erfüllt.

Johannes´

Do, Feb 10, 2011 18:06
Antworten mit Zitat

Es ist ja nicht verwunderlich, dass er nach keiner Kugel fragt, weil er nicht in die While-Schleife kommen kann, wenn du mit Ja (also 1) antwortest. Die Bedingung der Schleife ist wenn Eis kleiner 1 ist. Wenn du also für Eis 1 eigegeben hast und er prüft, ob Eis <1 ist, wird die Bedingung nicht erfüllt.

	BladeRunner Moderator	Do, Feb 10, 2011 20:49 Antworten mit Zitat
Wenn im Chat vom Codearchiv gesprochen wird ist das hier gemeint: KLICK MICH ~VERSCHOBEN~ Dieser Thread passte nicht in das Forum, in dem er ursprünglich gepostet wurde.
Zu Diensten, Bürger. Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92

BladeRunner

Moderator

Do, Feb 10, 2011 20:49
Antworten mit Zitat

Wenn im Chat vom Codearchiv gesprochen wird ist das hier gemeint: *KLICK MICH*
~VERSCHOBEN~
Dieser Thread passte nicht in das Forum, in dem er ursprünglich gepostet wurde.

Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

While schleife klappt nicht

Betreff: While schleife klappt nicht