nmea Daten berechnen

  • VB6

    nmea Daten berechnen

    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.
    Im Anhang habe ich meine nmea Datei beigefügt und mein VB Code für die Berechnung der Distanz und Zeit sieht wie folgt aus:

    Visual Basic-Quellcode

    1. Open datei For Input As #2
    2. Do While Not EOF(2)
    3. Line Input #2, Data
    5. 'prüfen ob beginn erreicht ist
    6. If Left(Data, 8) = "$Version" Then
    7. i = 1
    8. End If
    11. If Left(Data, 6) = "$GPRMC" Then
    12. i = i + 1
    13. datum2 = datum1
    14. uhrzeit2 = uhrzeit1
    15. breite2 = breite1
    16. laenge2 = laenge1
    18. datum1 = MakeStringToDate(wert(9, Data))
    19. uhrzeit1 = MakeStringTotime(wert(1, Data))
    20. breite1 = wert(3, Data)
    21. laenge1 = wert(5, Data)
    23. 'Prüfen ob bereits nächstes Datum ist
    24. If datum2 <> datum1 Then y = y + 1
    26. If breite1 > 0 Then breite1 = Left(breite1, 2) + CDbl(Mid(breite1, 3, 2) & "," & Mid(breite1, 5)) / 60
    27. If laenge1 > 0 Then laenge1 = Left(laenge1, 2) + CDbl(Mid(laenge1, 3, 2) & "," & Mid(laenge1, 5)) / 60
    29. If i > 2 And (breite1 <> breite2 Or laenge1 <> laenge2) Then
    30. kilometer(y) = kilometer(y) + distanz(breite2, laenge2, breite1, laenge1)
    32. zeit(y) = zeit(y) + DateDiff("s", uhrzeit2, uhrzeit1)
    33. datum(y) = datum1
    35. End If
    38. End If
    40. Loop
    41. Close #2
    42. tage = y + 1
    43. x = 0
    44. Do While x < tage
    45. Debug.Print kilometer(x)
    46. Debug.Print CDate(zeit(x) / 86400) 'stunden
    47. Debug.Print datum(x)
    48. Debug.Print "-------------"
    49. x = x + 1
    51. Loop



    Mit meinem Code komme ich auf folgendes Ergebnis:


    41,831044 (Kilometer)
    00:09:30 (Zeit)
    18.06.2010 (Datum)

    Laut der Software GPSonic (http://www.nsonic.de) bekomme ich folgendes Ergebnis:
    7,98 km
    00:10:57 (Zeit)

    Hoffe da kann mir jemand weiterhelfen, was ich da falsch mache, bzw. wo da der Fehler liegen könnte.

    Vielen Dank für jede Antwort
    Dateien

    • nmea.txt

      (185,82 kB, 121 mal heruntergeladen, zuletzt: )

Facebook
Telefonspende