UC知道有没有用VB写的串口和单片机通信的模板，哪位大侠给我一个好吗？
来源：百度知道 编辑：UC知道 时间：2024/09/25 12:00:56
要程序和界面参考，或教程，我是初学者
大家再帮我看一看下面这段VB有没有语法错误 Do...loop不是要配合while或until使用吗， 谢谢。
select case comm1.commevent
case comEvReceive
buf=Trim(comm1.input)
ReceiveStr=ReceiveStr+buf
if instr(1,ReceieStr,"!")<1 then
exit sub
else
i=0
Graph1.cls
DO
strpos=instr(1,ReceiveStr,",")
if StrPos=0 then exit Do
ReceiveStr(i)=val(left(ReceiveStr,strPOS-1))
ReceiveStr=Right(ReceiveStr,Len(ReceiveStr)-InStr(1,ReceiveStr,","))
X(i)=i
Y(i)=ReceiveData(i)
if i=0 then
Graph1.Pset(X(i),Y(i))
else
Graph1.Line-(X(i),Y(i))
end if
i=i+1
loop
ReceiveStr=""
大家再帮我看一看下面这段VB有没有语法错误 Do...loop不是要配合while或until使用吗， 谢谢。
select case comm1.commevent
case comEvReceive
buf=Trim(comm1.input)
ReceiveStr=ReceiveStr+buf
if instr(1,ReceieStr,"!")<1 then
exit sub
else
i=0
Graph1.cls
DO
strpos=instr(1,ReceiveStr,",")
if StrPos=0 then exit Do
ReceiveStr(i)=val(left(ReceiveStr,strPOS-1))
ReceiveStr=Right(ReceiveStr,Len(ReceiveStr)-InStr(1,ReceiveStr,","))
X(i)=i
Y(i)=ReceiveData(i)
if i=0 then
Graph1.Pset(X(i),Y(i))
else
Graph1.Line-(X(i),Y(i))
end if
i=i+1
loop
ReceiveStr=""
此处就是 退出DO循环的条件
if StrPos=0 then exit Do
也就是 strpos=instr(1,ReceiveStr,",") =0
即 接收 的字符串里 不包含 字符 ","
其实，就是 数据 处理 完毕！
这个 绘图 的例程 非常好！
这个 文档 我 看过，很经典，值得看！
这里只有接受部分，初始化串口代码没有贴出来
语法上没什么错误 DO……loop是一个循环
没有说一定要跟while或until使用
后面那段有判断是否有效数据和数据处理部分程序