WINCC VBS常用总结

weixin_46439946

已于 2023-07-05 09:01:26 修改

阅读量2.1k

点赞数 1

文章标签： sql

于 2023-07-04 09:21:36 首次发布

本文链接：https://blog.youkuaiyun.com/weixin_46439946/article/details/131527765

版权

变量的创建

WinCC建立3个内部变量，画面中添加3个输入输出域分别连接到3个内部变量，1个按钮控件，按钮控件事件中添加VBS动作输入下面的代码就可以按照代码测试：

Tag1			32-位浮点数 IEEE 754
Tag2			32-位浮点数 IEEE 754
Tag3			32-位浮点数 IEEE 754

变量的读写

点击按钮可以实现Tag1自加1

Dim objvar
'变量读取
Set objvar = HMIRuntime.Tags("Tag1")
objvar.Read
'变量写入
objvar.Value = objvar.Value + 1
objvar.Write

写入变量WinCC_Tag数值100

方法一

HMIRuntime.Tags("Tag1").Write 100

方法二

Dim objvar 
Set objvar = HMIRuntime.Tags("Tag1")
objvar.Write 100

变量写入读取综合运用

点击按钮可以把Tag1+Tag2的结果放在Tag3中

Dim objvar1,objvar2,objvar3
'变量读取
Set objvar1 = HMIRuntime.Tags("Tag1")
objvar1.Read
Set objvar2 = HMIRuntime.Tags("Tag2")
objvar2.Read
Set objvar3 = HMIRuntime.Tags("Tag3")
objvar3.Read
'变量写入
objvar3.Value=objvar1.Value+objvar2.Value
objvar3.Write

获取当前计算机的名称

Dim LocalMachineName
Set LocalMachineName = HMIRuntime.Tags("@LocalMachineName")
LocalMachineName.Read
Msgbox(LocalMachineName.Value)

获取当前系统时间

'当前时间弹窗显示
Msgbox(Now)
'当前时间读取年月日
Msgbox(Year(Now)&"-"&Right("00" &Month(Now),2)&"-"&Right("00" &Day(Now),2))
'当前时间读取时分秒
Msgbox(Hour(Now)&":"&Right("00" &Minute(Now),2)&":"&Right("00" &Second(Now),2))

控件的操作

画面中画一个圆，对象名称改为“圆”，效果里面的全局颜色方案修改为否。
新建一个按钮，增加vb函数如下

Dim circle
Set circle=ScreenItems("圆")
'修改圆的颜色
circle.BackColor=RGB(255,0,0)
'修改圆的高度
circle.Height=200
'修改圆的宽度
circle.Width=200