VB GPS 编程源程序

原创

于 2008-11-28 10:55:00 发布 · 857 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#vb #编程 #string #integer #date

该博客内容展示了如何在VB中处理GPS通信，提取GPRMC数据，包括时间戳、状态、纬度、经度、速度等信息，将GPS信号转化为可读的地理位置和速度。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Private Sub GPSComm_OnComm()
On Error GoTo ErrHdl

Dim oData As String
Dim aData() As String
Dim aDataLen As Integer
Dim counter1 As Integer

oData = CStr(GPSComm.Input)

If Mid(oData, 1, 1) <> "$" Then
Exit Sub
End If

aData = Split(oData, vbCrLf)
aDataLen = 8

For counter1 = 1 To aDataLen Step 1
If Len(aData(counter1)) < 6 Then
Exit For
End If
If Mid(aData(counter1), 2, 5) = "GPRMC" Then
Dim gprmc() As String
Dim utime As Date
Dim status As Boolean
Dim Latitude As Double
Dim Longitude As Double
Dim Speed As Double
Dim Delta As Double

gprmc = Split(aData(counter1), ",")

Dim hour As String
Dim minute As String
Dim second As String

hour = Mid(gprmc(1), 1, 2)
minute =

最低0.47元/天解锁文章