send_gps.bas

来自「reading gps data from serial」· BAS 代码 · 共 19 行

GPSout VAR PORTB.2 	
baudGPS CON 188 	
    
GPS: 
Serout2 GPSout,baudGPS,["$GPRMC,130133,A,3522.631,N,03023.637,E,013.4,254.9,251106,000.0,E*72",10,13]
PAUSE 1000
Serout2 GPSout,baudGPS,["$GPRMC,140234,A,3588.751,N,02925.557,E,013.4,254.9,251106,000.0,E*72",10,13]
PAUSE 1000
Serout2 GPSout,baudGPS,["$GPRMC,150335,A,3566.001,N,02761.447,E,013.4,254.9,251106,000.0,E*72",10,13]
PAUSE 1000
Serout2 GPSout,baudGPS,["$GPRMC,160436,A,3541.232,N,03055.227,E,013.4,254.9,251106,000.0,E*72",10,13]
PAUSE 1000
Serout2 GPSout,baudGPS,["$GPRMC,170537,A,3556.441,N,03096.147,E,013.4,254.9,251106,000.0,E*72",10,13]
PAUSE 1000
Serout2 GPSout,baudGPS,["$GPRMC,180638,A,3533.211,N,03042.997,E,013.4,254.9,251106,000.0,E*72",10,13]
PAUSE 1000
goto gps
end