Mauskoordinaten (X,Y) in Grad umrechnen?

[Namenloser]

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
Var
A: double; // double statt integer -> Gleitkommazahl
begin
A := ArcTan2(Y, X);
Caption := FloatToStr(A*180/pi);
{ Wenn du keine Kommazahlen willst: 
Caption := IntToStr(trunc(A*180/pi));
}
end;

Für Gleitkommazahlen musst du FloattoStr oder FloatToStrF verwenden.
Mit *pi/180 wird die Zahl ins Gradmaß umgerechnet, da du sonst eine etwas unhandliche Zahl im Bogenmaß erhälst.

[smart]

Zitat:

Zitat von NamenLozer

Für Gleitkommazahlen musst du FloattoStr oder FloatToStrF verwenden.
Mit *pi/180 wird die Zahl ins Gradmaß umgerechnet, da du sonst eine etwas unhandliche Zahl im Bogenmaß erhälst.

Hi,

Vielen Dank für Deine Mühe. Ich habe es geschnallt. Noch ne dumme Frage, gibt es in Delphi auch 'FloatToInt' oder soetwas? Oder muss ich Float in Integer selbst umrechnen?

Gruß
Heike

[hanselmansel]

Round()
Trunc()

[smart]

Vielen Dank an Alle!

Mit

Delphi-Quellcode:

Round(ArcTan2(Y, X)* 100)

klappt es.

Gruß
Heike

[Flare]

Zitat:

Zitat von smart

Delphi-Quellcode:

Round(ArcTan2(Y, X)* 100)

Bogenmaß * 100?

Muss ich den Sinn erkennen?
Mach es doch so:

Delphi-Quellcode:

Round(ArcTan2(Y, X)*180/Pi)

Flare

[smart]

Zitat:

Zitat von Flare

Bogenmaß * 100?

Muss ich den Sinn erkennen?
Mach es doch so:

Delphi-Quellcode:

Round(ArcTan2(Y, X)*180/Pi)

Hi.

Da bekomme ich zu kleine Werte. Kein Wert über 150. An 360 garnicht zu denken.

Gruß
Heike

[3_of_8]

Delphi-Quellcode:

round(radtodeg(arctan2(X,Y)))

So müsste es gehen.

[Khabarakh]

Warum bitte jetzt wieder zu ArcTan wechseln :shock: ?

@heike: Das sollte eigentlich stimmen. Beachte aber, dass die Wertemenge der Funktion (mathematisch korrekt) das Intervall [-Pi, Pi] (= -180° bis 180°) und nicht [0, 2 Pi] ist, und durch die auf dem Bildschirm normalerweise nach unten verlaufende Y-Achse Winkel genauso wie Koordinaten gespiegelt sind.

[edit]Ok, zu ArcTan2 editiert ;) . RadToDeg ist trotzdem gleichwertig zu * 180 / Pi. [/edit]

[3_of_8]

Hab ich schon längst editiert. ;)

[Khabarakh]

Ich auch :mrgreen: .
Es gäbe sogar einen Fall, in dem RadToDeg <> * 180 / Pi ist:
Man redefiniert Pi ;) . Ein Beitrag in "The Daily WTF" wäre einem damit auch gleich sicher.