如何在 PB 中实现串口编程
文章来源:PB 编程俱乐部
可以使用 mscomm32.ocx 控件.
脚本如下:
Stringls_data
//使用 COM1 端口。
ole_1.object.CommPort=1
//设置速率为 9600,无奇偶校验,8位数据,一个停止位。
ole_1.object.Settings="9600,N,8,1"
//读入整个缓冲区的数据。
ole_1.object.InputLen=0
打开端口
ole_1.object.PortOpen=True
//发送 attention 命令
ole_1.object.Output="ATV1Q0"+char(13)
//等待数据。
Do
Yield()
//从 Com 端口取数据
ls_data+=ole_1.object.Input
LOOPUntil(Pos(ls_data,"OK"+char(13)+char(10))>0)
//向 Com 端口发送数据使用 Output 方法
ole_1.Object.Output=ls_data
//关闭端口。
ole_1.object.PortOpen=FALSE