vb通过opc连接访问s7-300 .

="WIDOWS: 1; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(248,252,253); TEXT-INDENT: 0px; FONT: 14px/28px Simsun; WHITE-SPACE: normal; LETTER-SPACING: normal; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-stroke-width: 0px">
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

‘断开连接

注意：在VB中还要引用 siemens opc daautomation 2.0。

本文关键字：暂无联系方式PLC入门，plc技术 - PLC入门