其他分享
首页 > 其他分享> > 搬家第二天-40.Wincc V7.3 模拟饮料灌装生产线动画效果(2)-20个瓶子初试

搬家第二天-40.Wincc V7.3 模拟饮料灌装生产线动画效果(2)-20个瓶子初试

作者:互联网

昨天的博客记录了一个瓶子运动动画模拟,现实中一个流水线上瓶子很多,要做出动画效果,就需要很多瓶子一起移动,同时灌装和加瓶盖的时候,瓶子们还得歇会。

效果完全依赖Wincc软件,关键就是控制对象的left、Visible、FillingIndex几个属性,同时注意一下空间之间的关系就行了。接下来描述一下如何制作这种动画。

一 准备工作

  1. Wincc变量管理新建一个32位浮点数变量Start1,新建一个1280*1024页面,名字bottles,用多边形画一个瓶子,就是这个样子:

要确保这是一个封闭图形,宽30,如果是其他宽度,那么后面的脚本中,数值需要相应修改,全局颜色方案为否,支持动态填充,填充颜色选为灰色。插入一个静态文本,用于给瓶子编号,便于观察效果,静态文本的背景为透明,边框线宽度为0,插入一个绿色小方块表示瓶盖,然后把三个控件编组,像这样子:

一共制作20个这样的瓶子,他们的名字分别是bottle1至bottle20,相应的“瓶盖”名字分别是cover1至cover20,20个瓶子从右到左均匀排列,最左边的瓶子left=60,最右边瓶子left=820。初始状态bottle1至bottle9盖子可见,其他瓶子盖子不可见,bottle1至bottle19填充90,bottle20不填充。画一个机械手;画一条传送带,一个原料罐,一根罐装管;画一个长方形模拟流出的液体,名字修改为fillin,宽70,高120,默认不可见,left=112,top=590;画一个启动按钮,一个停止按钮;画一个圆用于显示工作状态,圆全局颜色方案为否,填充量100,背景颜色根据内部变量Start1数值改变,当Start=1为真,绿色,为假,红色。编辑状态画面如下:

2. 项目计算机属性启动项目勾选全局脚本功能

二 新建一个VBS全局动作,触发器为循环类型,周期1秒,脚本如下:

Option Explicit
Function action
'以下脚本模拟多个瓶子灌装
Dim bottle(21),cover(21)
Dim fillin,i,j
Dim Start1
Dim fill_no
Dim full(21)
For i=1 To 20
   Set bottle(i)=HMIRuntime.Screens("bottles").ScreenItems("bottle" & CStr(i))
Next
For i=1 To 20
   Set cover(i)=HMIRuntime.Screens("bottles").ScreenItems("cover" & CStr(i))
Next
Set Start1=HMIRuntime.Tags("Start1")
Set fillin=HMIRuntime.Screens("bottles").ScreenItems("fillin")

If Start1.Read =1  Then
   For j=1 To 20
    If bottle(j).left=100 Then  '如果到了灌装位,则记录瓶号
       fill_no=j
       fillin.Visible =True
       bottle(fill_no).FillingIndex=bottle(fill_no).FillingIndex+10
       If bottle(fill_no).FillingIndex=80 Then
          fillin.Visible=False
          fill_no=0
       End If
    End If
    If bottle(j).left=820 And (fillin.Visible=False) Then  '如果到了终止位,则从头再来
        bottle(j).left=20
        bottle(j).FillingIndex=0
        cover(j).Visible=False
     End If
  Next
  For i=1 To 20
    If fillin.Visible=False Then
      bottle(i).left=bottle(i).left+5
    End If
  Next
  For i=1 To 20
    If bottle(i).Left=460 Then
      cover(i).Visible=True
    End If
    If bottle(i).left=20 Then  '
      cover(i).Visible=False
    End If 
  Next
  If Start1.Read =0 Then
    fillin.Visible =False
  End If
End If

End Function

标签:fillin,灌装,20,40,瓶子,Visible,bottle,V7.3,left
来源: https://www.cnblogs.com/fishingsriver/p/14350467.html