如何自作一个旋转的彩色车轮?

已锁定

小猪宝宝♂

  • 帖子

    211
  • 精华

    4
  • 被关注

    57

论坛等级:侠圣

注册时间:2014-01-21

黄金 黄金 如何晋级?

如何自作一个旋转的彩色车轮?

2358

19

2017-10-30 17:05:36

star star star

看《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、保存点击运行,即可选择

如何自作一个旋转的彩色车轮? 已锁定
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC WinCC / Panel

共有31076条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

top
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。