UC知道vb中的mscomm控件获取数据问题？帮我改该代码，拜托各位高手了
来源：百度知道 编辑：UC知道 时间：2024/07/07 17:13:08
请问我怎么写mscomm控件获取串口数据？
Select Case MSComm1.CommEvent
Case comEvReceive
Do
DoEvents
buffer$ = buffer$ & MSComm1.Input
Loop Until InStr(buffer$, Chr$(32))
Text1.Text = buffer$
end select
这段代码遇到空格就把值赋值给text1.tex了
刚才开始能获取到想要的，正确数据，可是我多获取几次数据就有错误了，不是我想要的结果了，
我的意思是想，遇到&字符就开始存放数据，遇到空格字符就说明结束了，在把这两个中间的值赋值给text1.text,请问要怎么实现？
好象不行 提示一个错误
有没方法可以遇到&符号开始计算，遇到空格就结束
请问二楼的朋友，你自己测试过吗，我怎么不行？
MSComm1.RThreshold这个要设置成多少？
Select Case MSComm1.CommEvent
Case comEvReceive
Do
DoEvents
buffer$ = buffer$ & MSComm1.Input
Loop Until InStr(buffer$, Chr$(32))
Text1.Text = buffer$
end select
这段代码遇到空格就把值赋值给text1.tex了
刚才开始能获取到想要的，正确数据，可是我多获取几次数据就有错误了，不是我想要的结果了，
我的意思是想，遇到&字符就开始存放数据，遇到空格字符就说明结束了，在把这两个中间的值赋值给text1.text,请问要怎么实现？
好象不行 提示一个错误
有没方法可以遇到&符号开始计算，遇到空格就结束
请问二楼的朋友，你自己测试过吗，我怎么不行？
MSComm1.RThreshold这个要设置成多少？
InStr(buffer$, Chr$(32))这个函数用的不对,该函数返回的应该是一个整数值,你再查下资料.
试用mid函数,mid(buffer$,len(buffer),1)=" "
private beginget as boolean
Select Case MSComm1.CommEvent
Case comEvReceive
beginget=false
Do
DoEvents
if beginget=false then
buffer1 = MSComm1.Input
if buffer1 ="&"then
beginget=true
endif
endif
if beginget=true then
buffer$=buffer$& MSComm1.Input
if InStr(buffer$, Chr$(32)) > 0 then
beginget=false
exit do
endif
Loop
Text1.Text = buffer$
end select
柳少爷
湖北武汉
2008年6月12日