【正文】
所以如果不需要使用OPC時,必須進行OPC連接斷開。斷開的程序相當簡單,釋放資源即可。如下:Private Sub Command2_Click()On Error Resume Next 釋放組和服務器對象 與服務器斷開連接并且清除 Set MyOPCItemColl = NothingSet MyOPCGroup = NothingSet MyOPCGroupColl = NothingSet MyOPCServer = Nothing = False 連接成功標志End Sub至此,用VB 。三、測試運行 在使用中,通過串口讀取過來了值(例如溫控器的實際溫度)可以賦給VB的變量(例如Text8(0).text)。通過Private Sub Text8_Change(Index As Integer)函數(shù),當串口讀取了值有變化時,在WinCC組態(tài)界面中實際值I/O域中,就可以看到其實際值了(Tag(1))。也可通過WinCC的組態(tài)界面對設定值I/O域中進行參數(shù)設定,通過上述程序的Private Sub MyOPCGroup_DataChange (ByVal TransactionID As Long, ByVal NumItems As Long, ClientHandles() As Long, ItemValues() As Variant, Qualities() As Long, TimeStamps() As Date)函數(shù),把WinCC的設定值(Tag(2))賦給VB的變量(例如Text8(1). text),再通過串口通訊把值寫入(例如溫控器的設定值)。 程序運行圖三,OPC與WinCC通訊測試圖三,OPC與WinCC通訊測試測試運行結果如圖三。9 / 9