发信人: Powerpc_Pm@bbs.ustc.edu.cn (四大烂人之零零烂), 信区: cnprogram
标  题: MScomm控件的使用帮助（三）
发信站: 中国科大BBS站 (Mon Mar  2 23:37:03 1998)
转信站: Lilac!ustcnews!ustcbbs

示例：

*下例显示了如何执行基本的串端口通讯。

        * Use COM1.
        Comm1.CommPort = 1                              
        * 9600波特率，无奇偶校验，8 位数据，1 位终止位。
        Comm1.Settings = "9600,N,8,1"   
        *通知控制使用输入时读整个缓冲区
        Comm1.InputLen = 0
        * 打开端口
        Comm1.PortOpen = .T.
        * 发送注意命令至调制解调器。
        Comm1.Output = "AT" + CHR(13)
        * 等待数据返回至串行端口
        DO WHILE Comm1.InBufferCount <= 2
        * 读串行端口中的 OK 响应数据
                InString = Comm1.Input
                IF InString == "OK"

                        EXIT
                ENDIF
        ENDDO
        * 关闭串行端口
        Comm1.PortOpen = .F.

--
※ 来源: 中国科大BBS站 [bbs.ustc.edu.cn]