kulachi
Newbie level 5
problem in nmea parsing
hello all
i m doing a project of gps datalogger n i need to parse the gps sting
i m using Proton Development Suite compler to compile the code i m interesed in latitude and longitude of the string i m uploading my code but it not working it jst waits for the $GPRMC but dont get the string if any one can help me out with the error with this code or upload another code for the GPS NMEA parsing
i will b very thankful
Regards
Ali
*******************
Device 16F877A
XTAL 20
RSIN_PIN portC.7
RSIN_MODE true
SERIAL_BAUD 4800
INPUT PortC.7
Dim arr[50] As Byte
Dim long[50] As Byte
Dim i As Byte
Dim RsByte As Byte
Dim lat_d, long_d As Byte
Cls
Print "GPS Interfacing"
Delayms 1000
Main:
i = 0
RSIN WAIT( "$GPRMC" ) , RsByte
RSIN WAIT( "," ) , RsByte
RSIN WAIT( "," ) , RsByte
arr[0] = RsByte
RsByte = Rsin
arr[1] = RsByte
RsByte = Rsin
arr[2] = RsByte
RsByte = Rsin
arr[3] = RsByte
RsByte = Rsin
arr[4] = RsByte
RsByte = Rsin
arr[5] = RsByte
RsByte = Rsin
arr[6] = RsByte
RsByte = Rsin
arr[7] = RsByte
RsByte = Rsin
arr[8] = RsByte
RsByte = Rsin
arr[9] = 0
;RsByte = Rsin
;RsByte = Rsin
lat_d = Rsin
RSIN WAIT( "," ) ,str long \10
long[11]=0
Print At 3,-3, str long " "
RSIN WAIT( "," ) ,str long \10
long[11]=0
Print At 4,-3, str long " "
Print At 2,1,lat_d," "
Goto Main
hello all
i m doing a project of gps datalogger n i need to parse the gps sting
i m using Proton Development Suite compler to compile the code i m interesed in latitude and longitude of the string i m uploading my code but it not working it jst waits for the $GPRMC but dont get the string if any one can help me out with the error with this code or upload another code for the GPS NMEA parsing
i will b very thankful
Regards
Ali
*******************
Device 16F877A
XTAL 20
RSIN_PIN portC.7
RSIN_MODE true
SERIAL_BAUD 4800
INPUT PortC.7
Dim arr[50] As Byte
Dim long[50] As Byte
Dim i As Byte
Dim RsByte As Byte
Dim lat_d, long_d As Byte
Cls
Print "GPS Interfacing"
Delayms 1000
Main:
i = 0
RSIN WAIT( "$GPRMC" ) , RsByte
RSIN WAIT( "," ) , RsByte
RSIN WAIT( "," ) , RsByte
arr[0] = RsByte
RsByte = Rsin
arr[1] = RsByte
RsByte = Rsin
arr[2] = RsByte
RsByte = Rsin
arr[3] = RsByte
RsByte = Rsin
arr[4] = RsByte
RsByte = Rsin
arr[5] = RsByte
RsByte = Rsin
arr[6] = RsByte
RsByte = Rsin
arr[7] = RsByte
RsByte = Rsin
arr[8] = RsByte
RsByte = Rsin
arr[9] = 0
;RsByte = Rsin
;RsByte = Rsin
lat_d = Rsin
RSIN WAIT( "," ) ,str long \10
long[11]=0
Print At 3,-3, str long " "
RSIN WAIT( "," ) ,str long \10
long[11]=0
Print At 4,-3, str long " "
Print At 2,1,lat_d," "
Goto Main