世纪星组态软件和Visual Basic 6.0数据交换

1  引言

尽管组态软件已经具备了很强的功能，但是在很多场合都有直接使用第三方代码的要求。例如用户需要将组态软件采集的实时数据传送到自己开发的VB程序中做更复杂的数据分析或者是将世纪星采集的数据做特定的处理之后再传送给世纪星，这都需要有一种数据交换机制。

当然实现这种交换机制有很多传统的方法，如使用文件共享数据、使用DDE数据交换机制。传统的方法虽然能够达到数据交换的目的，但其使用方法较为烦琐，使用文件共享数据就需要在组态软件和外部程序内部进行文件读取操作，这样不但麻烦而且处理速度也相对较慢，在要求实时性较好的工程中就显得力不从心。为了让第三方程序方便地读写世纪星数据，世纪星提供了基于ActiveX技术的OCX控件，此控件可以在大多的开发环境中使用（如VC++6.0、VB6.0），它就是DBComm。

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

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

2.1 实时数据交换

外部程序可以读取世纪星的系统变量（包括系统离散、系统整数、系统实数和系统信息）、内存变量（包括内存离散、内存整数、内存实数和内存信息）和IO变量（包括IO离散、IO整数、IO实数和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）

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

3  DBComm在VB6.0中的应用

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

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

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

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

   如下图所示为电器原理图：