PureBoard

Verfasst: **07.06.2007 16:31**

@ts-soft
Danke

Endlich nach 4 Seiten

Eigentlich wurde ja das Problem gelöst, nur nicht meine Frage (Wo cih es hinmachen soll)

Verfasst: **07.06.2007 16:37**

Sry hier bin ich wieder

Noch ein(e) Problem/Frage:
Wie kann ich das machen, dass es flüssig 100 Pixel nach rechts bewegt? Das ist zurzeit so abgehackt

Code: Alles auswählen

InitSprite() 
InitKeyboard() 

Procedure abc() 
  For a=0 To 100 
    x+1 
    Delay(1)
  Next
  ProcedureReturn x 
EndProcedure 

If OpenScreen(1024,768,32,"Screen-Vorlage") 
  
  ClearScreen(RGB(0,0,0)) 
  
  x=0 
  
Repeat 
  FlipBuffers() 
  
  ClearScreen(RGB(0,0,0)) 
  
  If StartDrawing(ScreenOutput()) 
    DrawingMode(#PB_2DDrawing_Default) 
    Box(100+x,100,500,500,RGB(50,100,200)) 
    StopDrawing() 
  EndIf 
  
  ExamineKeyboard() 
  
  If KeyboardPushed(#PB_Key_Right) 
    x+1 
  EndIf 
      
  If KeyboardPushed(#PB_Key_Left) 
    x-1 
  EndIf 
  
  If KeyboardPushed(#PB_Key_Return) 
    x+abc()
  EndIf 
  
  If KeyboardReleased(#PB_Key_Escape) 
    End 
  EndIf 
  
  Until Quit=1 
  
EndIf

Verfasst: **07.06.2007 16:45**

>> Das ist zurzeit so abgehackt
Hatte ich aber bereits geschrieben, Dein Programm läuft erst nach beenden
der Procedure weiter!
Vielleicht nimmste einen Timer oder eine Variable und EllapsedMilliSecond
oder...
Das Forum ist voll

PureBoard

Variable von der Prozedure übergeben