霍尼韦尔PKS--VBScript语言应用实例精讲.docx
霍尼韦尔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“是固定格式的安全级别数值读取语句，并将返回的数值赋值给一个自定义变