VB上位组态与ABPLC通过RSlinx之间通信

，如图所示。

４：

OP C

的结构

第二部分

VB

的设置

1

，

OPC

与

VB

的连接方式

2

，在

VB

中引用

OPC Automation

3,OPC

的连接，定义全局变量

4

，连接

O PCSERVER

和

OPC GROUPS

Private Sub OPCServerConnect()

Dim ConnectedServerName As String

Dim ConnectedNodeName As Variant

Dim opcserverName As String

Dim OPCNodename As String

opcserverName =

OPCNodename =

' Test to see if the User has entered or selected an OPC server name yet if not post a

message

If InStr(opcserverName,

'Set error handling for OPC Function

'Create a new OPC Server object

Set ConnectedOPCServer = New OPCServer

'Load the selected server name to start the interface

ConnectedServerName = opcserverName

'Load the node name of the connected server. The node name should be entered

'without the use of forward slashes .

ConnectedNodeName = OPCNodename

'Attempt to connect with the server

t ConnectedServerName, ConnectedNodeName

' Throughout this example you will see a lot of code that simply enables

' and disables the various controls on the form.

The purpose of these

' actions is to demonstrate and insure the proper sequence of events when

' making an OPC connection.

' If we successfully connect to a server allow the user to disconnect

'**************************************** *******************

'************** *********************************************

'Prepare to add a group to the current OPC Server