Code:
'$GPRMC,001300.955,V,0000.0000,N,00000.0000,E,,,101102,,*1C =70 byte
'$GPVTG,,T,,M,,N,,K*4E
'$GPGGA,001301.955,0000.0000,N,00000.0000,E,0,00,50.0,0.0,M,0.0,M,0.0,0000*7C
'$GPGSA,A,1,,,,,,,,,,,,,50.0,50.0,50.0*05
'$GPGSV,1,1,01,32,00,000,00*49
'DATEN des GPS HI 204S
$regfile = "m16def.dat"
$crystal = 16000000
$baud = 4800
$hwstack = 32 'hardware stack
$swstack = 10 'software stack
$framesize = 42 'frame space
Dim K As String * 20
Dim S As String * 70
Dim Ost As String * 12
Dim Nord As String * 12
Dim Speed As String * 5
On Urxc Onrxd
Enable Urxc
Enable Interrupts
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.3 , Rs = Porta.2
'Config Porta = Output
Config Lcd = 20 * 2
Main:
Goto Main
Onrxd:
S = S + Chr(udr)
If Len(s) = 70 Then
S = Mid(s , 2 , 70)
End If
K = Mid(s , 1 , 6)
Ost = Mid(s , 33 , 12)
Nord = Mid(s , 21 , 11)
Speed = Mid(s , 46 , 5)
If K = "$GPRMC" Then
Cls
Upperline
Lcd "N" ; Nord ; " " ; "E" ; Ost
Lowerline
Lcd Speed
Waitms 100
End If
Return
Lesezeichen