Quick Start
R&S
®
ESR
126
User Manual 1175.7068.02 ─ 12
REM command INIT:CONT OFF has already been sent. The next command
REM must not be carried out until a full sweep has been completed.
CALL InstrWrite(analyzer, "INIT:CONT OFF")
REM --------- First method: Using *WAI ------------------------------------
CALL InstrWrite(analyzer, "ABOR;INIT:IMM; *WAI")
REM --------- Second method: Using *OPC? ----------------------------------
OpcOk$ = SPACE$(2) 'Provide space for *OPC? response
CALL InstrWrite(analyzer, "ABOR;INIT:IMM; *OPC?")
REM --------- In this case, the controller can use other instruments ------
CALL InstrRead(analyzer, OpcOk$, 2, retCount)
'Wait for "1" from *OPC?
REM --------- Third method: Using *OPC ------------------------------------
REM In order for the Service Request function to be used with a GPIB
REM driver from National Instruments, the setting "Disable
REM Auto Serial Poll" must be set to "yes" with IBCONF!
CALL InstrWrite(analyzer, "*SRE 32") 'Enable Service Request for ESR
CALL InstrWrite(analyzer, "*ESE 1") 'Set event enable bit for operation
'complete bit
CALL viEnableEvent(vi, VI_EVENT_SERVICE_REQ, VI_QUEUE, 0)
'Enable the event for service request
CALL InstrWrite(analyzer, "ABOR;INIT:IMM; *OPC")
'Start sweep with Synchronization to OPC
SRQWaitTimeout = 5000 'Allow 5s for sweep completion
'Now wait for the service request
CALL viWaitOnEvent(vi, VI_EVENT_SERVICE_REQ, SRQWaitTimeout, _
eventType, eventVi)
CALL viClose(eventVi) 'Close the context before continuing
CALL viDisableEvent(vi, VI_EVENT_SERVICE_REQ, VI_QUEUE)
'Disable subsequent events
REM Resume main program here.
END SUB
REM ************************************************************************
Reading Output Buffers
REM --------- Subroutine for the individual STB bits -----------------------
Public SUB Outputqueue() 'Reading the output queue
Dim retCount as Long
result$ = SPACE$(100) 'Create space for response
CALL InstrRead(analyzer, result$, 100, retCount)
Debug.Print "Contents of Output Queue : "; result$
END SUB
REM ************************************************************************
Reading Error Messages
REM --------- Subroutine for evaluating the error queue --------------------
Public SUB ErrorQueueHandler()
Dim retCount as Long
ERROR$ = SPACE$(100) Subroutine for evaluating the error queue
CALL InstrWrite(analyzer, "SYSTEM:ERROR?")
Brief Introduction to Remote Control
