作者 | 主题 |
---|---|
手机用户20200604914420 游民 经验值:96 发帖数:1 精华帖:0 |
楼主 2020-12-08 15:29:10
主题:博图WINCC 水流动画和电机风叶旋转 电机风叶旋转 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
西门子永远学不完的知识,加油
|