哪里有风扇旋转的控件？

2019年6月11日下午12:36 • SIMATIC WinCC

网上有流动管道的控件，但是没找到风扇旋转的控件，大家谁有这种OCX控件发一个给我好吗？自己做的更好，支持原创，呵呵。
ps: 要能控制旋转方向和转速的。
用脚本做的方法很多，也可以列出来，但也要能控制方向和转速。看看大家都有什么好的方法来做这种动态效果。集思广益一下。
我的邮箱：flexolution@sina.com
先谢谢大家！

问题补充：
谢谢zhangli0，你说的方法我知道，但要想让风扇根据频率变化，就是频率高转速就快，风扇旋转得就快，频率低转得就慢。怎么实现？
    --------------------------------------------------
    to blue_eleven:
    我已经把管道流动控件上传到mofile，大家可以到下面网址下载：
    http://pickup.mofile.com/3443542786051496
   使用方法：下载后解压出两个ocx的控件，h的是横向流动，v的是纵向流动，在wincc图片编辑器的右上的controls标签中点击右键，点add/remove，在弹出的对话框中点register OCX，找到这两个ocx，注册后找到pipeh control或pipev control，勾选上，点OK，即可使用。

to 小路& Zaxife:
谢谢你们的热心帮助，我有空来尝试一下你们的方法，然后打个包也上传上来供大家使用。

最佳答案

我的是这样做的：
5张图片，0为停止，1～4为四种旋转状态的图片。
动作条件为在页面中添加一个矩形，默认为背景闪烁_快速，最后在对象改变的动作里面添加下来VBS：

Sub OnObjectChanged(ByVal Item)

  Dim Num
  Dim Num1
  Dim Bit13

  Num = ScreenItems("FanNum").outputvalue '旋转数值
  Num1 = ScreenItems("State1").outputvalue
  Bit13 = Num1 And 4096    '取整数的13位为条件

  If Num < 4 Then
   Num = Num +1  '改变风机图片
  Else
   Num = 1
  End If
  ScreenItems("FanNum").outputvalue = Num
  If  Bit13 = 0 Then ScreenItems("Fan0").Visible = 1 Else ScreenItems("Fan0").Visible = 0 '停止显示
  If  Num = 1 Then ScreenItems("Fan1").Visible = 1 Else ScreenItems("Fan1").Visible = 0
  If  Num = 2 Then ScreenItems("Fan2").Visible = 1 Else ScreenItems("Fan2").Visible = 0
  If  Num = 3 Then ScreenItems("Fan3").Visible = 1 Else ScreenItems("Fan3").Visible = 0
  If  Num = 4 Then ScreenItems("Fan4").Visible = 1 Else ScreenItems("Fan4").Visible = 0

End Sub

<完>

提问者对于答案的评价：
小路答得也很好，不过还是鼓励一下新同志吧。呵呵

原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc276682.html

哪里有风扇旋转的控件？

相关推荐