① 結(jié)構(gòu)變量共用畫面
obj.TagPrefix = “XXXn”

② 報(bào)警篩選
obj.MsgFilterSQL = “Text2 LIKE ‘設(shè)備N報(bào)警’”

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

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

'獲得當(dāng)前窗口中的WinSock對(duì)象?
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 “連接狀態(tài)：”&ObjSockClient.State&vbNewline
End If

Dim a
HMIRuntime.Trace ObjSockClient.GetData(a)

Msgbox a

2）DataArrival事件
'接收到數(shù)據(jù)后會(huì)出發(fā)WinSock的DataArrival事件
HMIRuntime.Trace “觸發(fā)接收數(shù)據(jù)事件！”&vbnewline
Dim ObjSockClient
'Dim cnvt
'Dim strreceive
'Dim strformrec
’
''獲得當(dāng)前窗口中的WinSock對(duì)象?
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

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。