Rohde & Schwarz FSVA Guia De Inicio Rapido página 190

®
R&S FSVA/FSV
CALL InstrWrite(analyzer,"HCOP:DEV:COL OFF")
'Black-and-white printout
'----- Configuring and starting the printout -------------------------------
CALL InstrWrite(analyzer,"HCOP:ITEM:ALL")
'All screen contents
'CALL InstrWrite(analyzer,"HCOP:ITEM:TRAC:STAT ON")
'Alternative: only traces
CALL InstrWrite(analyzer,"*CLS")
CALL viEnableEvent(vi, VI_EVENT_SERVICE_REQ, VI_QUEUE, 0)
'Enable the event for service request
CALL InstrWrite(analyzer,"HCOP;*OPC")
'Start printout
SRQWaitTimeout = 5000
'Now wait for the service request
statusSRQ = viWaitOnEvent(vi, VI_EVENT_SERVICE_REQ, SRQWaitTimeout, _
eventType, eventVi)
CALL viClose(eventVi)
CALL viDisableEvent(vi, VI_EVENT_SERVICE_REQ, VI_QUEUE)
'Disable subsequent events
IF NOT(statusSRQ
'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")
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
' Now wait for the service request
statusSRQ = viWaitOnEvent(vi, VI_EVENT_SERVICE_REQ, SRQWaitTimeout, _
eventType, eventVi)
CALL viClose(eventVi)
CALL viDisableEvent(vi, VI_EVENT_SERVICE_REQ, VI_QUEUE)
'Disable subsequent events
IF NOT(statusSRQ = 0) THEN CALL Srq
'Subroutine for evaluation
END SUB
REM ***********************************************************************
Guía de inicio rápido 1321.3066.10 ─ 03
'Allow 5s for completion
'Close the context before continuing
= 0) THEN CALL Srq
'Allow 5s for completion
'Close the context before continuing
Breve introducción al control remoto
Ejemplos de programación detallados
'Reset status registers
'If SRQ not detected =>
'Reset Status registers
'If SRQ not detected =>
178