vb访问s7300 PLC通过OPC 连接

Dim WithEvents MyOPCGroup As OPCGroup ‘定义OPC组对象变量MyOPCGroup

Set MyOPCServer = New OPCServer

MyOPCServer.Connect " OPC.SimaticNET" ‘连接SIMATICNET 的OPC服务器

(2) 添加OPC组对象

Set MyOPCGroup="MyOPCServer".OPCGroups.Add("Group1")

‘添加OPC组对象

MyOPCGroup.IsSubscribed= True

‘设置该组数据为后台刷新

MyOPCGroup.IsActive = True

‘设置该组为激活状态

MyOPCGroup.UpdateRate=1000

‘设置数据刷新时间为1000

(3) 添加数据项

Dim abItemIDs() As String

‘项标识符

Dim abClientHandles() As Long

‘客户端句柄

Dim abServerHandles() As Long

‘服务器端句柄

Dim abErrors() As Long

Dim i As Long

ItemCount=3

abItemIDs(1) = " S7:[S7 connection_1]IB1"

abItemIDs(2) = " S7:[S7 connection_1]MB1"

abItemIDs(3) = " S7:[S7 connection_1]QB1"

for i="1" t0 3

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

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