第16章在iFIX中使用VBAWord格式.docx

第16章在iFIX中使用VBAWord格式.docx

《第16章在iFIX中使用VBAWord格式.docx》由会员分享，可在线阅读，更多相关《第16章在iFIX中使用VBAWord格式.docx（12页珍藏版）》请在冰豆网上搜索。

操作对象的动作，如鼠标点击对象或改变对象的尺寸时；

如果为事件赋予脚本，则在事件触发时执行脚本；

在iFIX中，用户动作、程序代码或其它情况下可触发事件。

点击鼠标、数据值达到某一限值

图16-1：

16.1.应用开发流程图

图16-2：

应用开发流程图（显示图形开发）

16.2.使用VisualBasic编辑器

A．起动VBE

∙从“工作台”菜单中，选择“VisualBasic编辑器”或右击对象并选择“编辑脚本”

∙参见图16-3

B．VBE组件

∙工程资源管理器

-一般在编辑器的左边

-每个图形都作为一个工程

∙属性窗口

-与工作台中的属性窗口相同

∙代码窗口

-一般为编辑器中最大的窗口

-本节包含一些实际的脚本

-参见图16-3的例子

图16-3：

VisualBasic编辑器

16.3.脚本工具

A．自动化接口帮助

∙用于获得iFIX脚本的帮助信息

∙包含所用的对象、属性、方法、事件和子程序

∙参见图16-4，在自动化接口帮助中的所有可用主题列表

∙参见图16-5，常用的子程序列表

图16-4：

自动化接口帮助

子程序

描述

AcknowledgeAllAlarms

确认指定画面中的所有块报警。

AcknowledgeAnAlarm

确认指定块的报警。

DisableAlarm

禁用指定数据块的报警。

EnableAlarm

启用指定数据块的报警。

CloseDigitalPoint

关闭指定的数字量标签或对该标签置1。

OpenDigitalPoint

打开指定的数字量标签或对该标签置0。

ToggleDigitalPoint

切换数字量标签的状态（打开和关闭）。

ClosePicture

关闭指定的画面。

OpenPicture

打开指定的画面。

ReplacePicture

关闭指定的画面并用另一个画面代替。

OffScan

停止指定标签扫描。

OnScan

设置指定标签扫描。

ToggleScan

切换指定标签的扫描状态。

SetAuto

设置指定标签为自动模式。

SetManual

设置指定标签为手动模式。

ToggleManual

切换指定标签的手/自动模式。

ReadValue

读指定标签的值。

WriteValue

设置指定数据标签的当前值。

RampValue

采用以EGU（工程单位）指定的百分比值增加或减小指定数据库块的当前值的方法使该数据库块梯度化。

LocateObject

在画面中查找指定对象或所选对象。

LogIn

LogIn子程序，执行标准的注册程序。

PictureAlias

给当前画面定义别名或小名。

图16-5：

常用的iFIX子程序

16.4.练习16

练习16

练习16

学习目的：

完成这个实验练习后，学员应能够：

1.在按钮对象中添加脚本

2.为数据连接对象添加脚本

完成这个练习的时间：

30分钟

实验内容

在这个练习中将继续开发水处理系统。

现在将添加一些简单的脚本，执行一些简单的任务。

在该练习的第一部分将在过滤器画面中添加一个按钮用来启动和停止反冲过程。

在这个练习的第二部分，将添加一个数据连接允许操作员来调整高速混合器罐的PH值，而你要对他们所能用的实际值加以限制，如果输入值超过范围，将出现一个提示对话框，解释该值为什么是无效的。

完成本练习后，请回答16.5节的问题。

练习16

A．打开已有的画面并添加按钮

打开水过滤器画面，并添加一个按钮来启动过滤器反冲过程

1.从工作台上的“文件”菜单中选择“打开”

显示“打开”画面对话框

2.选择“WaterFilter”画面并点击“打开”

打开水过滤器画面

3.从“插入”菜单中选择“按钮”

一个按钮被添加到画面中央

4.移动此按钮使其紧靠反冲池进水阀

5.双击此按钮对象

允许输入相应文本

6.输入下列文本：

StartBackwash

7.根据需要调整按钮大小

显示如下：

B．为按钮添加脚本

添加VBA脚本语言，启动反冲过程，每当点击此按钮时则执行该脚本

1.用鼠标右击新按钮并选择“编辑脚本”

显示VB编辑器

2.在CommandButton1的Click事件中输入下列脚本

PrivateSubCommandButton1_Click（）

DimResponse

Response=MsgBox（"

StartBackwash?

"

vbYesNo,"

Confirm"

）

IfResponse=vbYesThen

OpenDigitalPoint"

Fix32.THISNODE.FILTER_IN.F_CV"

Fix32.THISNODE.FILTER_OUT.F_CV"

Fix32.THISNODE.FILTER_BACKWASH_OUT.F_CV"

CloseDigitalPoint"

Fix32.THISNODE.FILTER_BACKWASH_IN.F_CV"

Else

MsgBox"

NoChange"

EndIf

EndSub

VBE显示如下：

3.从“文件”菜单选择“关闭并返回到工作台应用”

C．为按钮添加脚本

添加VBA脚本，停止反冲过程，每当点击此按钮时则执行该脚本

1.添加另一个按钮，标题如下：

StopBackwash

2.用鼠标右击新按钮并选择“编辑脚本”

3.在CommandButton2的Click事件中输入下列脚本

PrivateSubCommandButton2_Click（）

StopBackwash?

4.从“文件”菜单选择“关闭并返回到工作台应用”

返回到工作台

5.保存并关闭水过滤画面

D．打开已有的画面并添加数据连接

打开高速混合器画面并添加一个数据连接来监视和控制PH值

1.从工作台的“文件”菜单中选择“打开”

2.打开RapidMixer画面

3.添加一个文字对象，标题如下：

MixerpH

4.在文字对象下面添加一个数据连接：

Fix32.THISNODE.MIXER_PH.F_CV

画面显示如下：

E．为数据连接添加脚本

添加VBA脚本，修改混合器中的PH值

1.用鼠标右击新的数据连接并选择“编辑脚本”

显示VisualBasic编辑器

2.在数据连接的Click事件中输入以下脚本：

PrivateSubDataLink4_Click（）

DimMessage,Title,newph

Message="

Enteravaluebetween6and9"

Title="

AdjustPH"

newph=InputBox（Message,Title）

SelectCasenewph

CaseIs<

6

MsgBox"

Valuemustbegreaterthan6"

Case6To9

Fix32.thisnode.mixer_ph.f_cv=newph

CaseIs>

9

Valuemustbelessthan9"

CaseElse

InvalidValue"

EndSelect

3.从“文件”菜单中选择“关闭并返回到工作台应用”

F．切换到“运行”模式

1.保存修改后的高速混合器画面

2.切换至“运行”模式

3.点击“PH值数据连接”，尝试输入无效值，有什么现象?

4.从WaterFilter显示画面上，点击反冲按钮。

描述画面中的一些对象的变化

实验练习结束

挑战练习练习16

A．挑战实验

如果你已完成了这个练习，试着增加下列步骤：

1.在高速混合器画面中添加脚本，使当进水阀打开时，打开明矾、石灰及聚合物的阀门

2.为每一幅画面中添加一个对象，当点击这个对象时，则在水处理应用中将显示下一幅画面，顺序如下：

泵站

高速混合器

水过滤

絮凝器和沉淀池

挑战练习结束

16.5.问题一览________________________________________________

1.VB与VBA有哪些不同?

2.列举水处理应用中用到的对象、属性、方法和事件的例子。

3.描述在iFIX中哪些地方可以使用脚本。

4.解释何时需要使用VBA脚本。

5.列举打开VisualBasic编辑器的几种方法。

本页为空