(完整版)采用VB实现组态软件与下位机的串行通信方法研究.doc

### 采用VB实现组态软件与下位机的串行通信方法研究 #### 摘要 本研究基于DDE（Dynamic Data Exchange）技术探讨了如何在VB6.0环境下实现组态软件与下位机之间的串行通信。通过开发一个串口通信服务程序来解决某些现场设备缺少相应通信驱动的问题。服务程序不仅使用了MSComm控件来与下位机进行通信，还采用了DDE技术与组态软件进行数据交换。这一方法在实际工程中得到了验证，证明其通用性和简便性。 #### 1. 引言 随着信息技术的发展，组态软件在工业控制领域得到了广泛应用。例如，Fix、InTouch和KingView（组态王）等都是优秀的组态软件，它们为用户提供丰富的图形界面、数据库处理和对象连接等功能，大大简化了用户的开发流程。然而，在实际应用中，这些组态软件往往未能提供某些特定现场设备所需的通信驱动程序，而这些设备通常通过串口与PC机进行通信。为此，我们提出了一种解决方案——使用VB6.0开发一个串口通信服务程序，以实现与组态软件的数据交换。 #### 2. 串口通信实现方法 在Windows平台上，利用VB实现串口通信有两种主要方法： 1. **使用Windows API函数**： - 优点：编写出的程序移植性强。 - 缺点：需要深入了解Windows API函数，编程较为复杂。 2. **使用Microsoft提供的ActiveX控件MSComm**： - 优点：通过改变对象属性、发送消息以及响应对象事件，可以方便地实现用户应用程序间的串行通信。编程效率高，应用功能强，程序简洁明了。 - 缺点：相对于API方法，灵活性较低。 **MSComm控件的主要特点**： - 数据发送与接收过程中，都需要使用一个`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 MSComm1.PortOpen) Then MSComm1.PortOpen = True End If MSComm1.CommPort = 1 ' 使用COM1口 MSComm1.Settings = "9600,N,8,1" ' 9600波特率，无奇偶校验，8位数据，1位停止位 Temp1 = Data ' 利用Temp1为中介 MSComm1.OutBufferCount = 0 ' 清除发送缓冲区 MSComm1.Output = Temp1 ' 发送打包后数据 ... MSComm1.PortOpen = False ' 关闭串口 End Sub ``` **下位机配置**： - 下位机采用PHILIPS公司的51LPC系列单片机P87LPC769，与80C51系统兼容，内置128B RAM和4KB OTP程序存储器。 - 串行口工作于模式1，数据帧包含1位起始位，8位数据位和1位停止位。 - 为了提高系统的抗干扰能力和带负载能力，通常采用RS-485通信总线、半双工工作方式。PC机端采用RS-232/485转换器，单片机端通过SN75175和SN75174芯片实现电平转换。 #### 3. 与组态软件的DDE通信 为了实现组态软件与服务程序之间的数据交换，本研究采用了DDE技术。DDE是Windows环境下应用程序间通信的一种机制，允许两个应用程序共享数据。通过定义适当的DDE会话，服务程序可以将数据发送到组态软件中预先定义的窗口或对象，从而实现数据的实时更新。 **DDE通信的主要步骤**： 1. **建立DDE会话**：在服务程序中，使用DDEML库中的函数创建一个DDE会话。 2. **发送数据**：通过调用DDEML库中的函数将数据发送到组态软件中。 3. **接收数据**：组态软件通过监听特定的DDE事件来接收数据。 **示例代码**： ```vb ' 建立DDE会话 Dim ddeCon As DDEConnection ddeCon = CreateObject("DDEClient.Application") ddeCon.Connect TopicName:="组态软件主题", AppName:="组态软件名称" ' 发送数据 ddeCon.Exec Command:="发送命令", Topic:="数据主题", Item:="数据项", Data:="数据值" ' 断开DDE会话 ddeCon.Disconnect ``` #### 结论 本文介绍的方法有效地解决了组态软件与下位机之间的串行通信问题，特别是在缺乏特定驱动程序的情况下。通过使用MSComm控件和DDE技术，实现了简单且通用的解决方案。此外，这种方法还具有良好的扩展性和适应性，可以应用于多种不同的组态软件和下位机设备。未来的研究方向可能涉及优化通信协议、提高数据传输效率等方面。