Datalogic Star Manuel d'installation télécharger pdf (Page 56)

STAR-LINK™

EVENT STATUSEVENT

PURPOSE

Base station status answer.

DESCRIPTION

This event will be sent from the control to the application when a base station

answers to a GetStatus command. Before sending this event, the control sets all the

related properties.

IDL

[id(5), helpstring("method StatusEvent")] HRESULT StatusEvent(short SatID);

INPUT PARAMETERS

None

OUTPUT VALUE

SatID as short with the ID of the base station sending the Get Status answer

EXAMPLE

...

Private Sub RFNCCTL_StatusEvent(ByVal SatID As Integer)

On Error GoTo ErrStatus

Dim SatObject As Sat

Dim strMsg As String

Set SatObject = 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

...

1 2 ... 51 52 53 54 55 56 57 58 59 60 61 ... 127 128

Pas de commentaire

Datalogic Star Manuel d'installation Page 56