wend without while

Übersicht BlitzBasic Allgemein

Neue Antwort erstellen

Rob Basic

Betreff: wend without while

BeitragSo, Jun 20, 2004 18:29
Antworten mit Zitat
Benutzer-Profile anzeigen
Hallo Leute Wenn ich das unten ausführe dann kommt wend without while.
Warum? Sad


Code: [AUSKLAPPEN]
While Not KeyHit(1)
 
  Cls

  If MilliSecs()>timer+200 Then
  timer=MilliSecs()
  frame=frame+1
  If frame=1 Then frame=0
  EndIf
 

  DrawImage ani,200,100,frame
  Flip

  If KeyDown (205)
 
  If MilliSecs()>timer+200 Then
  timer=MilliSecs()
  frame=frame+1
  If frame=3 Then frame=2
  EndIf

Wend
End
~ Rob Basic ~
~2D - lernen~
 

Dreamora

BeitragSo, Jun 20, 2004 18:31
Antworten mit Zitat
Benutzer-Profile anzeigen
Es fehlt mehrfach endif

Ich empfehle dir Dinge einzurücken, dann sind solche fehler sofort ersichtlich
Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.

BladeRunner

Moderator

BeitragSo, Jun 20, 2004 18:32
Antworten mit Zitat
Benutzer-Profile anzeigen
hat jedes deiner If´s denn auch ein end if? Ich glaub nicht Wink
Also bei solchen Fehlern (auch repeat without until etc.) immer sämtliche "Schleifenbildner" kontrollieren (also: while wend, if then, for next etc).
Meist fehlt nur ein end if.
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

Rob Basic

BeitragSo, Jun 20, 2004 18:35
Antworten mit Zitat
Benutzer-Profile anzeigen
up! Embarassed habe total übersehen! aber danke für die schnelle hilfe!
könnt diese therad löschen glaube das weiß jeder Laughing
~ Rob Basic ~
~2D - lernen~

Abrexxes

BeitragSo, Jun 20, 2004 18:38
Antworten mit Zitat
Benutzer-Profile anzeigen
Code: [AUSKLAPPEN]

While Not KeyHit(1)
 
  Cls

  If MilliSecs()>timer+200 Then
  timer=MilliSecs()
  frame=frame+1
  If frame=1 Then frame=0
  EndIf
 

  DrawImage ani,200,100,frame
  Flip

  If KeyDown (205)  ;<---Erste Schleife
 
  If MilliSecs()>timer+200 Then ;<----Zweite Schleife
  timer=MilliSecs()
  frame=frame+1
  If frame=3 Then frame=2 ;<-----Dritte Schleife komplet
  EndIf                                  ;<----Zweite Schleife komplet
 ;Hier must du die erste schliessen!!!!!!!
 Endif ;<----erste komplet!!!

Wend
End
 



EDIT: zu spät

Neue Antwort erstellen


Übersicht BlitzBasic Allgemein

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group