Installation manual

BASE STATION OBJECT
79
6
EXAMPLE
...
Dim SatObject as Sat
...
‘ Get base station configuration
Set SatObject = RFNCCTL.Satellites.Satellite(1500)
SatObject.GetStatus
...
‘
‘ Get Status Event Handler
‘
Private Sub RFNCCTL_StatusEvent(ByVal SatID As Integer)
On Error GoTo ErrStatus
Dim sSat As Sat
Dim strMsg As String
Set sSat = RFNCCTL.Satellites.Satellite(SatID)
StrMsg = ""
strMsg = strMsg & "Rx Free : " & sSat.RxFree & Chr(10)
strMsg = strMsg & "Tx Free : " & sSat.TxFree & Chr(10)
strMsg = strMsg & "Rx Total : " & sSat.RxTotal & Chr(10)
strMsg = strMsg & "Tx Total : " & sSat.TxTotal
MsgBox strMsg, vbExclamation, "Satellite " & CStr(SatID) &
" status .."
Exit Sub
ErrStatus:
MsgBox "Error Status Event", vbCritical, "Test Program"
End Sub