Hi,

so ich habs

VB kann des nicht auf den direkten weg und somit hab ich mich mal auf die Suche nach Funktionen gemacht!

Bin auch fündig geworden und man mus es zuvor auf Deg2 umrechen!

Sieht nun wie folgt aus.

Code:
Option Explicit

Dim Lat1
Dim Lon1
Dim Lat2
Dim Lon2
Dim L1
Dim L2
Dim G1
Dim G2


Const pi = 3.14159265358979


Function acos(rad)
  If Abs(rad) <> 1 Then
    acos = pi / 2 - Atn(rad / Sqr(1 - rad * rad))
  ElseIf rad = -1 Then
    acos = pi
  End If
End Function



Function deg2rad(Deg)
    deg2rad = CDbl(Deg * pi / 180)
End Function


Function rad2deg(rad)
    rad2deg = CDbl(rad * 180 / pi)
End Function

Private Sub Command1_Click()

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))

L1 = Lat1
L2 = Lon1
G1 = Lat2
G2 = Lon2

Text15.Text = L1
Text16.Text = L2
Text17.Text = G1
Text18.Text = G2

Dim theta, dist, distance, Deg

  theta = Lon1 - Lon2
  dist = Sin(deg2rad(Lat1)) * Sin(deg2rad(Lat2)) + Cos(deg2rad(Lat1)) * Cos(deg2rad(Lat2)) * Cos(deg2rad(theta))
  dist = acos(dist)
  dist = rad2deg(dist)
  distance = Format(dist * 60, "0.000")
  Deg = Format(dist, "0.000")
     
Text14.Text = Deg
Text13.Text = distance



End Sub

So gehts nun, also damit kann man leben

Und ab jetzt wird es erst Interessant!

Es kommen GPS Daten hinzu und Log Daten

Und zur Fehlerkorrektur kommt noch ein Privates DGPS dazu

Wird also noch a bissl Arbeit

by Ulli

Tipps immer gerne willkommen!