WinCC 读写WINCC变量VB6.0

前端之家收集整理的这篇文章主要介绍了WinCC 读写WINCC变量VB6.0前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

直接调用WINCC的组件进行标签的读写操作.这样可以省去很多事,不用使用OPC了,自己想把什么写到组态里,从组态里读出来数据都非常的方便

读写函数如下

Private Sub Command1_Click()
Dim prtrun
Dim tag0
Dim WinCC As Object '定义wincc为对象
Set WinCC = CreateObject("WinCC-Runtime-Project")
prtrun = WinCC.SetValue("NewTag_1",Text1(0).Text)
prtrun = WinCC.SetValue("NewTag_2",Text1(1).Text)
prtrun = WinCC.SetValue("NewTag_3",Text1(2).Text)
prtrun = WinCC.SetValue("NewTag_4",Text1(3).Text)
prtrun = WinCC.SetValue("NewTag_5",Text1(4).Text)
prtrun = WinCC.SetValue("NewTag_6",Text1(5).Text)
prtrun = WinCC.SetValue("NewTag_7",Text1(6).Text)
prtrun = WinCC.SetValue("NewTag_8",Text1(7).Text)
'先写入一个值,再读回它,判断有没有写进去,由此来判断WINCC是不是在运行之中
prtrun = WinCC.GetValue("NewTag_1")

If prtrun = 111 Then MsgBox ("与WinCC通讯成功!") Set WinCC = Nothing Else MsgBox ("与WinCC通讯失败!请将WinCC设置为运行状态!") Set WinCC = Nothing End If End Sub

猜你在找的VB相关文章