Hi Leuts,

also neues thema *g*

Ich habe zwei Koordinaten z.B 48°15'10''5 / 12°12'11''2
mein ziel ist in z.B------------> 48°15'05''0 / 12°10'00''0

was habe ich nun für einen Winkel zum Ziel????

Bei mir kommt immer ein etwas kleiner wert raus

Mein Code sieht momentan so aus.
acos und rad2deg sind in Funktionen drinn die stimmen !!!
------------------------------------------------------------------------------------
Dim theta, dist, distance, deg

'Dezimal Umrechnung
Lat1 = Text1.Text + (Text2.Text / 60) + (Text3.Text / 3600)
Lon1 = Text4.Text + (Text5.Text / 60) + (Text6.Text / 3600)

Lat2 = Text7.Text + (Text8.Text / 60) + (Text9.Text / 3600)
Lon2 = Text10.Text + (Text11.Text / 60) + (Text12.Text / 3600)

'----------------------------------------------------------------------

theta = Lon1 - Lon2
dist = Sin((Lat1)) * Sin((Lat2)) + Cos((Lat1)) * Cos((Lat2)) * Cos(theta)

'Entfernungsberechnung
dist = acos(dist)
dist = rad2deg(dist)
deg = Format(dist, "0")
distance = Format((dist * 60 * 1.1515) * 1.609344, "0.00000")


Text14.Text = deg
Text13.Text = distance

------------------------------------------------------------------------------------

Ich will eigentlich nur den Winkel zu meinen Ziel haben (gehe 320° dann kommst du zum Ziel *g*)


Kann mir da jemand helfen???

Bitte: wenn es geht mit einen Beispiel

Dank an ALLE by Ulli