iFIX趋势曲线的实现.docVIP

基于VBA技术的大型组态软件—iFIX趋势曲线的实现2006-08-13 基于VBA技术的大型组态软件—iFIX趋势曲线的实现Realizing the Trend of iFIX based on VBA Technology? 本文来自2003年第12期“计算机控制，监测与管理”上 ,已经被阅读过433次作 者 ：武汉大学自动化系 李世红 关键词： 趋势曲线，iFIX?1? 引言 iFIX组态软件是由美国Intellution公司开发的基于Windows 2000NT的大型组态软件，它提供了灵活的组态、严密的安全措施，以及优美的画面和强大的控制及组网能力，为使用者提供了丰富的选择。其中，趋势曲线的构建几乎是每个用户都关心的，通过历史趋势曲线用户可以观察到任意时间段的介质使用情况，并根据历史趋势分析后期历史数据，合理安排生产，提高生产效率。安装iFIX的同时，也安装了演示例程iFIX sample system，其中的趋势曲线画面功能丰富，可以说能满足大多数用户的需求。用户可以在下拉列表框选择实时和历史数据块，可以自定义历史数据的显示时间段，放大趋势曲线，改变趋势曲线的显示方向等等。它还可以随意删除和增加数据块。其实，实现这些功能并不困难，只需移植演示例程中的趋势曲线画面iFIX1_Trend.grf，并做适当的改动。2? 实现过程 (1) 历史定义定义几组历史数据，全部为24小时文件。同时，还需要把HTC.EXE增加到SCU后台启动列表。?(2) 拷贝画面假设iFIX安装在D盘。拷贝D:DynamicsSampleSystem Picture目录中的iFIX1_Trend.grf到D:DynamicsPIC目录下，这样，iFIX1_Trend.grf出现在工作台的系统树中，在其它画面设置切换按钮可以切换到此趋势画面。同时将D:DynamicsSampleSystemPicture中 的user.fxg和plugandsolve.fxg拷贝到D:DynamicsPIC。(3) 导出文件运行演示例程，查看趋势曲线画面iFIX1_Trend.grf的脚本。导出project_plugandsolve 和project_user中的模块和窗体到某个文件夹。记录project_plugandsolve和project_user的“引用”项(VBA中“工具”菜单下的“引用”)。(4) 调整画面打开IFIX工作台，修改iFIX1_Trend.grf的画面属性为“运行时画面可视”。去掉画面中的“采集值”，“平均值”，“高限值”，“低限值”，“从MSACCESS读取lab数据”，帮助按钮，”显示网格“按钮。调整趋势曲线显示区域和画面整体的布局。(5) 配置Visionx控件Vxcombo 控件和Vxdata控件相结合以显示数据块和连接数据库。和实时数据有关的控件为VxcmbRTpens(Vxcombo 控件)和VxdataRTpens(Vxdata控件)，和历史数据有关的控件为VxcmbHistpens(Vxcombo 控件)和VxdataHistpens(Vxdata控件)。两个Vxcombo 控件属性不变，2个Vxdata控件的属性如附表所示。(6) 修改VBA代码在VBA编辑状态下，将3中导出的文件导入到相应的工程中，并对照引用项是否相符。修改工程画面Project_iFIX1_Trend的VBA代码。 Private Sub CFixPicture_Initialize() 中注释掉Call SetPaths，vxDataHistPens.DBConnect，SetHelpFileLocation Me，ChangeFontsIfBelow1024x768 Me。相应的可以去掉和这四个函数相关的定义。同时，第五行修改双引号中的字符串为fix,即strChartStartDT = FindHistoricalFiles(fix)(0)。???? 事件Private Sub cmdAddHistPen_MouseDown中修改sNodeName的值，即sNodeName=Hist.fix.。???? 事件Private Sub cmdAddRTPen_Click()的代码改动以后如下:?? Dim objPen As Object, sTagName As String, sNextTag As String, sNextTagType As String?? Dim sNodeName As String, spotname As String, iPen As Integer, n As Integer?? Dim boolFound As Boolean?? On Error