搬家第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

 

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