Hallo:
ich habe eine kleine Erweiterung vorgenommen:
Delphi-Quellcode:
x A = (0|0)
|\
| \
| \
| \
|. \
|----- x B = (5|5)
==> Winkel = 90°
Der Punkt A hat die Koordinaten X1=0 und Y1=0
Der Punkt B hat die Koordinaten X1=5 und Y2=5
Der Tangens der Winkel berechnet sich:
(Y2-Y1)/(X2-X1)
Achtung: Wenn X1=X2 ist steht im Nenner 0. Das musst Du abfangen.
Mit arctan((Y2-Y1)/(X2-X1) erhälst Du den Winkel in Radiant. Wenn Grad verwenden möchtest muss Du das Ergebnis wie folgt umrechnen:
Delphi-Quellcode:
Wr : Winkel in Radiant
Wg : Winkel in Grad
Formel: Wg:=Wr*180/Pi
Weil es gilt: Pi entspricht 180° und Wr entspricht Wg
Daraus folgt: Pi/Wr=180/Wg
Fix umgestellt ergibt
Wg=Wr*180/Pi