Quick Start
R&S
®
ESR
139
User Manual 1175.7068.02 ─ 12
CALL InstrWrite(analyzer,"HCOP;*OPC")
'Start printout
SRQWaitTimeout = 5000 'Allow 5s for completion
'Now wait for the service request
statusSRQ = 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
IF NOT(statusSRQ = 0) THEN CALL Srq 'If SRQ not detected =>
'Subroutine for evaluation
'---- Printout in WMF format (BMP format) to file --------------------------
CALL InstrWrite(analyzer,"HCOP:DEST 'MMEM'")
'Configuration: "Printout to file"
CALL InstrWrite(analyzer,"HCOP:DEV:LANG WMF")
'WMF file format
'CALL InstrWrite(analyzer,"HCOP:DEV:LANG BMP")
'BMP file format
CALL InstrWrite(analyzer,"MMEM:NAME 'C:\R_S\Instr\user\PRINT1.WMF'")
'Define file name
CALL InstrWrite(analyzer,"*CLS") 'Reset Status registers
CALL viEnableEvent(vi, VI_EVENT_SERVICE_REQ, VI_QUEUE, 0)
'Enable the event for service request
CALL InstrWrite(analyzer,"HCOP:IMMediate;*OPC")
'Start printout
SRQWaitTimeout = 5000 'Allow 5s for completion
' Now wait for the service request
statusSRQ = 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
IF NOT(statusSRQ = 0) THEN CALL Srq 'If SRQ not detected =>
'Subroutine for evaluation
END SUB
REM ***********************************************************************
Brief Introduction to Remote Control