【散100分】溜达溜达看看小弟我的GPS代码·

【散100分】溜达溜达看看我的GPS代码··
我做的只是一个小DEMO  
想大家看看这种思路OK不

配置Com口                    这里我没简化写

Private Enum GroupState

    GroupStart

    GroupBody

    GroupEnd

End Enum



MSComm1.Settings = "4800,n,8,1"

MSComm1.CommPort = 8

MSComm1.InBufferSize = 40

MSComm1.RThreshold = 1

MSComm1.InputLen = 1

MSComm1.InputMode = comInputModeText

MSComm1.PortOpen = True

这里是事件的具体代码              名字瞎起凑合看吧先

Private Static Sub MSComm1_OnComm()

Dim code As String

Dim up() As String

Dim eType As GroupState


Select Case MSComm1.CommEvent

            ' 判断MSComm1通信事件

    Case comEvReceive

        code = MSComm1.Input

        If code = "$" Then

            If foo <> "" Then

                up = Split(foo, ",")

                If up(0) = "$GPRMC" Then

                    Label3.Caption = up(3)

                    Label5.Caption = up(4)

                    Label4.Caption = up(5)

                    Label6.Caption = up(6)

                    'Command4.Caption = i

                    'i = i + 1

                End If

                foo = ""

            End If

            

            eType = GroupStart

            

        End If

        Select Case eType

        Case GroupState.GroupStart

            eType = GroupBody

            foo = foo + code

        Case GroupState.GroupBody

            foo = foo + code

        End Select