[[
‘读数据
One.Write (Xie) 
‘写数据
若只读取数据，可以使用DataChange事件，当控制器中所要访问的数据一旦发生改变时将会触发该事件，并将该数据自动读到TxtValue文本框。
Private Sub MyOPCGroup_DataChange(ByVal TransactionID As Long, ByVal NumItems As Long, ClientHandles() As Long, ItemValues() As Variant, Qualities() As Long, TimeStamps() As Date)
‘自动刷新数据
Dim I As Long
For I = 1 To NumItems
txtValue(ClientHandles(i)) = ItemValues(i)     
‘获取项的值
txtTime(ClientHandles(i)) = TimeStamps(i)    
‘获取项的时间戳
txtQuantity(ClientHandles(i))=GetQualityString(Qualities(i)) 
‘获取项的品质
Next i
End Sub
(5) 断开OPC服务器
MyOPCServer.OPCGroups.RemoveAll  
‘移除所有OPC Group，空出资源
Set MyOPCGroup = Nothing 
MyOPCServer.Disconnect 
‘断开连接

4  结束语
利用本文介绍的方法，在实验室实现了上位机和PLC之间的通信，图1是OPC客户端设置界面。此外我们还设计了城市供水监控系统，鉴于篇幅，监控界面不再一一列出。

图1     OPC客户端设置界面

[本文共有 3 页，当前是第 3 页] <<上一页 下一页>>

]]

有搞不定的程序，交给机电之家吧！去悬赏竞标