搬家第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
保存运行,就可以看到效果了。