霍尼韦尔PKS--VBScript语言应用实例精讲.docxVIP

霍尼韦尔PKSVBScript

霍尼韦尔PKSVBScript编程应用实例精讲

2020

2020/4/14

目录

应用实例一：简单联锁旁路按钮子图模版的编程实例

应用实例二：带有安全操作级别确认的联锁旁路按钮子图模版的编程实例

应用实例三：风扇转动编程实例

应用实例四：移动门编程实例

应用实例五：创建一个Dynamicshap可变色图形编程实例

应用实例六：调色板编程实例

应用实例七：通过VBScript打开其它应用程序编程实例

应用实例八：通过VBScript控制Station的编程实例

应用实例九：强制使一个画面显示在SafeView窗口的编程实例

应用实例十：在运行时改变趋势图内容的编程实例

PKSVBScript编程应用实例

应用实例一：简单联锁旁路按钮子图模版的编程实例

编程思路：

创建一个联锁旁路按钮BYPASS并在其ScriptData中设置Point变量CM，Parameter引脚使用BP

弹出消息确认窗口并编写提示信息内容

通过选择“Yes”或者“No”来执行联锁或者旁路功能

通过变量数值变化更改按钮文本、颜色等状态使其更加形象化

如下图1所示：

图1

Onclick事件程序如下：

SubBYPASS_onclick

Dimmessage

IFME.DataValue(“CM.BP”)=1Then

message=msgbox(“确认要旁路吗？”,vbyesno,”CM”)

IFmessage=VBYESThen

ME.DataValue(“CM.BP”)=0

EndIF

Else

message=msgbox(“确认要联锁吗？”,vbyesno,”CM”)

IFmessage=VBYESThen

ME.DataValue(“CM.BP”)=1

EndIF

EndIF

EndSub

重点解析：

如果要读取ScriptData中的数据值，就要用到“ME.DataValue(“位号引脚”)“这样格式的语句

“Msgbox“是VBSript语言中一种固定的功能性语句，其作用是在监控画面弹出一个对话框，可以是”Yes\No“、”OK\Cancel“等内容，当用户点击确认后可返回相应的状态以供程序使用

一般的应用格式为：

MsgBox(prompt[,buttons][,title][,helpfile,context])

Ondatachange事件程序如下：

SubBYPASS_ondatachange

IFME.DataValue(“CM.BP”)=0Then

ME.innerText=“旁路“

ME.fillcolor=VBWHITE

Else

ME.innerText=“联锁“

ME.fillcolor=VBRED

EndIF

EndSub

重点解析：

通过判断“CM.BP”的数值来改变按钮内文本内容，“旁路“或者“联锁“，使按钮更加直观形象

通过判断“CM.BP”的数值来改变按钮填充色的变化“WHITE“或者”RED“，更容易区分两种状态

应用实例二：带有安全操作级别确认的联锁旁路按钮子图模版的编程实例

编程思路：

在普通联锁旁路按钮程序的基础上增加了安全操作级别的确认程序，可防止操作员因误动作按钮而引发事故的风险

需要调用系统内安全级别对应数值的读取语句

需要熟知不同安全级别用户在系统内所对应的固定数值

多重条件语句的使用格式是怎样的

Onclick事件程序如下：

SubBYPASS_onclick

Dimmessage，Level

Level=window.external.SecurityLevel

IFME.DataValue(“CM.BP”)=1andLevel=5Then

message=msgbox(“确认要旁路吗？”,vbyesno,”CM”)

IFmessage=VBYESThen

ME.DataValue(“CM.BP”)=0

EndIF

EndIF

IFME.DataValue(“CM.BP”)=0andLevel=5Then

message=msgbox(“确认要联锁吗？”,vbyesno,”CM”)

IFmessage=VBYESThen

ME.DataValue(“CM.BP”)=1

EndIF

EndIF

EndSub

重点解析：

“window.external.SecurityLevel“是固定格式的安全级别数值读取语句，并将返回的数值赋值给一个自定义变