Installation manual

BASE STATION OBJECT
77
6
EXAMPLE
...
Dim SatObject as Sat
...
‘ Get base station configuration
Set SatObject = RFNCCTL.Satellites.Satellite(1500)
SatObject.GetConfiguration
...
‘
‘ Get Configuration Event Handler
‘
Private Sub RFNCCTL_ SatCfgEvent(ByVal SatID As Integer)
On Error Resume Next
Dim StrCfg as String
Dim SatelliteObject as Sat
StrCfg = “”
StrCfg = StrCfg & “Satellite ID “ & CStr(SatID) & Chr$(10)
Set SatObject = RFNCCTL.Satellites.Satellite(SatID)
StrCfg = StrCfg & “PID“ & CStr(SatObject.PID) & Chr$(10)
StrCfg = StrCfg & “RF Version “ &
CStr(SatObject.RFMaxProtocolVersion) & “.” &
CStr(SatObject.RFMinProtocolVersion) & Chr$(10)
MsgBox StrCfg, vbExclamation, "Satellite Parameters”
End Sub