窗口公共画面使用

直接来看下运行效果

实现步骤

第一步：分别创建 1~6个变量字典分组，每隔分组分别有压力、温度、湿度变量

第二步： 创建1个 “公共变量” 分组

第三步：创建 “主窗口”

设备1 事件==> 左键单击

Var.公共变量.当前选中设备=1
Call HMICmd.OpenDialogWindow("设备参数",true)

设备2事件==> 左键单击

Var.公共变量.当前选中设备=2
Call HMICmd.OpenDialogWindow("设备参数",true)

设备3事件==> 左键单击

Var.公共变量.当前选中设备=3
Call HMICmd.OpenDialogWindow("设备参数",true)

第四步：新建 “设备参数” 窗口

第五步：点击 “空白处”==>事件配置画面程序 “打开时”

Dim sheBeiBianHao
sheBeiBianHao=Var.公共变量.当前选中设备

'动态设定模拟值显示
lbl压力.FindAnimation("HMIAnalogValueDisplayAnimation").Expression="Var.设备"&sheBeiBianHao&".压力"
lbl温度.FindAnimation("HMIAnalogValueDisplayAnimation").Expression="Var.设备"&sheBeiBianHao&".温度"
lbl湿度.FindAnimation("HMIAnalogValueDisplayAnimation").Expression="Var.设备"&sheBeiBianHao&".湿度"

第六步：设置画面动画

压力显示的事件

Dim TagName
TagName="Var.设备"&Var.公共变量.当前选中设备&".压力"
lbl压力.Text= ActionCmd.AnalogValueInput(TagName,0,10000)

温度显示的事件

Dim TagName
TagName="Var.设备"&Var.公共变量.当前选中设备&".温度"
lbl温度.Text= ActionCmd.AnalogValueInput(TagName,0,10000)

湿度显示的事件

Dim TagName
TagName="Var.设备"&Var.公共变量.当前选中设备&".湿度"
lbl湿度.Text= ActionCmd.AnalogValueInput(TagName,0,10000)

PS:以上六步，完成了弹窗画面公用的作用

以下步骤来实现同一窗口公用参数的步骤

第一步：给设备4,5,6添加左键按下事件

设备4==>事件==>左键按下

Var.公共变量.当前选中设备=4
SanJiao.Left=355

Dim sheBeiBianHao
sheBeiBianHao=Var.公共变量.当前选中设备

'动态设定模拟值显示
lblYaLi.FindAnimation("HMIAnalogValueDisplayAnimation").Expression="Var.设备"&sheBeiBianHao&".压力"
lblWenDu.FindAnimation("HMIAnalogValueDisplayAnimation").Expression="Var.设备"&sheBeiBianHao&".温度"
lblShiDu.FindAnimation("HMIAnalogValueDisplayAnimation").Expression="Var.设备"&sheBeiBianHao&".湿度"

设备5==>事件==>左键按下

Var.公共变量.当前选中设备=5
SanJiao.Left=661

Dim sheBeiBianHao
sheBeiBianHao=Var.公共变量.当前选中设备

'动态设定模拟值显示
lblYaLi.FindAnimation("HMIAnalogValueDisplayAnimation").Expression="Var.设备"&sheBeiBianHao&".压力"
lblWenDu.FindAnimation("HMIAnalogValueDisplayAnimation").Expression="Var.设备"&sheBeiBianHao&".温度"
lblShiDu.FindAnimation("HMIAnalogValueDisplayAnimation").Expression="Var.设备"&sheBeiBianHao&".湿度"

设备6==>事件==>左键按下

Var.公共变量.当前选中设备=6

SanJiao.Left=975

Dim sheBeiBianHao
sheBeiBianHao=Var.公共变量.当前选中设备

'动态设定模拟值显示
lblYaLi.FindAnimation("HMIAnalogValueDisplayAnimation").Expression="Var.设备"&sheBeiBianHao&".压力"
lblWenDu.FindAnimation("HMIAnalogValueDisplayAnimation").Expression="Var.设备"&sheBeiBianHao&".温度"
lblShiDu.FindAnimation("HMIAnalogValueDisplayAnimation").Expression="Var.设备"&sheBeiBianHao&".湿度"

第二步：窗口 ==> 事件 ==> 画面程序==>打开时

Var.公共变量.当前选中设备=4
SanJiao.Left=355

Dim sheBeiBianHao
sheBeiBianHao=Var.公共变量.当前选中设备

'动态设定模拟值显示
lblYaLi.FindAnimation("HMIAnalogValueDisplayAnimation").Expression="Var.设备"&sheBeiBianHao&".压力"
lblWenDu.FindAnimation("HMIAnalogValueDisplayAnimation").Expression="Var.设备"&sheBeiBianHao&".温度"
lblShiDu.FindAnimation("HMIAnalogValueDisplayAnimation").Expression="Var.设备"&sheBeiBianHao&".湿度"

第三步：压力，温度，湿度数值显示==>事件==>左键按下

压力显示==>事件==>左键按下

Dim TagName
TagName="Var.设备"&Var.公共变量.当前选中设备&".压力"
lblYaLi.Text= ActionCmd.AnalogValueInput(TagName,0,10000)

温度显示==>事件==>左键按下

Dim TagName
TagName="Var.设备"&Var.公共变量.当前选中设备&".温度"
lblWenDu.Text= ActionCmd.AnalogValueInput(TagName,0,10000)

湿度显示==>事件==>左键按下

Dim TagName
TagName="Var.设备"&Var.公共变量.当前选中设备&".湿度"
lblShiDu.Text= ActionCmd.AnalogValueInput(TagName,0,10000)

窗口 公共画面使用

猜你喜欢

窗口公共画面使用