Echelon OpenLDV User Manual download pdf (Page 149)

OpenLDV Programmer’s Guide 141

Set curRNI = NIs.Item("X.Default.RNI-0001")

'Set the variable curRNI as the

'network interface you want to open. Note the

'use of the xDriver naming convention here:

'X.[Profile Name].[Downlink Lookup Key].

Dim SysList As LcaSystems 'Set Syslist as the System objects collection.

Set SysList = g_NetworkA.Systems 'Set g_SystemA as the System object for

Set g_SystemA = SysList(1) 'the network to be opened.

Dim SysNSD As LcaNetworkServiceDevice

Set SysNSD = g_SystemA.NetworkServiceDevice

Set SysNSD.NetworkInterface = curRNI

g_SystemA.Open

End Sub

'Private Sub CloseNetA_Click() is called when the user clicks the Close Network

'A button. In order for this to happen, the Network object and the System

'object for Network A must be closed. This function also re-enables the Open

'Network A button, so that Network A can be re-opened, and disables the Close

'Network A button, so that the application will not attempt to close a network

'that is not already closed.

Private Sub CloseNetA_Click()

OpenNetA.Enabled = True 'Re-enable the Open Network A

button.

CloseNetA.Enabled = False 'Disable the Close Network A button.

g_SystemA.Close 'Close the System object for network A.

g_NetworkA.Close 'Close the Network object for network A.

End Sub

'Private Sub OpenNetB_Click() is called when the user clicks the Open Network B

'button. This function first disables the Open Network B button, so that a

'user cannot try to open Network B while it is already open. It also enables

'the Close Network B button, so that the user can close the open network.

'Following this, the function opens the System and Network object for Network

'B. Please see the OpenNetA_Click()function for comments that describe each

'line of code in this function.

Private Sub OpenNetB_Click()

OpenNetB.Enabled = False

CloseNetB.Enabled = True

Dim netList As LcaNetworks

Set netList = g_cOS.Networks

Set g_NetworkB = netList(2)

g_NetworkB.Open

Dim NIs As LcaNetworkInterfaces

Set NIs = g_cOS.NetworkInterfaces

Dim curRNI As LcaNetworkInterface

Set curRNI = NIs.Item("X.Default.RNI-0002")

Dim SysList As LcaSystems

Set SysList = g_NetworkB.Systems

Set g_SystemB = SysList(1)

Dim SysNSD As LcaNetworkServiceDevice

Set SysNSD = g_SystemB.NetworkServiceDevice

Set SysNSD.NetworkInterface = curRNI

g_SystemB.Open

End Sub

'Private Sub CloseNetB_Click() is called when the user clicks the Close

'Network B button. In order for this to happen, the Network object and the

'System object for Network B must be closed. This function also re-enables

'the Open Network B button, so that Network B can be re-opened, and disables

'the Close Network B button, so that the application will not attempt to close

'a network that is already closed. Please see the CloseNetA_Click()

'function for comments that describe each line of code in this section.

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

Comments to this Manuals

No comments

Echelon OpenLDV User Manual Page 149

Comments to this Manuals

Related products and manuals for Software Echelon OpenLDV