搬家第三天-45.Wincc V7.3 自定义控件制作（4）-搅拌器

一点一点把以前写的内容复制过来，工作量还是有点大的，慢慢来吧。

前面介绍了介质流动效果管道和运转风扇的制作，本文介绍一下搅拌器的制作。Wincc图库里面也有搅拌器，拟物化的风格，但似乎没有动画效果——也许是我不会用——于是就想试着做一个可以转，看着像的搅拌器。

一 基本工作：搅拌器运转起来，斜视角度看去，搅拌器扇叶的运转轨迹有点像椭圆，我们先在Wincc页面上画一个椭圆。

然后分别在1-8图层上画上三根直线表示扇叶，分别话在不同图层上是为了便于编辑，最终效果如下：

画完之后就可以删掉椭圆了，再加上一个转动轴，大约是这个样子

把这24根直线和转轴全部选中，右键-创建自定义控件，把24根直线的visible属性加入自定义控件属性，名字修改为visible1至visible24。在直线1可见性属性右键，加入vbs脚本，触发器1秒，脚本如下：

Function Visible1_Trigger(ByVal Item)
Dim i
i=Second(Now) Mod 8
If i=0 Then
   item.visible1=True
   item.visible2=True
   item.visible3=True
   item.visible4=False
   item.visible5=False
   item.visible6=False
   item.visible7=False
   item.visible8=False
   item.visible9=False
   item.visible10=False
   item.visible11=False
   item.visible12=False
   item.visible13=False
   item.visible14=False
   item.visible15=False
   item.visible16=False
   item.visible17=False
   item.visible18=False
   item.visible19=False
   item.visible20=False
   item.visible21=False
   item.visible22=False
   item.visible23=False
   item.visible24=False
  
Else
   If i=1 Then
   item.visible1=False
   item.visible2=False
   item.visible3=False
   item.visible4=True
   item.visible5=True
   item.visible6=True
   item.visible7=False
   item.visible8=False
   item.visible9=False
   item.visible10=False
   item.visible11=False
   item.visible12=False
   item.visible13=False
   item.visible14=False
   item.visible15=False
   item.visible16=False
   item.visible17=False
   item.visible18=False
   item.visible19=False
   item.visible20=False
   item.visible21=False
   item.visible22=False
   item.visible23=False
   item.visible24=False
Else
   If i=2 Then
   item.visible1=False
   item.visible2=False
   item.visible3=False
   item.visible4=False
   item.visible5=False
   item.visible6=False
   item.visible7=True
   item.visible8=True
   item.visible9=True
   item.visible10=False
   item.visible11=False
   item.visible12=False
   item.visible13=False
   item.visible14=False
   item.visible15=False
   item.visible16=False
   item.visible17=False
   item.visible18=False
   item.visible19=False
   item.visible20=False
   item.visible21=False
   item.visible22=False
   item.visible23=False
   item.visible24=False
  
Else
   If i=3 Then
   item.visible1=False
   item.visible2=False
   item.visible3=False
   item.visible4=False
   item.visible5=False
   item.visible6=False
   item.visible7=False
   item.visible8=False
   item.visible9=False
   item.visible10=True
   item.visible11=True
   item.visible12=True
   item.visible13=False
   item.visible14=False
   item.visible15=False
   item.visible16=False
   item.visible17=False
   item.visible18=False
   item.visible19=False
   item.visible20=False
   item.visible21=False
   item.visible22=False
   item.visible23=False
   item.visible24=False
  
Else
   If i=4 Then
   item.visible1=False
   item.visible2=False
   item.visible3=False
   item.visible4=False
   item.visible5=False
   item.visible6=False
   item.visible7=False
   item.visible8=False
   item.visible9=False
   item.visible10=False
   item.visible11=False
   item.visible12=False
   item.visible13=True
   item.visible14=True
   item.visible15=True
   item.visible16=False
   item.visible17=False
   item.visible18=False
   item.visible19=False
   item.visible20=False
   item.visible21=False
   item.visible22=False
   item.visible23=False
   item.visible24=False
  
Else
   If i=5 Then
   item.visible1=False
   item.visible2=False
   item.visible3=False
   item.visible4=False
   item.visible5=False
   item.visible6=False
   item.visible7=False
   item.visible8=False
   item.visible9=False
   item.visible10=False
   item.visible11=False
   item.visible12=False
   item.visible13=False
   item.visible14=False
   item.visible15=False
   item.visible16=True
   item.visible17=True
   item.visible18=True
   item.visible19=False
   item.visible20=False
   item.visible21=False
   item.visible22=False
   item.visible23=False
   item.visible24=False
  
Else
   If i=6 Then
   item.visible1=False
   item.visible2=False
   item.visible3=False
   item.visible4=False
   item.visible5=False
   item.visible6=False
   item.visible7=False
   item.visible8=False
   item.visible9=False
   item.visible10=False
   item.visible11=False
   item.visible12=False
   item.visible13=False
   item.visible14=False
   item.visible15=False
   item.visible16=False
   item.visible17=False
   item.visible18=False
   item.visible19=True
   item.visible20=True
   item.visible21=True
   item.visible22=False
   item.visible23=False
   item.visible24=False
  
Else
   If i=7 Then
   item.visible1=False
   item.visible2=False
   item.visible3=False
   item.visible4=False
   item.visible5=False
   item.visible6=False
   item.visible7=False
   item.visible8=False
   item.visible9=False
   item.visible10=False
   item.visible11=False
   item.visible12=False
   item.visible13=False
   item.visible14=False
   item.visible15=False
   item.visible16=False
   item.visible17=False
   item.visible18=False
   item.visible19=False
   item.visible20=False
   item.visible21=False
   item.visible22=True
   item.visible23=True
   item.visible24=True

End If
End If
End If
End If
End If
End If
End If
End If

End Function