Kompass 2D

[schand99]

Wenn Du das so schreibst klingt das einfach, nur leider bekomme ich es nicht hin.

Den Quellcode für 2D hab ich hier im Forum gefunden und etwas angepasst. Muss aber leider einräumen dass ich es nicht schaffe das HeadinZ so einzubauen dass ein Pfeil am Display halbwegs brauchbar nach Norden zeigt.

procedure GetWinkel()
begin
if Kompass.Sensor.Started = True then
Begin
if (Kompass.Sensor.HeadingY > 0) then
Winkel := 90 - arcTan(Kompass.Sensor.HeadingX / Kompass.Sensor.HeadingY) * 180 / PI
else if (Kompass.Sensor.HeadingY < 0) then
Winkel := 270 - arcTan(Kompass.Sensor.HeadingX / Kompass.Sensor.HeadingY) * 180 / PI
else if (Kompass.Sensor.HeadingY = 0) and (Kompass.Sensor.HeadingX < 0) then
Winkel := 180
else if (Kompass.Sensor.HeadingY = 0) and (Kompass.Sensor.HeadingX > 0) then
Winkel := 0;
end;
Winkel:=Abs(Winkel-360);
End;