INCLUDE "modedefs.bas"
'-------------------------------
DEFINE OSC 4
DEFINE HSER_RCSTA 90h
DEFINE HSER_TSTA 20h
DEFINE HSER_SPBRG 25
DEFINE HSER_BAUD 9600
'------------------------------
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 0
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 3
'-------------------------------
'Ejemplo de una trama $GPRMC
'$GPRMC,153018.62,A,0000.023,N,00000.000,W,21.60,0.00,190213,0.0,E,A*11
'--------------------------------
hora var byte
minutos var byte
segundo var byte
latitud1 var byte
latitud2 var byte
latitud3 var byte
longitud1 var byte
longitud2 var byte
longitud3 var byte
ns var byte
oe var byte
'-----------------------------
GPS:
lcdout $FE,1," iniciando"
pause 1000
lcdout $FE,1
hserin [WAIT("$GPRMC"),dec2 hora,dec2 minutos,dec2 segundo,skip 3,dec2 latitud1,dec2 latitud2,skip 1,dec2 latitud3,skip 2,ns,skip 1,dec3 longitud1,dec2 longitud2,skip 1,dec2 longitud3,skip 2,oe]
lcdout $FE, 1
lcdout "UTC: ",dec2 hora,":",dec2 minutos,":",dec2 segundo
lcdout $FE,$C0,"LAT: ",dec2 latitud1,dec2 latitud2,dec2 latitud3,ns
pause 3000
lcdout $FE, 1
lcdout "LON: ",dec3 longitud1,dec2 longitud2,dec2 longitud3,oe
pause 3000
lcdout $FE, 1
high porta.0
pause 500
low porta.0
goto GPS
end
El programa no me funciona... se queda esperando la trama y nunca la muestra en el lcd. quisiera alguna orientacion al respecto