① 結構變量共用畫面
obj.TagPrefix = “XXXn”

② 報警篩選
obj.MsgFilterSQL = “Text2 LIKE ‘設備N報警’”

③趨勢圖
TrendControl.TrendIndex = 0/1/2
TrendControl.TrendTagName = “Parameterxx”

④報警
目的：只顯示已進入的紅色字體的報警，報警離開后控件上不顯示。
方法：雙擊控件，如下
⑤ WinSock控件使用方法
功能：接收TCP/IP服務器發送的數據包。
代碼：
1)連接按鈕中：
Dim ObjSockClient
Dim cnvt

'獲得當前窗口中的WinSock對象?
Set ObjSockClient = ScreenItems(“控件1”)
'Set cnvt = Createobject(“ADS.Arrayconvert”)

ObjSockClient.RemoteHost = “192.168.1.10”
ObjSockClient.RemotePort = 5000
If(ObjSockClient.State = 0)Or(ObjSockClient.State = 9)Or(ObjSockClient.State = 8)Then
HMIRuntime.Trace ObjSockClient.State&“連接失敗,嘗試重連！”&vbNewline
ObjSockClient.Close
ObjSockClient.Connect
Else
HMIRuntime.Trace “連接狀態：”&ObjSockClient.State&vbNewline
End If

Dim a
HMIRuntime.Trace ObjSockClient.GetData(a)

Msgbox a

2）DataArrival事件
'接收到數據后會出發WinSock的DataArrival事件
HMIRuntime.Trace “觸發接收數據事件！”&vbnewline
Dim ObjSockClient
'Dim cnvt
'Dim strreceive
'Dim strformrec
’
''獲得當前窗口中的WinSock對象?
Set ObjSockClient = ScreenItems(“控件1”)
Dim a,b
a = “”
b = “”
ObjSockClient.GetData a
ObjSockClient.GetData b,vbString,100

HMIRuntime.Trace “a=”&a&vbNewline
HMIRuntime.Trace “b=”&b&vbNewline

總結

以上是生活随笔為你收集整理的WinCC vbs脚本小结的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。