INCLUDE "modedefs.bas"
'-------------------------------
DEFINE OSC 4
DEFINE HSER_RCSTA 90h
DEFINE HSER_TSTA 20h
DEFINE HSER_BAUD 9600
DEFINE HSER_CLROERR 1
'------------------------------
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:
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
estoy usando avangador gps generator pro, proteus y virtual serial ports emulator, la transmision es a 9600 baudios rate, simplemente no lee la trama, no tengo ni la mas remota idea de porque no me funciona. si alguien tiene idea de como orientarme se lo agradeceria mucho.
'-------------------------------
DEFINE OSC 4
DEFINE HSER_RCSTA 90h
DEFINE HSER_TSTA 20h
DEFINE HSER_BAUD 9600
DEFINE HSER_CLROERR 1
'------------------------------
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:
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
estoy usando avangador gps generator pro, proteus y virtual serial ports emulator, la transmision es a 9600 baudios rate, simplemente no lee la trama, no tengo ni la mas remota idea de porque no me funciona. si alguien tiene idea de como orientarme se lo agradeceria mucho.
