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

MAIN CONTROL OBJECT

45

3

EXAMPLE

...

Private Const SAT_ON = 1

Private Const SAT_OFF = 2

Private Const SAT_SLEEP = 3

...

Private Sub RFNCCTL_SleepSatEvent(ByVal SatID As Integer, ByVal

Status As Integer)

On Error GoTo ErrStatus

Dim strMsg As String

StrMsg = ""

Select Case Status

Case SAT_ON

strMsg = "Satellite " & CStr(SatID) & “ is ON”

Case SAT_OFF

strMsg = "Satellite " & CStr(SatID) & “ is OFF”

Case SAT_SLEEP

strMsg = "Satellite " & CStr(SatID) & “ is SLEEP”

End Select

MsgBox strMsg, vbExclamation

Exit Sub

ErrStatus:

MsgBox "Error Sleep Sat Event", vbCritical, "Test Program"

End Sub

...

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

Commentaires sur ces manuels

Pas de commentaire