Do While 1

If (SmartTags("储液罐液位")>0.0) And (SmartTags("储液罐液位")<100.0) Then

SmartTags("Waterdrop_01")=1
delay(2)
SmartTags("Waterdrop_01")=2
delay(2)
SmartTags("Waterdrop_01")=3
delay(2)
SmartTags("Waterdrop_01")=4
delay(2)
SmartTags("Waterdrop_01")=5
delay(2)
Else SmartTags("Waterdrop_01")=0
End If

Loop
这是在画面上加载的VB脚本，判断储水槽的液位

下面的开启水环泵之后，实现水环泵动态效果的VB脚本
Do While SmartTags("H1水环泵")=-1

If SmartTags("H1水环泵")=-1 Then
SmartTags("旋转_01")=1
delay(1)
End If

If SmartTags("H1水环泵")=-1 Then
SmartTags("旋转_01")=2
delay(1)
End If
If SmartTags("H1水环泵")=-1 Then
SmartTags("旋转_01")=3
delay(1)
End If
If SmartTags("H1水环泵")=-1 Then
SmartTags("旋转_01")=4
delay(1)
End If


Loop
帮忙分析一下，谢谢各位工程师和老师