博图15.0的wincc流水动画VB脚本

一、TIA15管道流水动画(水平管道)
首先在HMI里定义3个内部变量：方向waterflowdirection(bool)、启停waterflowstart(bool)速度waterflowspeed(usint)

1. 画一条折线，用折线代表流水
1) 属性→其他→名称，折线命名为poly01

2) 属性→布局→当前角点索引设置为1
3) 属性→布局→当前角点X轴位置添加VB脚本
Function ActualPointLeftValue(ByVal item)
Dim lft,speed,poly
Set poly=HMIRuntime.ActiveScreen.ScreenItems("polyline01")
poly.Index=1
lft=poly.ActualPointLeft
IfHMIRuntime.SmartTags("waterflowdirection")=False Then
IfHMIRuntime.SmartTags("waterflowspeed")=2 Then
ActualPointLeftValue=lft+3
Else
ActualPointLeftValue=lft+1
EndIf

Iflft>=86 Then
poly.ActualPointLeft=58
ActualPointLeftValue=58
EndIf
Else
IfHMIRuntime.SmartTags("waterflowspeed")=2 Then
ActualPointLeftValue=lft-3
Else
ActualPointLeftValue=lft-1
EndIf

Iflft<=58 Then
poly.ActualpointLeft=86
ActualPointLeftValue=86
EndIf
End If

触发器选择位250ms或者画面周期

4) 动画→显示→可见性，选择变量waterflowstart范围从1到1 可见

2. 点击元素添加六个按钮分别命名为下图所示

1) 启动→属性→事件→单击→添加VB脚本
HMIRuntime.Tags("waterflowstart").WriteTrue
Dim poly1
Setpoly1=HMIRuntime.ActiveScreen.ScreenItems("polyline01")
poly1.Visible=True
Select CaseHMIRuntime.SmartTags("waterflowspeed")
Case0
poly1.ActivateDynamic"ActulPointLeft","500 ms"
Case1
poly1.ActivateDynamic"ActulPointLeft","250 ms"
Case2
poly1.ActivateDynamic"ActulPointLeft","125 ms"
End Select

2) 停止→属性→事件→单击→添加VB脚本
Sub OnClick(ByVal item)
HMIRuntime.Tags("waterflowstart").WriteFalse
Dim poly
Setpoly=HMIRuntime.ActiveScreen.ScreenItems("polyline01")
poly.DeactivateDynamic"ActualPointLeft"
poly.Visible=False

End Sub

3) 左右→属性→事件→单击→添加VB脚本
Sub OnClick(ByVal item)
HMIRuntime.Tags("waterflowdirection").WriteFalse

End Sub

4) 右左→属性→事件→单击→添加VB脚本

Sub OnClick(ByVal item)
HMIRuntime.Tags("waterflowdirection").WriteTrue

End Sub

5) 慢速→属性→事件→单击→添加VB脚本
Sub OnClick(ByVal item)
HMIRuntime.Tags("waterflowspeed").Write0
Dim poly
Setpoly=HMIRuntime.ActiveScreen.ScreenItems("polyline01")
poly.ActivateDynamic"ActualPointLeft","500 ms"

End Sub

6) 正常→属性→事件→单击→添加VB脚本
Sub OnClick(ByVal item)
HMIRuntime.Tags("waterflowspeed").Write1
Dim poly
Set poly=HMIRuntime.ActiveScreen.ScreenItems("polyline01")
poly.ActivateDynamic"ActualPointLeft","250 ms"
End Sub

7) 快速→属性→事件→单击→添加VB脚本
Sub OnClick(ByVal item)
HMIRuntime.Tags("waterflowspeed").Write2
Dim poly
Setpoly=HMIRuntime.ActiveScreen.ScreenItems("polyline01")
poly.ActivateDynamic"ActualPointLeft","125 ms"
End Sub

博图15.0的wincc流水动画VB脚本相关推荐

西门子1200plc通过485modbus通讯控制英威腾伺服电机博图15.1程序
西门子1200plc通过485modbus通讯控制英威腾伺服电机博图15.1程序,带伺服电机参数说明和运行效果视频 ID:6913654299049934
全网最全面的西门子1500硬件冗余项目，博图15.1
全网最全面的西门子1500硬件冗余项目,博图15.1.非常全面,CAD图纸,合同,上位机软件是intcohid=644593395557&
TIA博途WINCC的触摸屏VB脚本入门学习（IF THEN ELSE判断语句）
TIA博途WINCC的触摸屏VB脚本入门学习(IF THEN ELSE判断语句) 首先,建立一个项目,并添加一个HMI,入下图所示,新建一个HMI变量表,添加2个HMI变量:test1和test2,数 ...
TIA博途WINCC的触摸屏VB脚本入门学习（IF THEN判断语句）
TIA博途WINCC的触摸屏VB脚本入门学习(IF THEN判断语句) 首先,建立一个项目,并添加一个HMI,入下图所示,新建一个HMI变量表,添加2个HMI变量:test1和test2,数据类型为: ...
TIA博途WINCC的触摸屏VB脚本入门（IF THEN ELSEIF 判断语句）
TIA博途WINCC的触摸屏VB脚本入门(IF THEN ELSEIF 判断语句) 首先,建立一个项目,并添加一个HMI,入下图所示,新建一个HMI变量表,添加2个HMI变量:test1和test2, ...
TIA博途WINCC的触摸屏VB脚本入门（Len函数获取字符串长度以及Right和Left函数）
TIA博途WINCC的触摸屏VB脚本入门(Len函数获取字符串长度以及Right和Left函数) 首先,建立一个项目,并添加一个HMI,入下图所示,新建一个HMI变量表,添加如下几个HMI内部变量, ...
博图WINCC报表（SQL数据库的建立，TIA_wincc在数据库中保存和查询数据，调用Excel模板把数据保存到指定的位置）
这里写目录标题目录一.概述 1.1 前言 1.2 主要功能 1.3 使用的软件二. SQL server建库和建表 2.1.SQL server建库 2.2SQL server建表三.建立wi ...
西门子逻辑控制博图V13 wincc 和plcsim的安装
装了好几次比赛,每次都卸载了重装,为了方便,记录一下.首先说明,我在win7 专业版和旗舰版都完整安装了所有软件,win8.1家庭中文版里安装过了博图V13和wincc可以运行,没用安装仿真.至于wi ...
wincc的画面怎么用博图打开_如何把西门子精智面板画面直接转换成博图WINCC RT ADV画面...
JZGKCHINA工控技术分享平台在工程中我们会遇到客户要求既要用HMI又要用上位机,这样就要写两套程序,工作量相当大.那么有没有什么方法只写HMI程序,然后把HMI程序复制到上位机运行即可呢? 西 ...

博图15.0的wincc流水动画VB脚本

博图15.0的wincc流水动画VB脚本相关推荐

最新文章

热门文章