Quick Start Guide 1302.6163.62 - 04
7.21
R&S ESU
Brief Introduction to Remote Control
Detailed Programming Examples
REM ------ Default setting of the R&S ESU ----------------------------------
Call SetupStatusReg
'Configure status register
status = viWrite(analyzer, "*RST", 4, retCnt)
'Reset instrument
status = viWrite(analyzer, "INST:SEL SAN", 12, retCnt)
'Change into analyzer mode
status = viWrite(analyzer, "INIT:CONT OFF", 13, retCnt) 'Single sweep mode
status = viWrite(analyzer, "SYST:DISP:UPD ON", 16, retCnt)
'Screen display on
REM ------ Measurement settings --------------------------------------------
status = viWrite(analyzer, "FREQ:CENT 100MHz;SPAN 10MHz", 27, retCnt)
'Frequency setting
status = viWrite(analyzer, "DISP:WIND:TRAC:Y:RLEV -10dBm", 28, retCnt)
'Reference Level
status = viWrite(analyzer, "INIT;*WAI", 10, retCnt)
'Perform measurement
REM ------ Querying the available output devices --------------------------
status = viWrite(analyzer, "SYST:COMM:PRIN:ENUM:FIRSt?", 26, retCnt)
'Read out and display first output device
status = viRead(analyzer, Devices$(0), 100, retCnt)
Print "Printer 0: " + Devices$(0)
For i = 1 To 99
status = viWrite(analyzer, "SYST:COMM:PRIN:ENUM:NEXT?", 24, retCnt)
'Read out next printer name
status = viRead(analyzer, Devices$(i), 100, retCnt)
If Left$(Devices$(i), 2) = "''" Then GoTo SelectDevice
'Stop at end of list
Print "Printer" + Str$(i) + ": "; Devices$(i)
'Display printer name
Next i
SelectDevice:
REM - Selection of output device, printer language and output interface ----
status = viWrite(analyzer, "SYST:COMM:PRIN:SEL " + Devices(6), 19 + Len(Devices(6)),
retCnt)
'Printer selection #6
status = viWrite(analyzer, "HCOP:DEST 'SYST:COMM:PRIN'", 26, retCnt)
'Configuration: "Printout to printer interface"
status = viWrite(analyzer, "HCOP:DEV:LANG GDI", 17, retCnt)
'Printers require printer language 'GDI'
REM -- Selection of orientation (portrait/landscape) and color/BW ---------
status = viWrite(analyzer, "HCOP:PAGE:ORI PORTrait", 22, retCnt)
'Portrait orientation
status = viWrite(analyzer, "HCOP:DEV:COL OFF", 16, retCnt)
'Black-and-white printout
REM -- Configuring and starting the printout -------------------------------
status = viWrite(analyzer, "HCOP:ITEM:ALL", 13, retCnt)
'All screen contents
'status = viWrite(analyzer, "HCOP:ITEM:WIND1:TRACE:STAT ON", 29, retCnt)
'status = viWrite(analyzer, "HCOP:ITEM:WIND2:TRACE:STAT ON", 29, retCnt)
'Alternative: only traces in screen A/B
status = viWrite(analyzer, "*CLS", 4, retCnt)
'Reset status administration
Содержание esu
Страница 1: ...R S ESU EMI Test Receiver Quick Start Guide Quick Start Guide Test Measurement 1302 6163 62 04 ...
Страница 26: ...R S ESU Contents 6 Quick Start Guide 1302 6163 62 04 ...
Страница 28: ......
Страница 32: ...R S ESU 0 4 Quick Start Guide 1302 6163 62 04 ...
Страница 88: ...R S ESU Preparing for Use Operating System Properties 2 38 Quick Start Guide 1302 6163 62 04 ...
Страница 104: ...R S ESU Basic Operation Setting Parameters 4 12 Quick Start Guide 1302 6163 62 04 ...
Страница 175: ...Quick Start Guide 1302 6163 62 04 6 33 R S ESU LAN Interface Manual Operation of the R S ESU with XP Remote Desktop ...
Страница 178: ...R S ESU LAN Interface Manual Operation of the R S ESU with XP Remote Desktop 6 36 Quick Start Guide 1302 6163 62 04 ...
Страница 201: ...Quick Start Guide 1302 6163 62 04 R S ESU Appendix Appendix ...
Страница 202: ...Quick Start Guide 1302 6163 62 04 R S ESU Appendix ...