Echelon OpenLDV User Manual download pdf (Page 147)

OpenLDV Programmer’s Guide 139

lcaOS.Open

'Add a new network object and open the

'network database. “Network1” represents the name

'of the network and “c:\Network1” represents the path to the

'network database.

Set ActiveNetwork = lcaOS.Networks.Add _

("Network1", "c:\Network1", True)

ActiveNetwork.Open

'Fetch the system from the network.

Set ActiveSystem = ActiveNetwork.Systems.Item(1)

'Select a network interface. Note the use of the xDriver naming

'convention in this line: X.[Profile Name].[Downlink Lookup Key]. Default

'represents the profile name to use. RNI-0001 represents the downlink

'lookup key for the RNI to be opened.

Set TempNetworkInterface _

= lcaOS.NetworkInterfaces.Item("X.Default.RNI-0001")

Set ActiveSystem.NetworkServiceDevice.NetworkInterface _

= TempNetworkInterface

'Set up the LNS Server and open an xDriver downlink session by opening

'the System object.

ActiveSystem.Open

'Set the system into OnNet management mode.

ActiveSystem.MgmtMode = lcaOnNet

'Create a subsystem object to hold your AppDevice objects.

Set ActiveSubsystem = ActiveSystem.Subsystems.Add("Subsystem1")

'Any other code goes here.

ActiveSystem.Close

ActiveNetwork.Close

LcaOS.Close

End Sub

Opening Multiple Remote Networks for Downlink

The following Visual Basic sample program opens multiple remote networks

simultaneously. It uses xDriver to connect to two remote L

ONWORKS networks.

The information required to open each network (network name, xDriver profile

name, and the RNI lookup key) for this program is hard coded into the

application. Figure 37 on page 140 shows the form that was created for this

application.

1 2 ... 142 143 144 145 146 147 148 149 150 151 152 ... 193 194

No comments

Echelon OpenLDV User Manual Page 147