Installation manual

MAIN CONTROL OBJECT
43
3
EVENT SATCFGEVENT
PURPOSE
Base station configuration answer.
DESCRIPTION
This event will be sent from the control to the application when a base station
answers to a GetConfiguration command. Before sending this event the control sets
all the related properties.
IDL
[id(4), helpstring("method SatCfgEvent")] HRESULT SatCfgEvent(short SatID);
INPUT PARAMETERS
None
OUTPUT VALUE
SatID as short with the ID of the base station sending the configuration answer.
EXAMPLE
...
Private Sub RFNCCTL _SatCfgEvent(ByVal SatID As Integer)
On Error GoTo ErrCfgGet
Dim SatObject as Sat
Dim StrProperties as String
‘
‘ Show the base station properties
‘
Set SatObject = RFNCCTL.Satellites.Satellite(SatID)
StrProperties = strProperties & “SatID = “& _
CStr(SatObject.SatID) & Chr(10)
StrProperties = strProperties & “PID = “ & _
CStr(SatObject.PID) & Chr(10)
StrProperties = strProperties & “RF Version = “ &_
CStr(SatObject.RFMaxProtocolVersion) & “.”& _
CStr(SatObject.RFMinProtocolVersion) & Chr(10)
MsgBox StrProperties, vbExclamation, “Satellie n. “ & _
CStr(SatID)
Exit Sub
ErrCfgGet:
MsgBox "Error SatCfgGet Event", vbCritical, "Test Program"
End Sub
...