Kreisen ?! :-(

[Stuhli]

Hi, für Euch ist´s sicherlich Kleinkram, aber ich kanns einfach nicht. In der Schule kam bei uns Sinus und Cosinus leider nicht mehr dran - Zeitmangel !

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

wie muss ich es machen, dass diese 50x25er BOX um den Kreis kreist ?? Ich raffs nicht, sorry.

[NicTheQuick]

Der Code ansich ist schon nicht korrekt. Man sieht ja gar nichts, weil du auf's Fenster malst und das direkt wieder weg ist.
Hier ein funktionierendes Beispiel, aber ohne Button:

Code: Alles auswählen

OpenWindow(1, 0, 0, 1000, 1000, "Kreisen", #PB_Window_WindowCentered)
CanvasGadget(10, 0, 0, 1000, 1000)

If StartDrawing(CanvasOutput(10))
	Circle(500, 500, 200, 0)
	For t = 0 To 360 Step 5
		x = 500 + Cos(Radian(t)) * 500
		y = 500 + Sin(Radian(t)) * 500
		Box(x, y, 50, 25, 0)
	Next
	StopDrawing()
EndIf

Repeat
	Event = WaitWindowEvent()
	Select event
		Case #PB_Event_CloseWindow
			Break
	EndSelect
ForEver

[Stuhli]

Danke, wie schon geschrieben, der Code ist abgespeckt. Das mit dem Radius hab ich einfach nicht hinbekommen, danke

[tft]

Hier habe ich noch was lustiges zu diesem Thema ......

Code: Alles auswählen

Define x.f, y.f, dx.f, dx.f, len

len = 100
x = 200
y = 200

For winkel = 0 To 359 Step 1
  alpha.f = Radian(winkel)
  dx = x + (Sin(alpha) * len)
  dy = y + (Cos(alpha) * len)
  Debug "w = " + winkel +" dx = " + dx + " dy = " + dy
  SetCursorPos_(dx,dy)
  Delay(10)
Next

Gruss TFT