世纪星控件DBComm：小块作用大

精品文档-下载后可编辑世纪星控件DBComm：小块作用大1引言

尽管组态软件已经具备了很强的功能，但是在很多场合同样有直接使用第三方代码的要求。组态软件，又称组态监控软件系统软件。译自英文SCADA,即SupervisoryControlandDataAcquisition（数据采集与监视控制）。它是指一些数据采集与过程控制的专用软件。它们处在自动控制系统监控层的软件平台和开发环境，使用灵活的组态方式，为用户提供快速构建工业自动控制系统监控功能的、通用层次的软件工具。组态软件的应用领域很广，可以应用于电力系统、给水系统、石油、化工等领域的数据采集与监视控制以及过程控制等诸多领域。在电力系统以及电气化铁道上又称远动系统（RTUSystem,RemoteTerminalUnit）。

组态软件在国内是一个约定俗成的概念，并没有明确的定义，它可以理解为“组态式监控软件”。“组态（Configure）”的含义是“配置”、“设定”、“设置”等意思，是指用户通过类似“搭积木”的简单方式来完成自己所需要的软件功能，而不需要编写计算机程序，也就是所谓的“组态”。它有时候也称为“二次开发”，组态软件就称为“二次开发平台”。

当然实现这种交换机制有很多传统的方法，如使用文件共享数据DDE数据和交换机制。传统的方法虽然能够达到数据交换的目的，但其使用方法较为烦琐。和使用文件共享数据就需要在组态软件和外部程序内部进行文件读取操作，这样不但麻烦而且处理速度也相对较慢，在要求实时性较好的工程中就显得力不从心。

2世纪星数据交换标准控件——DBComm

世纪星提供标准控件DBComm.ocx与外部第三方程序进行数据交换，其交换内容包括：

2.1实时数据交换

外部程序可以读取世纪星的系统变量、内存变量和IO变量；还可以改写世纪星的内存变量和IO变量。

相关函数如下：

DiscValue=tagReadDisc（Tagname）外部程序读取世纪星离散变量的当前值；

IntValue=tagReadInt（Tagname）外部程序读取世纪星整数变量的当前值；

FloatValue=tagReadFloat（Tagname）外部程序读取世纪星实数变量的当前值；

MessValue=tagReadMess（Tagname）外部程序读取世纪星信息变量的当前值；

tagWriteDisc（Tagname,DiscValue）外部程序改写世纪星离散变量的当前值；

tagWriteInt（Tagname,IntValue）外部程序改写世纪星整数变量的当前值；

tagWriteFloat（Tagname,FloatValue）外部程序改写世纪星实数变量的当前值；

tagWriteMess（Tagname,String）外部程序改写世纪星信息变量的当前值；

InitComm（）DBComm初始化函数；

2.2历史数据读取

也就是说，外部程序可以按时间和变量名称读取世纪星的历史数据，相关函数如下：

TimeUINT=ConvertTime（Year,Month,Day,Hour,Minute,Second）；

时间转换函数：

DiscResult=GetHistoryData（Tagname,StartTime,EndTime,DataArray,SizeOfArray,Interval）；

根据指定的起止日期时间和世纪星的变量名称读取世纪星的历史数据。

3DBComm在VB6.0中的应用

3.1VB工程和世纪星工程数据交换示意图：

图1

下面是一个应用VB程序在外部计算PID输出功率的一个简单实验：

需要硬件：三菱FX2N系列PLC、FX2N-4AD-TC、加热器、S分度热电偶、固态继电器。

需要软件：世纪星组态软件7.22、VB6.0。

电器原理图如下图所示：

图2

上图是一个加热控制系统。PLC主模块负责控制继电器的通断（PID输出）；，TC模块负责温度采集（PID输入）；上位机世纪星部分负责温度设定、采集下位机信号、曲线显示、数据记录、数据检索等功能；上位机VB部分负责从世纪星获取设定温度SV、测量温度PV以计算PID输出（固态继电器的通断时间）。PLC=ProgrammableLogicController，可编程逻辑控制器，一种数字运算操作的电子系统，专为在工业环境应用而设计的。它采用一类可编程的存储器，用于其内部存储程序，执行逻辑运算，顺序控制，定时，计数与算术操作等面向用户的指令，并通过数字或模拟式输入/输出控制各种类型的机械或生产过程。是工业控制的部分。

3.2世纪星监控程序

首先，正确配置控制电路，将上位机与PLC相连，然后开发世纪星监控程序，创建相应的驱动，便能得到如下监控画面：

图3

3.3VB外挂程序开发

*创建一个VB标准工程。

*Projiec-Components-DBCommActiveXControl-Moudle。

*初始化DBComm

dbcomm_pid.InitComm

*从世纪星组态软件读取温度设定和实际值

SV=dbcomm_pid.tagReadFloat（"sv"）

PV=dbcomm_pid.tagReadFloat（"pv"）

*y0输出时间计算函数（根据P=0.5，I=0.5，D=0）

PrivateFunctionPIDCalc（ppAsPID,ByValNextPointAsDouble）AsDouble

DimdErrorAsDouble

DimErrorAsDouble

Error=pp.SetPoint-NextPoint

pp.SumError=pp.SumError+Error

dError=pp.LastError-pp.PrevError

pp.PrevError=pp.LastError

pp.LastError=Error

PIDCalc=pp.P*Error+pp.i*pp.SumError+pp.D*dError

EndFunction

3.4加热输出控制

根据2中计算的加热时间（时间百分比，x%*1s），对PLC的Y0进行输出控制。

YOON/OFF：tagWriteDisc（"y0",1）/tagWriteDisc（"y0",0），Y0脉宽调制如下图所示：

图4

3.5实验结果

本工程利用世纪星组态软件采集温度实际值（从PLC），通过在组