附文:
Dim Spin
Set Spin = HMIRuntime.Tags(“Spin”) ‘旋转图形连接的变量,几何→旋转角
Spin.Read
’0停1转
Dim trigger
Set trigger = HMIRuntime.Tags(“trigger”) ‘触发旋转的变量,如运行信号。
trigger.Read
’5为旋转速度,越小越慢;触发器时间越短,效果越真。
If trigger.value =1 Then
If Spin.value 《=350 Then
Spin.Write Spin.Value +10
Else
Spin.Write 10
End If
End If