While\Wend
Übersicht
BlitzBasic Beginners-Corner
Niu-IunBetreff: While\Wend |
 Do, Jan 05, 2006 13:54Antworten mit Zitat 
|
|
|---|---|---|
|
Wie kann es passieren, das mir ein Code sagt: "wend without while"?
obwohl das ganz klar da steht? ok hier der code =) While Not KeyHit(1) ;;; If MouseHit(1) Then MouX = MouseX() MouY = MouseY() If Abs(MouX-X)>Abs(MouY-Y) Then MX = 1 M = 1 Else MY = 1 M = 2 EndIf ;;; If Sgn(MouX-X) = -1 And M=1 Or MX = 1 And M=1 Then X = X + 1 Gosub SteuerungLinks If MouX-X=0 Then MX = 0 M = 2 End If EndIf If Sgn(MouX-X) = 1 And M=1 Or MX = 1 And M=1 Then X = X - 1 Gosub SteuerungRechts If MouX-X=0 Then MX = 0 M = 2 End If EndIf If Sgn(MouY-Y) = -1 And M=2 Or MY = 1 And M=2 Then Y = Y + 1 Gosub SteuerungUnten If MouY-Y=0 Then MY = 0 M = 1 End If EndIf If Sgn(MouY-Y) = 1 And M=2 Or MY = 1 And M=2 Then Y = Y - 1 Gosub SteuerungOben If MouY-Y=0 Then MY = 0 M = 1 End If EndIf DrawImage Char, X, Y, Char001FR DrawImage Cursor, MouseX(), MouseY() Flip Cls Wend |
||
|
-------------------------------------------------------
Whoay! |
||
- Zuletzt bearbeitet von Niu-Iun am Do, Jan 05, 2006 13:59, insgesamt einmal bearbeitet
gamble |
Do, Jan 05, 2006 13:56 Antworten mit Zitat
|
|
|---|---|---|
Poste den Quellcode doch bitte dazu, wir sind keine Hellseher 
|
||
|
Bob |
Do, Jan 05, 2006 14:00 Antworten mit Zitat
|
|---|---|---|
|
Hi,
soetwas passiert wen geöffnete strukturen nicht geschlossen werden. Code: [AUSKLAPPEN] While x < 10
If y = 0 Then x = x +1 Print x ;EndIf Wend Versuch mal das auszuführen. Wen du dann das Semikolon for dem Endif rausnimmst geht der Code. Du hast irgendwo etwas nicht abgeschlossen. Du solltews dir angewöhnen den Code mittels TabTaste einzurücken. Dan siehst du sehr schnell wo was offen ist oder nicht. |
||
- Zuletzt bearbeitet von Bob am Do, Jan 05, 2006 14:02, insgesamt einmal bearbeitet
Niu-Iun |
Do, Jan 05, 2006 14:02 Antworten mit Zitat
|
|
|---|---|---|
|
ok, jetzt startet es, könnt ihr mir noch sagen warum das männeken jetzt sich bei klick umdreht, aber nix weiter passiert? dafür hier noch die unterprogramme
.SteuerungUnten If Counter001 = 5 Then Counter001 = 1 If Counter001 = 1 Then Char001FR = 8 If Counter001 = 2 Then Char001FR = 7 If Counter001 = 3 Then Char001FR = 6 If Counter001 = 4 Then Char001FR = 7 ; If KeyDown(208) Or KeyHit(208) Then Counter001 = Counter001 + 1 Return .SteuerungOben If Counter002 = 5 Then Counter002 = 1 If Counter002 = 1 Then Char001FR = 2 If Counter002 = 2 Then Char001FR = 1 If Counter002 = 3 Then Char001FR = 0 If Counter002 = 4 Then Char001FR = 1 ; If KeyDown(200) Or KeyHit(200) Then Counter002 = Counter002 + 1 Return .SteuerungRechts If Counter003 = 5 Then Counter003 = 1 If Counter003 = 1 Then Char001FR = 5 If Counter003 = 2 Then Char001FR = 4 If Counter003 = 3 Then Char001FR = 3 If Counter003 = 4 Then Char001FR = 4 ; If KeyDown(200) Or KeyHit(200) Then Counter003 = Counter003 + 1 Return .SteuerungLinks If Counter004 = 5 Then Counter002 = 1 If Counter004 = 1 Then Char001FR = 11 If Counter004 = 2 Then Char001FR = 10 If Counter004 = 3 Then Char001FR = 9 If Counter004 = 4 Then Char001FR = 10 ; If KeyDown(200) Or KeyHit(200) Then Counter004 = Counter004 + 1 |
||
|
-------------------------------------------------------
Whoay! |
||
|
Xaron |
Do, Jan 05, 2006 14:33 Antworten mit Zitat
|
|---|---|---|
|
Niu-Iun hat Folgendes geschrieben: ok, jetzt startet es, könnt ihr mir noch sagen warum das männeken jetzt sich bei klick umdreht, aber nix weiter passiert?
Wenn Du uns jetzt noch verrätst, was Du mit "bei klick umdrehen" meinst, wäre das sicher hilfreich.
edit: Vielleicht liegt's ja auch an der Zeile hier: Code: [AUSKLAPPEN] .SteuerungLinks If Counter004 = 5 Then Counter002 = 1 Fällt Dir was auf?
Gruß - Xaron |
||
| Cerberus X - Monkey X Reloaded! | ||
Niu-Iun |
Do, Jan 05, 2006 14:57 Antworten mit Zitat
|
|
|---|---|---|
| schon gut ich hab weitere dicke fehler gefunden, ich beheb die jetzt erst mal schritt für schritt | ||
|
-------------------------------------------------------
Whoay! |
||
Übersicht
BlitzBasic Beginners-Corner
Powered by phpBB © 2001 - 2006, phpBB Group