R&S ESR Series

Remote Control
R&S
®
ESR
1002User Manual 1175.7068.02 ─ 12
'function
Do While Timer < Start + delayTime/1000 'Check timer count
DoEvents 'Return control to operating
'system to enable control of
'desired elements as long as
'timer has not elapsed
Loop
End Sub
Rem ***********************************************************************
The waiting procedure is activated simply by calling Hold(<Waiting time in
milliseconds>).
11.17.1.4 Service Request Routine
A service request is processed in the service request routine.
The variables userN% and userM% must be pre-assigned usefully!
REM ------------ Service request routine ----------------------------------
Public SUB Srq()
ON ERROR GOTO noDevice 'No user existing
CALL viReadSTB(analyzer, STB%) 'Serial poll, read status byte
IF STB% > 0 THEN 'This instrument has bits set in
'the STB
SRQFOUND% = 1
IF (STB% AND 16) > 0 THEN CALL Outputqueue
IF (STB% AND 4) > 0 THEN CALL ErrorQueueHandler
IF (STB% AND 8) > 0 THEN CALL Questionablestatus
IF (STB% AND 128) > 0 THEN CALL Operationstatus
IF (STB% AND 32) > 0 THEN CALL Esrread
END IF
noDevice:
END SUB 'End of SRQ routine
REM ***********************************************************************
REM ---------- Subroutine for evaluation Service Request Routine ----------
Public Sub Srq()
Try
Dim mySTB As Short = mbSession.ReadStatusByte()
'Serial poll, read status byte
Console.WriteLine("Reading Service Request Routine:" + mySTB.ToString())
If mySTB > 0 Then 'This instrument has bits set in the STB
If (mySTB And 16) > 0 Then Call Outputqueue()
If (mySTB And 4) > 0 Then Call ErrorQueueHandler()
If (mySTB And 8) > 0 Then Call Questionablestatus()
If (mySTB And 128) > 0 Then Call Operationstatus()
Remote Control – Programming Examples