vb-gps.txt

这个是一个vb编的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) 
         
        If gprmc(2) = "A" Then 
            status = True 
        Else 
            status = False 
            Exit Sub 
        End If 
         
        Latitude = CDbl(gprmc(3)) / 100 
        Longitude = CDbl(gprmc(5)) / 100 
                                         
'        '>分到度 
'        Dim PartA As String, PartB As String, DotPos As Integer, DblA As Double, DblB As Double 
'        'Dim NewLon As Double, NewLat As Double 
'        PartA = CStr(Longitude) 
'        DotPos = InStr(PartA, ".") 
' 
'        PartB = Mid(PartA, DotPos + 1, Len(PartA) - DotPos) 
'        PartA = Mid(PartA, 1, DotPos - 1) 
' 
'        DblA = CDbl(PartA) 
'        DblB = CDbl(Mid(PartB, 1, 2) & "." & Mid(PartB, 3, Len(PartB) - 2) & "0") / 60 
' 
'        Longitude = DblA + DblB 
' 
'        PartA = CStr(Latitude) 
'        DotPos = InStr(PartA, ".") 
'        PartB = Mid(PartA, DotPos + 1, Len(PartA) - DotPos) 
'        PartA = Mid(PartA, 1, DotPos - 1) 
'        DblA = CDbl(PartA) 
'        DblB = CDbl(Mid(PartB, 1, 2) & "." & Mid(PartB, 3, Len(PartB) - 2) & "0") / 60 
' 
'        Latitude = DblA + DblB 
'        '<分到度 
' 
         
        Speed = CDbl(gprmc(7)) * 1.609 
        Delta = CDbl(gprmc(8)) 
         
        Exit For 
      End If 
    Next