电机风叶旋转
bimpSet 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>=380Then
A.ActualPointLeft=369
End If
End If