Kreisrunde Menüs - Maussteuerung

[Codusa]

atan2() ist bei mir nicht drin, habe PB 4.40...
Trotzdem danke! ich kann die Winkel bestimmt auch anders bestimmen.

[Christian+]

So müsste es auch gehen.

Code: Alles auswählen

Procedure.f Winkel(x1.f, y1.f, x2.f, y2.f)
  Protected w.f = ATan((y2 - y1) / (x2 - x1)) * 57.295776
  If x2 < x1 : w = 180 + w : EndIf
  If w < 0 : w + 360 : EndIf
  If w > 360 : w - 360 : EndIf
  ProcedureReturn w
EndProcedure

[Codusa]

So müsste es auch gehen.

Code: Alles auswählen

Procedure.f Winkel(x1.f, y1.f, x2.f, y2.f)
  Protected w.f = ATan((y2 - y1) / (x2 - x1)) * 57.295776
  If x2 < x1 : w = 180 + w : EndIf
  If w < 0 : w + 360 : EndIf
  If w > 360 : w - 360 : EndIf
  ProcedureReturn w
EndProcedure

Danke ich probiers gleich aus!!

-EDIT-

Funktioniert 1A großes Dankeschön