VFP中的串口通信.docVIP

-- VFP 中的串口通信一般是通过 mscomm ActiveX 控件来做,请参考: 串口通讯的解决 -------------------------------------------------------------------------------- 前一阶段，单位为了实现地磅与计算机连接，直接用计算机从地磅读数，我编写了一个串口通讯程序，在编程的过程中，遇到了不少问题，在panbq和版主的帮助下，问题已经解决，有鉴于这方面的资料比较少，本人觉得有必要将我对串口通讯的理解写出来，与网友共飨，不正之处，望指出. 1、 控件 mscomm32.ocx 的几个重要属性 CommPort： 设置并返回通讯端口号。 Settings： 以字符串的形式设置并返回波特率、奇偶校验、数据位、停止位 PortOpen： 设置并返回通讯端口的状态。也可以打开和关闭端口。 Input： 从接收缓冲区返回和删除字符。 Output： 向传输缓冲区写一个字符串。 InBufferCount： 返回接收缓冲区中等待的字符数，该属性在设计时无效，可以把 InBufferCount 属性设置为 0 来清除接收缓冲区。 InBufferSize： 设置并返回接收缓冲区的字节数，接收缓冲区的大小。 Rthreshold： 产生 OnComm 事件之前要接收的字符数。 设置 Rthreshold 为 1，接收缓冲区收到每一个字符都会使 MSComm 控件产生 OnComm 事件。 设置为 0（缺省值）则不产生 OnComm 事件。 CommEvent： 返回最近的通讯事件或错误。 该属性在设计时无效，在运行时为只读。 只要有通讯错误或事件发生时都会产生 OnComm 事件，CommEvent 属性存有该错误或事件的数值代码。 CommEvent 属性返回 2 表示收到 Rthreshold 个字符。 该事件将持续产生直到用 Input 属性从接收缓冲区中删除数据。 2、 接受数据：见版主的 KB 译文〈如何用 mscomm32.ocx 从串口接受〉 3、 实例（事件驱动接受，以下括号中的数据为本单位地磅和计算机的参数值） （1） 制作串口线，查阅相关技术资料 （2） 在VFP中，建立一个新的表单 （3） 插入标签 (命名为重量) （4） 插入文本 (命名为 TEXT1，用来显示重量数据) （5） 建立 Microsoft Communication Control1 控件 在工具栏中点插入ole容器控件，选择 Microsoft Communication Control 控件（NAME 为 OLECONTRO1） （6） 设置 commport = 2 （串口2） （7） 设置 settings = 1200，e，7，2（1200 波特率，偶校验，7 个数据位，1 个停止位） （8） 设置 Rthreshold = 17 表示当缓冲区中有 17 个数据等待接受时，产生 OnComm （9） 在表单的 init 事件中写 thisform.olecontrol1.portopen=.t.，释放事件中写 thisform.olecontrol1.portopen = .f. （10） 在控件 olecontrol1 的 OnComm 事件中写如下程序代码 if mevent = 2 缓冲区中有 17 个字符等待接受，产生 OnComm 事件 dbbl=subs(this.input,1,17) 取串口数据 thisform.text1.value=subs(dbbl,5,6) 取字符串中的重量数据 thisform.refreshendif