Ich habe folgenden Code (deutlich abgespeckt !)
Code: Alles auswählen
OpenWindow(1,0,0,1000,1000,"Kreisen",#PB_Window_WindowCentered)
ButtonGadget(10,480,480,40,40,"EXIT")
StartDrawing(WindowOutput(1))
Circle(500,500,200,0)
For t=1 To 360 step 5
x= ????
y= ????
Box(x,y,50,25,0) <----- Diese Box soll um den Kreis kreisen
Next
StopDrawing()
Repeat
Delay(1)
Event=WindowEvent()
Select event
Case #PB_Event_Gadget
Select EventGadget()
Case 10
End
EndSelect
EndSelect
ForEver