vb接收GPS数据源码全

sp;num_sat = GetToken(sLine, 8, ",")  '''' xx = number of satellites in use
''''      horiz_dilute = GetToken(sLine, 9, ",")  '''' p.p = horizontal dilution of precision  0.0 to 9.9
''''          altitude = GetToken(sLine, 10, ",")  '''' a.b = Antenna altitude above mean-sea-level
''''         alt_units = GetToken(sLine, 11, ",") '''' M = units of antenna altitude, meters
''''        geo_height = GetToken(sLine, 12, ",") '''' c.d = Geoidal height
''''         geo_units = GetToken(sLine, 13, ",") '''' M = units of geoidal height, meters
''''               age = GetToken(sLine, 14, ",") '''' x.x = Age of Differential GPS data (seconds since last valid RTCM transmission)
''''      diff_station = GetToken(sLine, 15, ",") '''' nnnn = Differential reference station ID, 0000 to 1023}
   
      lat_deg = nmeadegrees2decimal(lat_deg_nmea, lat_dir)
      lon_deg = nmeadegrees2decimal(lon_deg_nmea, lon_dir)
      
      Dim val As String
      If lat_deg <> 0 And lon_deg <> 0 Then
         If lat_deg <> last_lat Or lon_deg <> last_lon Then
            '''' 1,33.699424000,-117.858616,90,10,####,####,####
            line_num = line_num + 1
            If mark_cone = True Then
               val = "cone"
               mark_cone = False
            Else
               val = "####"
            End If
            val = line_num & "," & lat_deg & "," & lon_deg & ",10,10," & val & ",####,####"
            txtRDDFHistory.Text = Mid(val & vbNewLine & txtRDDFHistory.Text, 1, 1000)
            If save_on = True Then