ole_1.object.commport = 1 //使用串口1进行通信
If Not ole_1.object.PortOpen Then ole_1.object.PortOpen = True
ole_1.object.inputmode = 1 // 0为字符模式,1为二进制模式
ole_1.object.InBufferCount = 0
ole_1.object.OutBufferCount = 0
ole_1.object.output=char(255)+char(2)+char(11)
time1=cpu()
Do
time2=cpu()
if time2 - time1 < 1000 then
Yield()
else
messagebox('通信错误','请检查串口与设备连接')
if ole_1.object.portopen then ole_1.object.portopen = false
return
end if
LOOP Until ole_1.object.InBufferCount > 5
ole_1.object.inputlen = 6
bin = ole_1.object.Input
..... //进行相关的处理
if ole_1.object.portopen then ole_1.object.portopen=false