摘要:基于DDE（Dynamic Data Exchange）技术，研究了VB6.0下组态软件与下位机串口通信服务程序的实现方法，并对其进行了改进，解决了组态软件没有提供某些现场设备的通信驱动程序的问题。服务程序利用串口通信控件MSComm与下位机进行通信，同时采用DDE技术与组态软件进行数据交换。工程实践表明，该方法通用性强、实现简便。
　　1、引言
　　在工业控制领域，组态软件正得到越来越广泛的使用。例如：Fix、InTouch、KingView （组态王）等均是组态软件的优秀代表，它们提供了丰富的工控界面、数据库处理、对象连接等数据管理控制功能，为使用者带来了极大的方便。组态软件以Windows系统作为操作平台，具有图形功能完备、界面一致性好和易学易用等特点，与以往使用专用机开发的工控系统相比更有通用性www.cechina.cn，更方便了工程技术人员的应用开发。但在实际应用中，组态软件常常没能提供一些现场设备的通信驱动程序，而这些设备大多采用串口与PC机进行通信。
　　VB提供的串行通信控件MSComm，让开发者可以方便、快捷地开发串行通信程序，而采用VB在Windows环境下实现符合DDE协议的通信程

序也并非难事www.cechina.cn，因此整个系统的数据流示意图如图1所示。本文以组态王软件与PHILIPS公司的51LPC系列单片机之间的通信为例，研究了采用VB6.0开发串口通信服务程序的原理及其实现方法。

图1 系统数据流示意图

　　2、串口通信的实现方法
　　Windows平台下利用VB实现串口通信主要有以下两种方法：
　　1）使用Windows API（Application Program Interface）函数。这种方法可编写移植性强的通信程序，但必须首先用Declare声明VB中所要用的动态链接库DLL，这需要对Windows API函数有深入的了解，编程较复杂；
　　2）使用Microsoft公司提供的Active X控件MSComm。该通信控件通过改变对象属性，向对象发送消息及为对象事件编写响应代码，可以方便地完成用户应用程序间的串行通信，既可实现API函数的所有功能，又使得编程效率提高，应用功能增强，并且程序简单明了。
　　对于MSComm控件实现串口通信的操作很多文献都有论述，该控件的主要属性可参考相关文献，在此不作具体介绍。需要强调的是：在数据发送与接收过程中，都要通过一个Variant类型变量作为中介。发送数据时，必须先将要发送的数据赋给一个Variant类型变量，再把该Variant变量赋值给MSComm的Output属性；同样接受数据时，也应先将MSComm的Input属性赋值给Variant变量，待接收端收到后必须转换成其它类型（如字符型、二进制型）的数据才能进行处理。
　　VB服务程序中通过串口发送数据的主要程序如下：
　　Private Sub TxData（）
　　Dim Data As Byte
　　Dim Temp1 As Variant
　　Do
　　DoEvents          ‘将CPU的控制权让出
　　Loop Until Not MSComm1.PortOpen
　　If （Not MSComml.PortOpen） then MSComml.PortOpen=True
　　End if
　　MSComml.CommPort=l  ;使用COM1口
　　MSComml.Setting=＂9600控制工程网版权所有,N控制工程网版权所有,8,l＂ ;9600
　　波特率，无奇偶校验，8位数据，l位停止位
　　Temp1= Data；利用Temp1为中介
　　MSComml.OutBufferCount=0 ;清除发送缓冲区
　　MSComml.Output=Temp1 ;发送打包后的数据
　　……              
　　MSComml.PortOpen=False  ;关闭串口
　　End Sub
　　下位机采用PHILIPS公司的51LPC系列单片机P87LPC769，它的基本结构、汇编指令与80C51系统兼容，内部自带128B的RAM和4KB的OTP程序存储器。串行口工作在模式1，数据帧信息包括1位起始位，8位数据位和1位停止位。通常设计中为了提高系统的抗干扰和带负载能力以及增加通信距离，实际采用RS-485通信总线、半双工工作方式。PC机的串口端采用RS-232/485转换器www.cechina.cn，单片机端引脚RXD和TXD外加SN75175和SN75174。
　　由于现场可能出现的通信干扰，若通信失败，系统将重新发送数据，并统计次数，若失败次