标签:Case vbBlue 15 item STEP7 WINCC vbGreen BackColor vbRed
有一个群有问如何做出彩灯霓虹效果,觉得有点意思。以前看网上有过介绍,再次看到这个问题就像自己尝试着做一下。
首先想到的是主要逻辑在下位机做。打开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
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。