Gosub Fehler?

[Milchshake]

Da für mich alles ohne Gosub's immer unübersichtlicher wird, habe
ich wie in PB 3.3 begonnen, ganz normal Gosub's zu benutzen.
Dabei ist mir etwas seltsames aufgefallen.
Wenn ich Gosub's verwende, und die Schleife beende, schliest sich das Fenster einfach nicht. Bzw ich muss den Task Manager benutzen, um das Programm zu schliesen.
Hab nur ich das Problem, oder auch andere?

[Thomas]

Wie währs mit End, oder CloseWindow(...)?
Bitte etwas konkreter

[STARGÅTE]

Da brauchen wir wieder n Wahrsagerkugel ^^

Bitte den Code posten

danke

[Thomas]

Da brauchen wir wieder n Wahrsagerkugel ^^

Bitte den Code posten

danke

hab ich doch schon (so in etwa) gesagt ...

[Fluid Byte]

Da brauchen wir wieder n Wahrsagerkugel ^^

Kommt sofort!

[STARGÅTE]

Da brauchen wir wieder n Wahrsagerkugel ^^

Bitte den Code posten

danke

hab ich doch schon (so in etwa) gesagt ...

@ Thomas , guck doch mal auf die Zeiten:

STARGÅTE Verfasst am: 09 Nov 2007 20:50:31
Thomas Verfasst am: 09 Nov 2007 20:50:13

wie sollte ich da deins lesen ? ^^


@Fluid Byte

danke ... mal sehn was drin steht :

Code: Alles auswählen

Start:
 Repeat
  Gosub Start
  Ende = 1
 Until Ende
Return

hmm ^^, dumme Kugel

[Thomas]

Naja,
Martin du hast recht, so schnell ist deine Kiste nich ...

Aber bitte jetzt nen Code ... mit der Kugel kommen wir nicht weiter ...

[Milchshake]

Naja etwas ganz Simples halt wie:

Code: Alles auswählen

InitSprite()
InitKeyboard()
OpenScreen(1024,768,32,"Gosub Fehler")
LoadSprite(0,"Sprite.bmp",0)

Repeat
FlipBuffers()
CLearScreen(0)
ExamineKeyboard()
DisplayTransparentSprite(0,x,y)
Gosub Steuerung

Until Keyboardpushed(#PB_Key_Escape)

Steuerung:
If keyboardpushed(#PB_KEY_Left)
x - 2
endif 
if keyboardpushed(#PB_Key_right)
x + 2
endif 
Return

Bei mir schliest dann das Programm einfach nicht, ohne Gosub aber schon.

[STARGÅTE]

wenn du auf ESC drückt beendet sich das programm nicht, sonder geht noch mal in die Gosubschleife und für RETURN aus, was dann ein fehler verursacht

So geht es :

InitSprite() 
InitKeyboard() 
OpenScreen(1024,768,32,"Gosub Fehler") 
LoadSprite(0,"Sprite.bmp",0) 

Repeat 
  FlipBuffers() 
  ClearScreen(0) 
  ExamineKeyboard() 
  DisplayTransparentSprite(0,x,y) 
  Gosub Steuerung 

Until KeyboardPushed(#PB_Key_Escape) 

End

Steuerung: 
  If KeyboardPushed(#PB_KEY_Left) 
    x - 2 
  EndIf 
  If KeyboardPushed(#PB_Key_right) 
    x + 2 
  EndIf 
Return

[D@nte]

Wie Stargate sagt da fehlte nen END

Da für mich alles ohne Gosub's immer unübersichtlicher

Wenn du immer so programmierst, wie in deinem 'Demosource', kann ich dieses Statement durchaus verstehen
Falls du deinen Quellcode jedoch normalerweise formatierst, kann ich das Statement nicht verstehen, da grade durch GOSUB die leserlichkeit mE vorallem bei grossen Codes enorm leidet...