Visual Basic Forum

Verfasst am: 28.06.2010, 21:51 Aufrufe: 504

Ich habe es geschafft aus zwei Längengraden und Breitengraden eine Distanz und die Zeit zu berechnen. Wenn ich aber das gesamte nmea File berechne komme ich auf unrealistische Werte. Die nmea Datei befindest sich unter http://haiflosse.lima-city.de/nmea.txt. Mein VB Code für die Berechnung der Distanz und Zeit sieht wie folgt aus: Open datei For Input As #2 Do While Not EOF(2) L ...

Verfasst am: 08.06.2010, 21:39 Aufrufe: 634

Ich verwende einen VB Code um aus 2 NMEA Koordinaten die Distanz zu berechnen. Das ganze funktioniert auch sehr gut. Jetzt habe ich zwei Koordinaten, wo ich aber einen viel zu großen Wert bekomme. Die Koordinaten lauten: Breite start: 46.999913 Länge start: 15.492768 Breite Ende: 47.000023 Länge Ende: 15.492642 Wenn ich diese Zahlen z.B. mit der Webseite http://www.mountainbiker.ch/inhalt/distanz-berech ...

Verfasst am: 24.03.2010, 00:02 Aufrufe: 605

Ich habe folgenden Code ausprobiert um eine Distanz von zwei Längengraden herauszubekommen: private function distanz() As Single Dim breite_neu As Single Dim laenge_neu As Single Dim laenge_alt As Single Dim breite_alt As Single Dim e As Single breite_alt = 54.7710609436035 breite_neu = 54.77081 laenge_alt = 15.4377298355103 laenge_neu = 15.43747 e = ArcCos(Sin(breite_neu) * Sin(breite_alt) + Cos(b ...