标签：点动 15 WinccV7.3 ByVal S7 Step7v5.5 Start btn Sub

今天有群友在QQ上咨询怎么在wincc上实现点动效果，就是鼠标按下画面上的按钮，数值增加/减少，鼠标一松开就停止增加/减少；鼠标按下按钮bool变量就置位，鼠标一松开就复位（就像现场点动设备一样）。其实这个还是很好实现的，本例子是在下位机和上位机结合实现效果。

新建一个S7 300的PLC，启用时钟存储器，建立以下符号表，允许操作员监视：

OB1写入以下程序：

插入PC Station，编译将变量传送到wincc，在wincc中将逻辑设备设置为PLC模拟器。新建wincc画面，插入三个按钮，分别用于点动增加TestINT、点动减少TestINT、点动置位Start。

点动增加TestInt按钮的鼠标左键按下vbs脚本为：

Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)  
Dim btn_up
Set btn_up=hmiruntime.Tags("S7$程序(1)/btn_up")
btn_up.Write 1
End Sub

释放左键vbs脚本为：

Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y) 
Dim btn_up
Set btn_up=hmiruntime.Tags("S7$程序(1)/btn_up")
btn_up.Write 0
End Sub

点动减少TestINT按钮的鼠标左键按下脚本为：

Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)   
Dim btn_dn
Set btn_dn=hmiruntime.Tags("S7$程序(1)/btn_dn")
btn_dn.Write 1
End Sub

释放左键vbs脚本为：

Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)   
Dim btn_dn
Set btn_dn=hmiruntime.Tags("S7$程序(1)/btn_dn")
btn_dn.Write 0
End Sub

点动Start按钮的左键按下vbs脚本为：

Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y) 
Dim btn_Start
Set btn_Start=hmiruntime.Tags("S7$程序(1)/Start")
btn_Start.Write 1
End Sub

释放左键vbs脚本为

Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y) 
Dim btn_Start
Set btn_Start=hmiruntime.Tags("S7$程序(1)/Start")
btn_Start.Write 0
End Sub

画面上放置一个输入输出域，绑定TestInt变量，放置一个圆，背景颜色绑定Start，保存运行，通过点击几个按钮就可以看到效果了。如果希望点动的步伐快/慢一点，可以通过下位机程序调整增加/减少量或者使用其他时钟存储器改变变化频率来实现。

标签：点动,15,WinccV7.3,ByVal,S7,Step7v5.5,Start,btn,Sub
来源： https://www.cnblogs.com/fishingsriver/p/14399247.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。