【散100分】溜达溜达看看我的GPS代码我做的只是一个小DEMO想大家看看这种思路OK不配置Com口这里我没简化写VB
【散100分】溜达溜达看看我的GPS代码··
VB codePrivate Enum GroupState GroupStart GroupBody GroupEndEnd EnumMSComm1.Settings = "4800,n,8,1"MSComm1.CommPort = 8MSComm1.InBufferSize = 40MSComm1.RThreshold = 1MSComm1.InputLen = 1MSComm1.InputMode = comInputModeTextMSComm1.PortOpen = True 这里是事件的具体代码 名字瞎起凑合看吧先
VB codePrivate Static Sub MSComm1_OnComm()Dim code As StringDim up() As StringDim eType As GroupStateSelect 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 ElseEnd SelectEnd 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。
[解决办法] 溜达溜达进来逛逛。
[解决办法] 溜达溜达进来逛逛。
[解决办法] [解决办法] [解决办法] [解决办法] [解决办法] [解决办法] [解决办法]
探讨 [解决办法] 支持~~
学习了
[解决办法] 支持下楼主
[解决办法] 今天高手休息
[解决办法] 友情接分
[解决办法] 路过接分
[解决办法] 看不懂。
学习学习
[解决办法] 楼主高手阿
[解决办法] 这个不懂，学习！
[解决办法] 探讨 [解决办法] 思路不错，楼主再接再厉。
[解决办法] VB的~~看的有点朦胧哦
[解决办法] 友情围观..............
[解决办法] 谢谢。。。。
[解决办法] 不懂vb，参观一下。。。
[解决办法] 强！学习了！
[解决办法] 学习了
[解决办法] vb 写的 ，不错 ，只吃一下
[解决办法] 学习,学习
[解决办法] 学习了，谢谢！
[解决办法] 对VB不是很懂。。。溜达溜达。。
[解决办法] 精神不错，值得学习，以前我也写过Com口的通信程序，虽然也实现了功能，但是没有拿上来和大家一起探讨，呵呵...
[解决办法] 从没碰过com口 学习一下
[解决办法] 谢谢楼主分享。
MARK，学习下
[解决办法] mark~~
[解决办法] 学习了，呵呵
[解决办法] 看不懂 呵呵呵
------解决方案--------------------
学习了
哈哈哈
[解决办法] 要是VC下就ok
[解决办法] 支持~~
学习了
[解决办法] 跟踪学习……
[解决办法] 学习and
双手接分
[解决办法] 好好学习天天向上
[解决办法] 学习 学习
[解决办法] 呵呵 进来溜达下
[解决办法] 网上应该有现成的，上去搜搜吧！
[解决办法] 关注。。。学习。。。
[解决办法] 路过学习
并且接分！
[解决办法] 每天一水
[解决办法] 关注一下~~~
[解决办法] 关注
[解决办法] 探讨 [解决办法] 学习了..
[解决办法] 不错，下载扣分返回
[解决办法] 学习了..
[解决办法] 好久没来了~
学习了，LZ
[解决办法] 学习了..
[解决办法] 路过，学习中！
[解决办法] 顶了在看！！
[解决办法] 路过，学习了
[解决办法] 前来接分了
[解决办法] 拷下来，嘿嘿
[解决办法] 学习了。。。。。
[解决办法] 路过参观接分走人！！！
[解决办法] 路过参观 接分！！
[解决办法] 友情接分！！
[解决办法] 学习and
双手接分
[解决办法] 学习下
[解决办法] 同楼上的楼上
[解决办法] 接分 .
[解决办法] 感谢楼主给我学习的机会
------解决方案--------------------
有没有关于这方面毕设的东西啊
[解决办法] [解决办法] 很好的知识！
[解决办法] 学习，路过。。。。
[解决办法] 接分...
[解决办法] vb的，，
[解决办法] 谢谢 楼主 ，接分了！
[解决办法] 接分路过
[解决办法] 不会VB。。。
[解决办法] 没错。
你需要GPS 对应的 EMA协议进行解析！
； = ）
[解决办法] 看看 jf
[解决办法] 本人无才，只作关注状
[解决办法] 支持，学习
[解决办法] 路过，接分
[解决办法] VB 好几年没解除了。纯粹是穷人过来接分。。。
[解决办法] 探讨
