Code: Select all
IF NMEA.GetItem(NMEAItem) AND NMEAItem.Valid THEN
NMEA.GetField(NMEAItem,0,Field)
IF Field = "$GPRMC" THEN
NMEA.GetField(NMEAItem,0,Field)
GLCD.SetFont(Fixed)
NMEA.GetField(NMEAItem, 3, FieldLat) 'recupere Latitude
GLCD.WriteAt(1,55,FieldLat)
NMEA.GetField(NMEAItem, 4, FieldLat) 'recupere N
GLCD.WriteAt(56,55,FieldLat)
NMEA.GetField(NMEAItem, 5, FieldLon) 'recupere Longitude
GLCD.WriteAt(62,55,FieldLon)
NMEA.GetField(NMEAItem, 6, FieldLon) 'recupere W ou E
GLCD.WriteAt(122,55,FieldLon)
NMEA.GetField(NMEAItem, 8, Field) 'recupere CAP
Field = Left(Field,3)
data1 = StrToDec(Field)
text4 = DecToStr(data1)
END IF
END IF 'nmea
Code: Select all
IF NMEA.GetItem(NMEAItem) AND NMEAItem.Valid THEN
NMEA.GetField(NMEAItem,0,Field)
Repeat
NMEA.GetField(NMEAItem,0,Field)
GLCD.SetFont(Fixed)
NMEA.GetField(NMEAItem, 3, FieldLat) 'recupere Latitude
GLCD.WriteAt(1,55,FieldLat)
NMEA.GetField(NMEAItem, 4, FieldLat) 'recupere N
GLCD.WriteAt(56,55,FieldLat)
NMEA.GetField(NMEAItem, 5, FieldLon) 'recupere Longitude
GLCD.WriteAt(62,55,FieldLon)
NMEA.GetField(NMEAItem, 6, FieldLon) 'recupere W ou E
GLCD.WriteAt(122,55,FieldLon)
NMEA.GetField(NMEAItem, 8, Field) 'recupere CAP
Field = Left(Field,3)
data1 = StrToDec(Field)
text4 = DecToStr(data1)
Until Field = "$GPRMC"
END IF 'nmea