其他分享
首页 > 其他分享> > 搬家第15天-185.STEP7+WINCC做彩灯效果

搬家第15天-185.STEP7+WINCC做彩灯效果

作者:互联网

有一个群有问如何做出彩灯霓虹效果,觉得有点意思。以前看网上有过介绍,再次看到这个问题就像自己尝试着做一下。

      首先想到的是主要逻辑在下位机做。打开step7新建一个项目,插入s7 300硬件,CPU属性中勾选时钟存储器。

新建一个DB块,插入一个整型变量

新建OB100,插入程序段初始化数值

在OB1中插入以下程序段:

这里面主要使用了SHR_I来移位操作,移位到头之后再次初始化赋值。当然也可以使用循环移位指令,不在介绍了。保存下载软硬件到PLC模拟器中,就可以看到Q1.0到Q1.7轮流置位了。

 

插入PC STATION后,添加硬件配置

打开wincc项目,新建一个变量Light,无符号16位数,地址指向QW1。逻辑设备指向模拟器。

新建一个画面,画面刷新速率为1s。添加16个圆,取消全局颜色方案。

1#、2#、9#、10#圆背景颜色属性添加以下vbs脚本,触发器1s。

Function BackColor_Trigger(ByVal Item)
Dim bkcolor
bkcolor=HMIRuntime.Tags("Light").Read
Select Case bkcolor
 Case 256
     item.BackColor=vbRed
 Case 512
     item.BackColor=vbGreen
 Case 1024
     item.BackColor=vbBlue
 Case 2048
     item.BackColor=vbYellow
 Case 4096
     item.BackColor=vbRed
 Case 8192
     item.BackColor=vbGreen
 Case 16384
     item.BackColor=vbBlue
 Case 32768
     item.BackColor=vbYellow 
End Select
End Function

 

3#、4#、11#、12#圆背景颜色属性添加以下vbs脚本,触发器1s。

Function BackColor_Trigger(ByVal Item)
Dim bkcolor
Set bkcolor=HMIRuntime.Tags("Light")
Select Case bkcolor.Read
 Case 512
     item.BackColor=vbRed
 Case 1024
     item.BackColor=vbGreen
 Case 2048
     item.BackColor=vbBlue
 Case 4096
     item.BackColor=vbYellow
 Case 8192
     item.BackColor=vbRed
 Case 16384
     item.BackColor=vbGreen
 Case 32768
     item.BackColor=vbBlue
 Case 256
     item.BackColor=vbYellow 
End select
End Function

 

5#、6#、13#、14#圆背景颜色属性添加以下vbs脚本,触发器1s。

Function BackColor_Trigger(ByVal Item)
Dim bkcolor
Set bkcolor=HMIRuntime.Tags("Light")
Select Case bkcolor.Read
 Case 1024
     item.BackColor=vbRed
 Case 2048
     item.BackColor=vbGreen
 Case 4096
     item.BackColor=vbBlue
 Case 8192
     item.BackColor=vbYellow
 Case 16384
     item.BackColor=vbRed
 Case 32768
     item.BackColor=vbGreen
 Case 256
     item.BackColor=vbBlue
 Case 512
     item.BackColor=vbYellow 
End select
End Function

 

7#、8#、15#、16#圆背景颜色属性添加以下vbs脚本,触发器1s。

Function BackColor_Trigger(ByVal Item)
Dim bkcolor
Set bkcolor=HMIRuntime.Tags("Light")
Select Case bkcolor.Read
 Case 2048
     item.BackColor=vbRed
 Case 4096
     item.BackColor=vbGreen
 Case 8192
     item.BackColor=vbBlue
 Case 16384
     item.BackColor=vbYellow
 Case 32768
     item.BackColor=vbRed
 Case 256
     item.BackColor=vbGreen
 Case 512
     item.BackColor=vbBlue
 Case 1024
     item.BackColor=vbYellow 
End select
End Function

 

保存运行,就可以看到效果了。

标签:Case,vbBlue,15,item,STEP7,WINCC,vbGreen,BackColor,vbRed
来源: https://www.cnblogs.com/fishingsriver/p/14399238.html