VB中用DDE实现工业控制

杨军 
2001年 29期

　　编者按：DDE（Dynamic Data Exchange）动态数据交换是OLE方式的前身，当前主流的开发工具（VB、VC、PB等）大都支持此功能，我们使用它可以很方便地实现工业控制。下面，我们就以北京首都国际机场污水处理厂的语音报警系统为例，介绍它的实现方法。
　　　　北京首都国际机场污水处理厂设备运行控制采用基于AB公司SLC500（AB公司的可编程控制器型号）的计算机控制系统。全厂设备采用远程控制，由工作人员在中央控制室发布命令控制设备运转（如：根据集水井液位控制水泵启停等），大大减轻了工作人员的劳动强度。但是同时由于设备出现故障时只显示故障信息而没有声音报警，给工作人员及时发现问题带来很大不便。我对系统进行分析后，利用VB编程通过DDE与工控系统通讯，实现了语音报警功能。下面就向大家做个介绍。
　　#1　　1.通讯系统分析
　　　　该系统为工业DH+网，系统硬件环境由两台安装1784-KTx通讯卡的工控PC机和五台SLC500（AB公司的可编程控制器型号）组成，其结构如图（^29020504a^）1所示：
　　　　PC机上的通讯软件和工业组态软件分别为RSLINX和RSVIEW。它们之间的通讯采用DDE技术。所以我只要知道提供DDE服务的Application、Topic、Item就可以在VB开发环境下利用的相关控件与RSLINX及RSVIEW进行通讯了。
　　#1　　2.语音提示报警功能的实现
　　　　语音播放可以支持WAV或MP3格式的声音文件，由于MP3文件体积小所以我选用这种格式。从网站下载一个Activex控件用于播放语音，此控件为MP3Play.OCX，很容易找到。下一步是录制语音，先用Windows中的录音机将所需的提示语音录成WAV格式，再用MP3转换器将其转成MP3格式。
　　#1　　3.程序总体结构图（图（^29020504b^）2）
　　　　A部分主要说明：DDE的建立以及出现报警后将报警信息插入到报警队列最后。报警队列是等候报警的信息的排队。因为计算机在广播报警信息时一次只能广播一条，建立报警队列后同时发生的报警将等候上一条播完后再广播。
　　　　B部分主要说明：定时在报警队列中检查及有报警信息后的播放过程。
　　#1　　4.程序设计
　　　　下面举一个实例说明程序的实现。无论何种原因，当进水泵房故障停机时，PC机报警“进水泵故障！”。
　　　　首先建立好“进水泵故障！”的语音文件存为alarm.mp3，随后建立一个标准VB程序，在Form1上添加一个Timer控件用于控制程序循环，一个Mp3Play控件用于播放报警文件，一个Label控件用于建立DDE通讯，一个Listbox控件用于建立报警队列。Name属性均为默认，listbox 的visible属性设为False。
　　　　在Form1＿load事件中加入如下代码：
　　　　Private Sub Form1＿load（） 　
　　　　Label1.LinkTopic=“rtdata｜airportauto”  ＇设立DDE连接通道
　　　　Label1.LinkItem=“plc1\f101”
　　　　＇设定连接项目为进水泵故障，此项根据连接项目的不同而不同，如果你使用的是RSVIEW则在TAG EDITER中可以找到与PLC数据点相对应的LinkItem
　　　　Label1.LinkMode=1  ＇自动连接
　　　　Timer1.interval=1000  ＇设定循环周期为1秒
　　　　Timer1.enable=true  ＇打开定时器
　　　　End sub
　　　　在Label1的Label1＿Change（）中加入如下代码：
　　　　Label1＿Change（）　
　　　　dim i as integer
　　　　if label.caption=1 then ＇如果变为报警状态则
　　　　For i=0 to listbox1.listcount-1 ＇检查队列，有此信息则不插入信息
　　　　If “alarm”=listbox1.list（i）then Exit sub
　　　　Next i
　　　　Listbox.AddItem（“alarm”）＇插入新报警信息到队列最后
　　　　End sub
　　　　在Timer1的On＿Timer事件中加入如下代码：
　　　　Private Sub Timer1＿Timer（）　
　　　　Dim retcode As Integer
　　　　Dim temstring As String
　　　　If LISTBOX1.ListCount = 0 Then Exit Sub  ＇检查队列是否为空
　　　　remstring = LISTBOX1.List（0）＇取出第一条报警信息
　　　　LISTBOX1.RemoveItem（0） ＇将该条移出报警信息队列
　　　　On Error GoTo error＿handle
　　　　retcode = Mp3Play.Open（App.Path+remstring +“.mp3”，“”）　
　　　　retcode = Mp3Play.Play ＇播放语音报警
　　　　Exit Sub
　　　　error＿handle:＇错误处理
　　　　retcode = Error
　　　　soundable = True
　　　　Resume Next
　　　　End Sub
　　　　好了！软件完成，在RSLINX和RSVIEW运行之后启动该程序，就可以实现进水泵故障的语音报警了。上面只是个例子，在功能上及用户界面上都很不完善，但是利用同一方法可以实现在线设备的监视及信号采集等工作，如果你有兴趣可以深入了解一下。
　　
　　 
 