版权声明:如有雷同请告知我,我会第一时间下架。如有转载请标明出处。 https://blog.csdn.net/qq_40191093/article/details/84333112
直接来看下运行效果
实现步骤
第一步:分别创建 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)