Rohde & Schwarz R&S FSP Series, Operating Manual

Page: 753 / 796

Operating Manual 1164.4556.12 - 06 7.19
R&S FSP Remote Control – Programming Examples
More Complex Programming Examples
REM ************************************************************************
Public Sub MultiSumMarker()
result$ = Space$(200)
'--------- R&S FSP default setting---------------------------
CALL SetupStatusReg
'Configure status register
status = viWrite(analyzer, "*RST", 4, retCnt
'Reset instrument
status = viWrite(analyzer, "INIT:CONT OFF", 13, retCnt)
'Single sweep mode
status = viWrite(analyzer, "SYST:DISP:UPD ON", 16, retCnt)
'ON: switch display on
'OFF: switch display off
'-- Configure R&S FSP for power measurement in time domain --
status = viWrite(analyzer, "FREQ:CENT 935.2MHz;SPAN 0Hz", 27, retCnt)
'Frequency setting
status = viWrite(analyzer, "DISP:WIND:TRAC:Y:RLEV 10dBm", 27, retCnt)
'Set reference level to 10 dB
status = viWrite(analyzer, "INP:ATT 30 dB", 13, retCnt)
'Set input attenuation to 30 dB
status = viWrite(analyzer, "BAND:RES 1MHz;VID 3MHz", 22, retCnt)
'Bandwidth setting
status = viWrite(analyzer, "DET RMS", 7, retCnt)
'Select RMS detector
status = viWrite(analyzer, "TRIG:SOUR VID", 13, retCnt)
'Trigger source: video
status = viWrite(analyzer, "TRIG:LEV:VID 50 PCT", 19, retCnt)
'Trigger threshold: 50%
status = viWrite(analyzer, "SWE:TIME 50ms", 13, retCnt)
'Sweep time
≥
1 frame
'--------- Perform measurement and query results ------------
status = viWrite(analyzer, "INIT;*WAI", 9, retCnt)
'Perform sweep with sync
'Query results:
cmd$ = "CALC:MARK:FUNC:MSUM? "
cmd$ = cmd$ + "50US,"
'Offset of first pulse
cmd$ = cmd$ + "450US,"
'Measurement time
cmd$ = cmd$ + "576.9US,"
'Pulse period
cmd$ = cmd$ + "8"
'Number of bursts
status = viWrite(analyzer, cmd$, 41, retCnt)
status = viRead(analyzer, result$, 100, retCnt)
'Read results
Print result$
END SUB