Seite 1 von 1

Anfänger-Beispiel ... funktioniert nicht!

Verfasst: 19.01.2006 18:09
von 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... :)

Verfasst: 19.01.2006 18:16
von Deeem2031
Du hast ein "FlipBuffers()" vergessen.

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

Re: Anfänger-Beispiel ... funktioniert nicht!

Verfasst: 19.01.2006 18:19
von 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

Verfasst: 19.01.2006 18:20
von Mok
@Kiffi:
:( :( :( :( :( :( :(

Verfasst: 19.01.2006 20:43
von AndyX
[offtopic]

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

Jeder war mal n Anfänger :D :allright:

[/offtopic]

Verfasst: 20.01.2006 14:33
von Konne
Ich finds eine nette Geste anderen zu helfen. Allerdings gibt es Zeiten des Lernenes und Zeiten des Lehrens.

Verfasst: 20.01.2006 16:53
von Mok
Aber warum funkt das Programm nicht? Bild
P.S.: Ich warte auf ne Antwort.. Bild

Verfasst: 20.01.2006 17:10
von AndyX
Hat dir Deeem doch schon gesagt :?

Verfasst: 20.01.2006 18:51
von 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. :allright: