2. 2. 4 　ShowData 过程该过程具体实现GPS 信息在文本框区显示、采集的功能,它通过添加数据到txt Term 控件的Text 属性,过滤控制字符,如空格、回车、换行, 并且写数据到一个打开的记录文件。空格符从它的左侧删除,在Text 属性, 或者从传递字符串中;换行符将被修改为回车; txt Term 控件的Text 属性的尺寸也被监视,使它不能超过MAX2TERMSIZE 的要求。其实现过程如下:Private Static Sub ShowData ( Term As Control , Data As String)On Error GoTo HandlerConst MAXTERMSIZE = 16000Dim TermSize As Long , i’以下为显示GPS 信息时用的变量Dim InString As StringDim Utils As New CParseUtilsDim tempStr As StringDim n As IntegerDim cnt As Integer’确定现存的文本不会太大TermSize = Len ( Term. Text )If TermSize > MAXTERMSIZE Then　Term. Text = Mid ＄( Term. Text , 4097)　TermSize = Len ( Term. Text )End If’指到txt Term 的数据的结尾处Term. SelStart = TermSize’过滤/ 处理空格符Do　i = InStr (Data , Chr ＄(8) )　If i Then　　　If i = 1 Then　　　　Term. SelStart = TermSize - 1　　　　Term. SelLength = 1　　　　Data = Mid ＄(Data , i + 1)　　　Else　　　　Data = Left ＄(Data , i - 2) & Mid ＄(Data , i +1)　　　End If　End IfLoop While i’除去换行符Do　i = InStr (Data , Chr ＄(10) )　If i Then　　　Data = Left ＄(Data , i - 1) & Mid ＄(Data , i + 1)　End IfLoop While i’确定所有的回车都包含换行符i = 1Do　i = InStr (i , Data , Chr ＄(13) )　If i Then　　　Data = Left ＄(Data , i) & Chr ＄(10) & Mid ＄(Da2ta , i + 1)　　　i = i + 1　End IfLoop While i’添加过滤的数据到SelText 属性Term. SelText = Data　’如果需要记录数据到文件If hLogFile Then　i = 2　Do　　　Err = 0　　　Put hLogFile , , Data　　　Dim data0 As String　　　If Err Then　　　　i = MsgBox( Error ＄, 21)　　　　If i = 2 Then　　　　　　mnuCloseLog - Click　　　　End If　　　End If　Loop While i < > 2End IfTerm. SelStart = Len ( Term. Text ) ’定位信息显示部分开始InString = Datacnt = Utils. Count Parts ( InString , Chr (10) )　　For n = 0 To cnt - 1　　　tempStr = Utils. Parse ( InString , n , Chr (10) )　　　　ReDim Preserve sArray(n)　　　　sArray(n) = tempStr　　Next n　　Set Utils = Nothing　　sCnt = cnt　　Call playNMEA(sArray) ’显示部分结束Exit SubHandler :MsgBox Error ＄Resume NextEnd Sub2. 3 　实时记录和保存GPS 数据程序运行时,如执行“打开记录文件”,则打开要记录的文件和端口,在GPS 信息区实时显示接收到的GPS 报文[ 2 ] ,并录入到记录文件中;若执行“关闭记录文件”,则关闭记录文件(但文本框中仍然显示GPS 信息) 。Private Sub mnuOpenLog - Click()’执行“打开记录文件”　Dim replace　On Error Resume Next　With OpenLog ’CommonDialog 控件　　　　. Flags = cdlOFNHideReadOnly Or cdlOFNExplorer　　　　. CancelError = True 　　　’从用户处获得记录文件名称　　　　. DialogTitle = “打开记录文件”　　　　. Filter = “文件格式1 ( 3 . LOG) | 3 . log| 文件格式2 ( 3 . txt) | 3 . txt| 文件格式3 ( 3 . 3 ) | 3 . 3 ”　End With　Do　　　OpenLog. FileName = “”　　　OpenLog. ShowOpen　　　If Err = cdlCancel Then Exit Sub　　　Temp = OpenLog. FileName　　　’如果文件已经存在, 询问用户是否希望覆盖此文件或在此文件基础上添加内容　　　Ret = Len (Dir ＄( Temp) )　　　If Err Then　　　　MsgBox Error ＄, 48　　　　Exit Sub　　　End If　　　If Ret Then　　　　replace = MsgBox(“代替存在的- ”+ Temp +“吗?”, 35)　　　Else　　　　replace = 0　　　End If　Loop While replace = 2　’用户单击“确定”按钮, 则删除此文件　If replace = 6 Then　　　Kill Temp　　　If Err Then　　　　MsgBox Error ＄, 48　　　　Exit Sub　　　End If　End If　’打开记录文件　hLogFile = FreeFile　Open Temp For Binary Access Write As hLogFile　If Err Then　　　MsgBox Error ＄, 48　　　Close hLogFile　　　hLogFile = 0　　　Exit Sub　Else　　　’到文件结尾处来添加新数据　　　Seek hLogFile , LOF(hLogFile) + 1　End IfEnd SubPrivate Sub mnuCloseLog - Click()’执行“关闭记录文件”　　Close hLogFile　　hLogFile = 0End Sub2. 4 　回放GPS 数据GPS 数据的回放,是将存有GPS 信息的文件打开,并重新读取、显示其信息的过程。它包括一个打开过程[ 2 ]和一个播放过程。具体实现代码如下(要用到前面给出的模块中的方法) :Private Sub mnuOpenBFile - Click()’读取存有GPS 信息的回放文件　　Dim sFile As StringDim SentenceOn Error GoTo errorhandleWith OpenBFile　　　　’从用户处获得回放文件名称　　　　. DialogTitle = “打开回放文件”　　　　. Filter = “文件格式1 ( 3 . LOG) | 3 . log| 文件格式2 ( 3 . txt) | 3 . txt| 文件格式3 ( 3 . 3 ) | 3 . 3 ”　　　　. ShowOpen　　　　If Len( . FileName) = 0 Then　　　　　　Exit Sub　　　　End If　　　　　　sFile = . FileName　　　　End With　　　　Open sFile For Input As # 1　　　　sCnt = 0　　　　　Do While Not EOF (1)　　　　　　　Line Input # 1 , Sentence　　　　　　　ReDim Preserve sArray(sCnt)　　　　　　　sArray(sCnt) = Sentence　　　　　　　sCnt = sCnt + 1　　　　　LoopClose # 1　Exit Suberrorhandle :　　Close # 1　　MsgBox“打开文件错误!”End SubPrivate Sub mnuPlayBFile - Click()’播放GPS 记录文件Call playNMEA(sArray)End Sub3 　结　论通过对GPS 通讯NMEA 协议的分析,以RMC 语句的“＄GPRMC”串为例,给出了开发GPS 数据处理的方法。该方法具有简单、高效、实用的特点。需要说明的是,用RMC 语句不能读取高程数据,如果要在应用中读取高程数据, 可应用文中的方法, 再编写一个读GGA 语句(“＄GPGGA”串) 的类,其中第9 个数据段就是高程信息。

评论