Echelon OpenLDV User Manual download pdf (Page 148)

140 LNS Programming with xDriver

Figure 37. Downlink Application Form

This application can open either of the two remote L

ONWORKS networks by

clicking the Open Network A and Open Network B buttons. After either

network has been opened, the applicable Close Network button becomes

enabled, so that a user can close the network. When both networks are opened at

the same time, each network is assigned its own xDriver network interface.

From this example, you should be able create your own application that uses

xDriver to open multiple remote networks simultaneously. For more information

on any of the LNS commands used in this sample program, see the LNS

Programmer’s Guide.

'Create variables to store the System and Network object for each network to be

'opened with this application. g_NetworkA and g_SystemA serve as the Network

'object and System object variables for Network A. g_NetworkB and g_SystemB

'serve as the Network object and System object variable for Network B.

Dim g_NetworkA As LcaNetwork

Dim g_NetworkB As LcaNetwork

Dim g_SystemA As LcaSystem

Dim g_SystemB As LcaSystem

'Private Sub OpenNetA_Click() is called when the user clicks the Open Network A

'button. This function disables the Open Network A button, so that a user

'cannot try to open Network A while it is already open. It also enables the

'Close Network A button so that the user can close the open network. Following

'this, the function opens the System and Network object for Network A.

Private Sub OpenNetA_Click()

OpenNetA.Enabled = False 'Disable the Open Network A button.

CloseNetA.Enabled = True 'Enable the Close Network A button.

Dim netList As LcaNetworks

Set netList = g_cOS.Networks 'Set netList as the Network objects

'collection.

Set g_NetworkA = netList(1) 'Set g_NetworkA as the Network object for the

'first member of the Network objects

'collection. This value must be hard-coded and

'will vary depending on which network you want

'opened.

g_NetworkA.Open 'Open network A.

Dim NIs As LcaNetworkInterfaces 'Set NIs as the NetworkInterfaces

Set NIs = g_cOS.NetworkInterfaces 'collection object.

Dim curRNI As LcaNetworkInterface

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

No comments

Echelon OpenLDV User Manual Page 148