GPS Daten - Verarbeitungsproblem

[Ciclo_de]

Servus,

ich habe einen Royaltek serielle GPS-Maus und eine LCD-Display an einem ATmega8. Die GPS Maus sendet ca. jede Sekunde schön brav die GPS Daten die ich haben will. Es kommen nacheinander wie $GPGGA,14.., $GPGSV,2,1.., $GPGSV,2,.., $GPRMC,14.., $GPVTG,2,.. etc.
Wenn ich jetzt folgendes Programm starte bekomme auf den LCD viel mehr GPRMC als GPGGA, d.h. in ca. 10 Sekunden 1x ein GPGGA Datensatz und ca. 180 GPRMC Datensätze von dem Programm ausgewertet obwohl die Maus nur 1-2 Mal pro Sekunde die Daten sendet

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 4800

Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.1 , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5
Config Lcd = 40 * 4

Initlcd
Cursor Off
Cls

Dim A As Byte
Dim GpsDaten As String * 75
Dim Gga As Integer
Dim Rmc As Integer

Gga = 0
Rmc = 0

Do
    Do
    	A = Inkey()
    	If A = 36 Then Input GpsDaten
    	Typ = Mid(GpsDaten , 1 , 5)                         
    Loop Until Typ = "GPGGA" OR Typ = "GPRMC" 

    'Hier würden jetzt die einzelnen Info`s aus dem GPSDatensatz gesplittet

    Locate 1, 1
    Lcd Mid(GpsDaten, 1, 40)

    If Typ = "GPGGA" then
	Gga = Gga +1
	Locate 2, 1
	Lcd "GGA = " ; Gga
    End if

    If Typ = "GPRMC" then
	Rmc = Rmc +1
	Locate 3, 1
	Lcd "GGA = " ; Gga
    End if
    Typ = ""
Loop

End

Lasse ich die Do until Schleife nur durch GPGGA unterbrechen läuft alles wie es soll. D.h. irgendwie funktioniert das ganze nicht mehr wenn auch auf GPRMC reagiert werden soll.
Ich bin langsam am verzweifeln und ich glaub ich sehe den Wald vor lauter Bäumen nicht mehr.

Bin für jeden Tip dankbar

Gruss

Alex aka Ciclo

[Freiheitspirat]

Könnte es daran liegen, das Du die Variable "Typ" bzw. "GpsDaten" nach "Abarbeitung" nicht initialisierst, sondern sie weiterhin ihren Wert behalten egal was in "A" ankommt ?

Probier mal ein: GpsDaten = "" zwischen den beiden "Do's"...