开始实时接收。
Prlvate Sub mnustart()
Timerl.lrlteIval=2000
Timerl.Enabled=True
Comml.CommPort=6
Comml.Settings=″57600,N,8.1″
Comml.PortOpen=True
strsmsdata=Comml.Input ′去除串口Buffer中的暂存信息
Timerl_Timer
End Sub
Private Sub TimerLTimer()
Dim IngNextvbCrLf As Long′记录下一个回车换行符位置
Dim IngFirstGPGGA As Long
Dim Message As String
Dim sDate As String
Dim cn
strsmsdata=Comml.Input
IngFirstGPGGA=Instr(1,strsmsclata,″$GPGGA″)
If lngFirstGPGGA Then
IngNextVbCrLf=lnstr(IngFirstGPGGA+1,
strsmsdata,vbCrLf)
Message=Mid(Strsmsdata,ingFirstGPGGA,lngNextvb
CrLf-ingFirstGPGGA)
ParseNMEAMessage Message,dblXCoord,dblYCoord,sDate
ProcessInput dblXCoord,dblYCoord
End Tf