如何在PB中实现串口编程

可以使用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

原文转自：http://www.ltesting.net