要在PB中实现串口编程，可以使用mscomm32.ocx控件

脚本如下：

String ls_data

ole_1.object.CommPort = 1                                                    //使用COM1端口。

ole_1.object.Settings = "9600,N,8,1"                                     //设置速率为9600,无奇偶校验，8 位数据，一个停止位。

ole_1.object.InputLen = 0                                                      //读入整个缓冲区的数据。

 ole_1.object.PortOpen = True                                              //打开端口

 ole_1.object.Output = "ATV1Q0" + char(13)                        //发送attention命令

Do                                                                                         //等待数据。

      Yield()

      ls_data += ole_1.object.Input                                          //从Com端口取数据

LOOP Until(Pos(ls_data, "OK" + char(13) + char (10)) > 0)  

ole_1.Object.Output = ls_data                                              //向Com端口发送数据使用Output方法

 ole_1.object.PortOpen = FALSE                                         //关闭端口。