如何在PB中实现串口编程

2024-07-21 02:10:04

字体：大中小

来源：转载

供稿：网友

可以使用mscomm32.ocx控件

脚本如下：

    string ls_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

   loop until(pos(ls_data, "ok" + char(13) + char (10)) > 0)

    //向com端口发送数据使用output方法

        ole_1.object.output = ls_data

        //关闭端口。
        ole_1.object.portopen = false

上一篇：PowerBuilder修改数据库表结构的技巧

下一篇：怎样在PB中调用外部程序并判断其运行结束？