VB GPS 编程源程序

最新推荐文章于 2025-07-15 09:25:54 发布

原创

最新推荐文章于 2025-07-15 09:25:54 发布 · 880 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#vb #编程 #string #integer #date

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

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 = Mid(gprmc(1), 3, 2)
second = Mid(gprmc(1), 5, 2)

utime = Timevalue(hour & ":" & minute & ":" & second) <