vb访问s7300 PLC通过OPC 连接

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才行

上一页  [1] [2] [3] [4] 

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