'sirf protocol------------------------------------------------------------------
'gpgga : $GPGGA, 161229.487,3723.2475,N,12158.3416,W,1,07,1.0,9.0,M
' type utc latt n/s long e/w fix sateliteused hdop altitude M
'gprmc : $GPRMC, 161229.487,A,3723.2475,N,12158.3416,W,0.13,309.62,120598
' J = 1
' Do
' A = Inkey()
' If A = 36 Then Input , Gpsdata Noecho
' Head = Mid(gpsdata , 1 , 5)
' Loop Until Head = "GPGGA"
' Bcount = Split(gpsdata , Ar(j) , ",")
' For J = 1 To Bcount
' Next J
' Gpsdata = ""
' Gpslatt = Ar(3) + Ar(4)
'
' K = 1
' Do
' A = Inkey()
' If A = 36 Then Input , Gpsdata Noecho
' Head = Mid(gpsdata , 1 , 5)
' Loop Until Head = "GPRMC"
' Bcount = Split(gpsdata , Ar(k) , ",")
' For K = 1 To Bcount
' Next K
' Gpsdata = ""
' Gpsdate = Ar(10)
↧