Anfänger-Beispiel ... funktioniert nicht!

[Mok]

Hi. Ich bin gerade dabei, ein Anfänger-Tutorial zu machen. Aber schon beim ersten Beispiel legt's mich auf!!
Fehlermeldung:
""Beispiel_1.PB"" : The specified output is NULL (0 vaule)

Code: Alles auswählen

InitSprite()
InitKeyboard()
LoadFont(0,"Courier New",25,#PB_Font_Bold)
LoadFont(1,"Courier New",10)
Breite = 30

OpenScreen(640,480,32,"Keyboard Example")
ClearScreen(0,0,0)
StartDrawing(ScreenOutput())
FrontColor(40,40,255)
BackColor(0,0,0)
DrawingFont(UseFont(0))
Locate(20,220)
DrawText("Drücke eine beliebige")
StopDrawing()
FlipBuffers()
ExamineKeyboard()
If KeyboardPushed(#PB_Key_All)
EndIf
Repeat
StartDrawing(ScreenOutput())   ;Hier haut's mich auf!!
FrontColor(40,40,255)
BackColor(0,0,0)
DrawingFont(UseFont(1))
Locate(20,10)
DrawText("Pfeiltaste LIKNS, um Box nach links auszubauen"+Chr(10)+"Pfeiltaste RECHTS, um Box nach rechts auszubauen"+Chr(10)+"ESCAPE, um Programm zu beenden.")
Box(10,300,Breite,50,RGB(0,0,255))
If KeyboardPushed(#PB_Key_Left)
Breite = Breite +1
EndIf

If KeyboardPushed(#PB_Key_Right)
Breite = Breite -1
EndIf

Until KeyboardPushed(#PB_Key_Escape)

Ich interpretiere kurz den Source: Am Anfang muss maneine beliebige Taste drücken, um weiterzukommen. Dann sollte eine Box gezeichnet werden. Wenn man [-->] drückt soll sich die Box jeweils ein Pixel nach rechts ausbauen, bis man loslässt. Und wenn man [<--] drückt, soll das selbe, nur nach rechts sein. So... jetzt seid ihr dran...

[Deeem2031]

Du hast ein "FlipBuffers()" vergessen.

EDIT: Naja, und ein StopDrawing().. und ein ExamineKeyboard()...

[Kiffi]

> Hi. Ich bin gerade dabei, ein Anfänger-Tutorial zu machen.

und ich dachte, Anfänger-Tutorials sind für Anfänger und nicht von Anfängern.

[SCNR]

Grüße ... Kiffi

[Mok]

@Kiffi:

[AndyX]

[offtopic]

Du brauchst nicht extra viele Smileys dazusetzen, um deine Gefühle auszudrücken

Jeder war mal n Anfänger

[/offtopic]

[Konne]

Ich finds eine nette Geste anderen zu helfen. Allerdings gibt es Zeiten des Lernenes und Zeiten des Lehrens.

[Mok]

Aber warum funkt das Programm nicht?
P.S.: Ich warte auf ne Antwort..

[AndyX]

Hat dir Deeem doch schon gesagt

[Batze]

Im Code stecken noch einige Denkfehler!
(die wohl auf das noch geringe Wissen über die einzelnen Befehle zurückzuführen sind)

Erstmal hast du ja geschrieben:

Code: Alles auswählen

If KeyboardPushed(#PB_Key_All) Das ist leider
EndIf

KeyboardPushed() wartet aber nicht bis eine Taste gedrückt wird, sondern gibt dann einfach 0 zurück.

Zudem kann ich dich noch auf einen Thread hinweisen in dem, wie bei dir das Prinzip des Doublebufferings noch nicht ganz verstanden worden war.
http://forums.purebasic.com/german/viewtopic.php?t=6465

Hoffe das - und die PB-Referenz - helfen.