R&S FSL
CALL viEnableEvent(vi, VI_EVENT_SERVICE_REQ, VI_QUEUE, 0)
CALL InstrWrite(analyzer, "ABOR;INIT:IMM; *OPC")
SRQWaitTimeout = 5000
'Now wait for the service request
CALL viWaitOnEvent(vi, VI_EVENT_SERVICE_REQ, SRQWaitTimeout, eventType, eventVi)
CALL viClose(eventVi)
CALL viDisableEvent(vi, VI_EVENT_SERVICE_REQ, VI_QUEUE)
REM Resume main program here.
END SUB
REM ************************************************************************
Ausgabepuffer auslesen
REM ––––––––– Subroutine for the individual STB bits –––––––––––––––––––––––
Public SUB Outputqueue()
Dim retCount as Long
result$ = SPACE$(100)
CALL InstrRead(analyzer, result$, 100, retCount)
Debug.Print "Contents of Output Queue : "; result$
END SUB
REM ************************************************************************
Fehlermeldungen auslesen
REM ––––––––– Subroutine for evaluating the error queue ––––––––––––––––––––
Public SUB ErrorQueueHandler()
Dim retCount as Long
ERROR$ = SPACE$(100)
CALL InstrWrite(analyzer, "SYSTEM:ERROR?")
CALL InstrRead(analyzer, ERROR$, 100, retCount)
Debug.Print "Error Description : "; ERROR$
END SUB
REM ************************************************************************
1300.2519.61
Programmierung der Fernsteuerung – erste Schritte
'Enable the event for service request
'Start sweep with Synchronization to OPC
'Allow 5s for sweep completion
'Close the context before continuing
'Disable subsequent events
'Reading the output queue
'Create space for response
Subroutine for evaluating the error queue
6.9
D-3