R&S esu, Быстрый старт

Страница: 185 / 223

Quick Start Guide 1302.6163.62 - 04 7.7
R&S ESU Brief Introduction to Remote Control
Basic Steps in Programming using the VISA Interface
7.1.4 Reading Out Instrument Settings
The settings made above can now be read out. To do so, the abbreviated commands are
used.
REM --------- Reading out instrument settings -----------------------------
PUBLIC SUB ReadSettings()
Dim status As ViStatus
Dim retCnt As Long
CFfrequenz$ = Space$(20)
'Provide text variable (20 characters)
status = viWrite(analyzer, "FREQ:CENT?", 10, retCnt)
'Request center frequency
status = viRead(analyzer, CFfrequenz$, 20, retCnt)
'Read in value
CFspan$ = Space$(20) 'Provide text variable (20 characters)
status = viWrite(analyzer, "FREQ:SPAN?", 10, retCnt)
'Request span
status = viRead(analyzer, CFspan$, 20, retCnt)
'Read in value
RLpegel$ = Space$(20) 'Provide text variable (20 characters)
status = viWrite(analyzer, "DISP:TRAC:Y:RLEV?", 17, retCnt)
'Request ref level setting
status = viRead(analyzer, RLpegel$, 20, retCnt)
'Read in value
REM -------- Displaying values on the screen -----------------------------
Print "Center frequency: "; CFfrequenz$,
Print "Span: "; CFspan$,
Print "Reference level: "; RLpegel$,
END SUB
REM************************************************************************
7.1.5 Marker Positioning and Readout
REM -------- Example of marker function -----------------------------------
PUBLIC SUB ReadMarker()
status = viWrite(analyzer, "CALC:MARKER ON;MARKER:MAX", 25, retCnt)
'Activate marker 1 and search for peak
MKmark$ = Space$(30) 'Provide text variable (30 characters)
status = viWrite(analyzer, "CALC:MARK:X?;Y?", 15, retCnt)
status = viRead(analyzer, MKmark$, 30, retCnt)
'Query frequency and level and read in value
REM -------- Displaying values on the screen -----------------------------
Print "Marker frequency/level "; MKmark$,
END SUB
REM **********************************************************************