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

2012-12-26

【散100分】溜达溜达看看我的GPS代码··我做的只是一个小DEMO想大家看看这种思路OK不配置Com口这里我没简化写

【散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

RichTextBox1.SelText = code
Case Else
End Select
End Sub

有一点我不太明白这里我是一个字符一个字符读进来的，但是他到了richtextbox里面怎么就换行了呢
我之前测试过以$符号为界限一行一行添加到数组中之后用vbcrlf来分隔没有问题
但是我在代码里面直接判断单个字符的时候就判断不出来。
所以我就直接写到了CommEvent事件里面了
我这么写可以不？
我是说老大看了之后不会说我没思想啊，这些吧。虽然实现了
我怕老大说我没啥思想，一味的实现，望高手指点。

解释：
$GPRMC,<1>,<2>,<3>,<4>,<5>,<6>,<7>,<8>,<9>,<10>,<11><CR><LF>
1) 标准定位时间（UTC time）格式：时时分分秒秒.秒秒秒（hhmmss.sss）。
2) 定位状态，A = 数据可用，V = 数据不可用。
3) 纬度，格式：度度分分.分分分分（ddmm.mmmm）。
4) 纬度区分，北半球（N）或南半球（S）。
5) 经度，格式：度度分分.分分分分。
6) 经度区分，东（E）半球或西（W）半球。
7) 相对位移速度， 0.0 至 1851.8 knots
8) 相对位移方向，000.0 至 359.9度。实际值。
9) 日期，格式：日日月月年年（ddmmyy）。
10) 磁极变量，000.0 至180.0。
11) 度数。
12) Checksum.(检查位)

真实数据：

$GPRMC,034719.193,V,4002.3872,N,11624.5600,E,,,020410,,,N*79
$GPVTG,,T,,M,,N,,K,N*2C
$GPGGA,034720.193,4002.3872,N,11624.5600,E,0,00,,149.3,M,-6.1,M,,0000*64
$GPRMC,034720.193,V,4002.3872,N,11624.5600,E,,,020410,,,N*73
$GPVTG,,T,,M,,N,,K,N*2C
$GPGGA,034721.193,4002.3872,N,11624.5600,E,0,00,,149.3,M,-6.1,M,,0000*65
$GPRMC,034721.193,V,4002.3872,N,11624.5600,E,,,020410,,,N*72
$GPVTG,,T,,M,,N,,K,N*2C

我就拿出了一小段。
[最优解释]
学习and
双手接分
[其他解释]
路过参观接分
[其他解释]
友情接分！！
[其他解释]
友情接分
[其他解释]
$GPRMC,<1>,<2>,<3>,<4>,<5>,<6>,<7>,<8>,<9>,<10>,<11><CR><LF>
数据格式中本色带有回车换行，你又把每个字符都输出到 RichTextBox 中，当然会分行了！

注：vbCrLf 是两个字符，你分开来接收就分别是 vbCr、vbLf。
[其他解释]
溜达溜达进来逛逛。
[其他解释]
溜达溜达进来逛逛。
[其他解释]
时区=四舍五入(经度/15)
[其他解释]

引用:

时区=四舍五入(经度/15)

O(∩_∩)O哈哈~刚刚问完了就想起来了··

(*^__^*) 嘻嘻……

今天不火爆啊···没人鸟我代码
[其他解释]
关注。。。。。。。。。。。
[其他解释]
学习下！
[其他解释]
同修，学习中。
[其他解释]

引用:

溜达溜达进来逛逛。

+1
[其他解释]
支持~~
学习了

[其他解释]
今天高手休息
[其他解释]
支持下楼主
------其他解决方案--------------------

路过接分
[其他解释]
友情接分
[其他解释]
楼主高手阿
[其他解释]
看不懂。
学习学习
[其他解释]

引用:

引用:
溜达溜达进来逛逛。
+1

溜达溜达进来逛逛逛。
[其他解释]
这个不懂，学习！
[其他解释]
VB的~~看的有点朦胧哦
[其他解释]
思路不错，楼主再接再厉。
[其他解释]
谢谢。。。。
[其他解释]
友情围观..............

[其他解释]
强！学习了！
[其他解释]
不懂vb，参观一下。。。
[其他解释]
学习了
[其他解释]
对VB不是很懂。。。溜达溜达。。
[其他解释]
精神不错，值得学习，以前我也写过Com口的通信程序，虽然也实现了功能，但是没有拿上来和大家一起探讨，呵呵...
[其他解释]
学习,学习
[其他解释]
学习了，谢谢！
[其他解释]
mark~~
[其他解释]
学习了，呵呵
[其他解释]
从没碰过com口学习一下
[其他解释]
谢谢楼主分享。

MARK，学习下
[其他解释]
要是VC下就ok

[其他解释]
看不懂呵呵呵
[其他解释]
学习了

哈哈哈
[其他解释]
好好学习天天向上
[其他解释]
支持~~
学习了

[其他解释]
跟踪学习……
[其他解释]
关注。。。学习。。。
[其他解释]
网上应该有现成的，上去搜搜吧！
[其他解释]
呵呵进来溜达下
[其他解释]
学习学习
[其他解释]
关注
[其他解释]
关注一下~~~
[其他解释]
每天一水
------其他解决方案--------------------

路过学习
并且接分！
[其他解释]
学习了..
[其他解释]

引用:

引用:
溜达溜达进来逛逛。
+1

+1
[其他解释]
j f f
[其他解释]
路过，学习中！
[其他解释]
学习了..

[其他解释]
好久没来了~
学习了，LZ
[其他解释]
学习了..
[其他解释]
路过参观接分走人！！！
[其他解释]
路过参观接分！！
[其他解释]
友情接分！！
[其他解释]
顶了在看！！
[其他解释]
路过，学习了
[其他解释]
前来接分了
[其他解释]
拷下来，嘿嘿
[其他解释]
感谢楼主给我学习的机会
[其他解释]
有没有关于这方面毕设的东西啊
[其他解释]
该回复于2010-09-13 13:26:59被版主删除
[其他解释]
很好的知识！
[其他解释]
学习and
双手接分
[其他解释]
学习下
[其他解释]
同楼上的楼上
[其他解释]
接分 .
[其他解释]
不会VB。。。
[其他解释]
接分路过
[其他解释]
看看 jf
[其他解释]
没错。
你需要GPS 对应的 EMA协议进行解析！
； = ）
[其他解释]
接分...
[其他解释]
学习，路过。。。。
[其他解释]
谢谢楼主，接分了！
[其他解释]
vb的，，
[其他解释]
路过，接分
------其他解决方案--------------------

打错，应该是 “VB 好几年没接触了”。
[其他解释]
gfdgdfg fdgs
[其他解释]
本人无才，只作关注状
[其他解释]
fffffffffffffffffffffffffffffffffffffff
[其他解释]
支持，学习
[其他解释]
null
[其他解释]
null
[其他解释]
null
[其他解释]
谁会用经纬度计算时区啊？

我发现卫星时间是格林威治时间北京的话需要在加8小时才行
[其他解释]
呵呵，厉害啊，顶顶顶
[其他解释]
vb 写的，不错，只吃一下
[其他解释]
jf要是VC下就ok
[其他解释]
学习and
双手接分
[其他解释]
不错，下载扣分返回
[其他解释]
学习了。。。。。
[其他解释]
VB 好几年没解除了。纯粹是穷人过来接分。。。
[其他解释]

引用:

引用:
溜达溜达进来逛逛。
+1

+1
[其他解释]
null

热点排行