R&S ESR Series

Quick Start
R&S
®
ESR
138User Manual 1175.7068.02 ─ 12
NEXT i
'--------- Default setting of the R&S FSV -------------------------------
CALL SetupStatusReg 'Configure status register
CALL InstrWrite(analyzer,"*RST") 'Reset instrument
CALL InstrWrite(analyzer,"INIT:CONT OFF")
'Single sweep mode
CALL InstrWrite(analyzer,"SYST:DISP:UPD ON")
'Screen display on
'--------- Measurement settings ------------------------------------------
CALL InstrWrite(analyzer,"FREQ:CENT 100MHz;SPAN 10MHz")
'Frequency setting
CALL InstrWrite(analyzer,"DISP:TRAC:Y:RLEV -10dBm")
'Reference level
CALL InstrWrite(analyzer,"INIT;*WAI") 'Perform measurement
'--------- Querying the available output devices -------------------------
CALL InstrWrite(analyzer,"SYST:COMM:PRIN:ENUM:FIRSt?")
'Read out and display first output device
CALL InstrRead(analyzer,Devices$(0), 50, retCount)
Debug.Print "Printer 0: "+Devices$(0)
For i = 1 to 99
CALL InstrWrite(analyzer,"SYST:COMM:PRIN:ENUM:NEXT?")
'Read out next printer name
CALL InstrRead(analyzer,Devices$(i)
IF Left$(Devices$(i),2) = "''" THEN GOTO SelectDevice
'Stop at end of list
Debug.Print "Printer"+Str$(i)+": " Devices$(i)
'Display printer name
NEXT i
SelectDevice:
'---- Selection of output device, printer language and output interface ----
CALL InstrWrite(analyzer,"SYST:COMM:PRIN:SEL "+ Devices(6))
'Printer selection #6
CALL InstrWrite(analyzer,"HCOP:DEST 'SYST:COMM:PRIN'")
'Configuration: "Printout to
'printer interface"
CALL InstrWrite(analyzer,"HCOP:DEV:LANG GDI")
'Printers require printer language 'GDI'
'----- Selection of orientation (portrait/landscape) and colour/BW ---------
CALL InstrWrite(analyzer,"HCOP:PAGE:ORI PORT")
'Portrait orientation
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") 'Reset status registers
CALL viEnableEvent(vi, VI_EVENT_SERVICE_REQ, VI_QUEUE, 0)
'Enable the event for service request
Brief Introduction to Remote Control