博图WINCC 水流动画和电机风叶旋转

admin

电机风叶旋转
Dim A,B
Set A=hmiRuntime.Screens("画面_1").ScreenItems("扇形_3")
Set B=HMIRuntime.Tags("Tag_1")

If B.Read Then
A.EndAngle=A.EndAngle+20
A.StartAngle=A.StartAngle+20
Else
A.EndAngle=0
A.StartAngle=315
End If
水流动画
Dim A,B
Set A=HMIRuntime.Screens("画面_1").ScreenItems("AAA1")
Set B=HMIRuntime.Tags("Tag_1")
A.ActualPointIndex=1
If B.Read Then
A.ActualPointLeft=A.ActualPointLeft+5
If A.ActualPointLeft>=380 Then
A.ActualPointLeft=369
End If
End If