看《WINCC组态手册第二册》有一个章节介绍做一个彩色车轮，但是方法步骤写的不是很仔细，没有做出来；后又经过多方查询，终于完成了一版可以旋转的彩色车轮。具体步骤如下：

1、先用标准控件里“部分圆”画一个彩色的车轮，通过更改“属性”里的“起始角度”和“结束角度”画一个45°的部分圆，并将八个部分圆组成一个圆；

2、更改部分圆的“背景颜色”，首先“属性”里面的“全局颜色方案”改成否；

3、选中八个部分圆，右键--自定义对象---创建，会出现一个组态对话框自定义对象，把部分圆1到部分圆8的起始角度和结束角度添加到自定义属性里；

4、找一个起始角度的做VB的动态组态，编写以下程序：

item.startangle1=item.startangle1+10

item.endangle1=item.endangle1+10

item.startangle2=item.startangle2+10

item.endangle2=item.endangle2+10

item.startangle3=item.startangle3+10

item.endangle3=item.endangle3+10

item.startangle4=item.startangle4+10

item.endangle4=item.endangle4+10

item.startangle5=item.startangle5+10

item.endangle5=item.endangle5+10

item.startangle6=item.startangle6+10

item.endangle6=item.endangle6+10

item.startangle7=item.startangle7+10

item.endangle7=item.endangle7+10

item.startangle=item.startangle+10

item.endangle=item.endangle+10

If item.endangle1=360 Then

   item.endangle1=0

End If

If item.endangle2=360 Then

   item.endangle2=0

End If

If item.endangle3=360 Then

   item.endangle3=0

End If

If item.endangle4=360 Then

   item.endangle4=0

End If

If item.endangle5=360 Then

   item.endangle5=0

End If

If item.endangle6=360 Then

   item.endangle6=0

End If

If item.endangle7=360 Then

   item.endangle7=0

End If

If item.endangle=360 Then

   item.endangle=0

End If

触发变量周期更改为250ms。

5、保存点击运行，即可选择

通过部分圆制作的彩色车轮。

步骤3的操作图：

步骤4的操作图：

效果视频.avi

做出的效果，不知道能不能看到

西门子的屏里有个功能叫图形列表，几个不同状态的图，通过一个变量的值来控制显示，用来做旋转挺好用。不知道wincc有没有类似的功能？上面图中智能对象下的状态显示是干什么用的？

WINCC 7.4 SP1好像是有这个功能了呢

将步骤4的程序代码换成如下部分：

Dim tag,tag1

tag1=HMIRuntime.tags("angle").read

tag=HMIRuntime.tags("b").read

If tag=1 Then

item.startangle1=item.startangle1+tag1

item.endangle1=item.endangle1+tag1

item.startangle2=item.startangle2+tag1

item.endangle2=item.endangle2+tag1

item.startangle3=item.startangle3+tag1

item.endangle3=item.endangle3+tag1

item.startangle4=item.startangle4+tag1

item.endangle4=item.endangle4+tag1

item.startangle5=item.startangle5+tag1

item.endangle5=item.endangle5+tag1

item.startangle6=item.startangle6+tag1

item.endangle6=item.endangle6+tag1

item.startangle7=item.startangle7+tag1

item.endangle7=item.endangle7+tag1

item.startangle=item.startangle+tag1

item.endangle=item.endangle+tag1

If item.endangle1=360 Then

   item.endangle1=0

End If

If item.endangle2=360 Then

   item.endangle2=0

End If

If item.endangle3=360 Then

   item.endangle3=0

End If

If item.endangle4=360 Then

   item.endangle4=0

End If

If item.endangle5=360 Then

   item.endangle5=0

End If

If item.endangle6=360 Then

   item.endangle6=0

End If

If item.endangle7=360 Then

   item.endangle7=0

End If

If item.endangle=360 Then

   item.endangle=0

   End If

   End If