vb如何存储实时从串口采集的数据,存入txt文档就可以，要求完整代码，谢谢
数据格式是这样的：$GNZDA,105314.00,16,07,2011,00,00*78NP0B3,NAVPOS,V,105314.00,0,AA,{03,03},W8...
数据格式是这样的：$GNZDA,105314.00,16,07,2011,00,00*78
NP0B3,NAVPOS,V,105314.00,0,AA,{03,03},W84,N41o43'20.642694",E123o28'57.252994",+00069.1426,V,+008.1716,4.09,3.86,2.572,2.428,0.5756,-0.2647,154.354,N,000.000,0.021,0.020,100.00,999,@7B
GS076,GPSVST,04,{11,57,057,{37,00,00},00},{27,03,333,{49,00,00},16},{17,28,283,{42,00,00},00},{28,64,305,{39,00,00},00},@E0 展开
NP0B3,NAVPOS,V,105314.00,0,AA,{03,03},W84,N41o43'20.642694",E123o28'57.252994",+00069.1426,V,+008.1716,4.09,3.86,2.572,2.428,0.5756,-0.2647,154.354,N,000.000,0.021,0.020,100.00,999,@7B
GS076,GPSVST,04,{11,57,057,{37,00,00},00},{27,03,333,{49,00,00},16},{17,28,283,{42,00,00},00},{28,64,305,{39,00,00},00},@E0 展开
展开全部
玩 GPS 啊 好说 这都是 ASC 好用的很
PUBLIC S1$ , S2$ ,S3$.....
''''''''''''''''''''''''''''' 下面是接收
Select Case MSComm1.CommEvent
Case comEvReceive
buff1 = MSComm1.Input
if buff1 ="$" then
k1on=true
endif
if k1on=true then s1$=s1$+buff1
'''加上整句的判断
'''是整句就开始下一句 S2$ 最好不用循环 不怕程序大,将来改动方便,要多加注解
end select
PUBLIC S1$ , S2$ ,S3$.....
''''''''''''''''''''''''''''' 下面是接收
Select Case MSComm1.CommEvent
Case comEvReceive
buff1 = MSComm1.Input
if buff1 ="$" then
k1on=true
endif
if k1on=true then s1$=s1$+buff1
'''加上整句的判断
'''是整句就开始下一句 S2$ 最好不用循环 不怕程序大,将来改动方便,要多加注解
end select
追问
恩 看明白点了，可以写得再详细点吗，呵呵麻烦你了
追答
'bas 文件中
PUBLIC S(16)$
'程序文件中
' 这是个中断方式的程序段 有中断 就闪一下 必要时候要做个工况标志
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
buff1 = MSComm1.Input
'从="$"的字开始记录到字串数组中
if buff1 ="$" then
'可以启动字串保存语句,保存,清0字串
print #1,s(k1on)$ ' 可能要用 BINARY 方式保存文件了 双引号处理问题
s(k1on)$=""
k1on=k1on+1
endif
''''''''''''''''''''' if chr$(buff1)=" 双引号处理
s(k1on)$=s(k1on)$+buff1
end select
end sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
镭速传输
2024-10-28 广告
在深圳市云语科技有限公司，我们深知远程传输大文件的重要性与便捷性。为此，我们推荐使用高效的文件传输服务，这些服务通常支持断点续传，确保大文件传输的稳定与安全。用户只需简单上传，系统即可自动处理，无论文件大小，都能实现快速、可靠的远程传输。同...
点击进入详情页
本回答由镭速传输提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
