Rohde & Schwarz FSV - Page 171

Controlling the R&S FSVA/FSV Remotely
R&S
®
FSVA/FSV
156Quick Start Guide 1321.3066.02 ─ 06
Array dimensions
The arrays for the measured data are dimensioned so they provide suffi-
cient space for trace data of the R&S FSVA/FSV (691 measurement
points).
REM ************************************************************************
Public Sub ReadTrace()
'--------- Creating variables ----------------------------------------------
Dim traceData(1400) As Single 'Buffer for floating point binary data
Dim digits As Byte 'Number of characters in
'length specification
Dim traceBytes As Integer 'Len. of trace data in bytes
Dim traceValues As Integer 'No. of meas. values in buff.
Dim BinBuffer as String * 5600 'String buffer for binary data
Dim retCount as Long
asciiResult$ = Space$(28000) 'Buffer for ASCII trace data
result$ = Space$(100) 'Buffer for simple results
startFreq$ = Space$(100) 'Buffer for start frequency
span$ = Space$(100) 'Buffer for span
'--------- Default setting of the R&S FSV ---------------------------------
CALL SetupInstrument 'Default setting
CALL InstrWrite(analyzer,"INIT:CONT OFF")
'Switch to single sweep
CALL InstrWrite(analyzer,"INIT;*WAI") 'Perform sweep with sync
'--------- Defining the frequency range for output -------------------------
CALL InstrWrite(analyzer,"FREQ:STARt?") 'Read start frequency
CALL InstrRead(analyzer,startFreq$, 100, retCount)
startFreq = Val(startFreq$)
CALL InstrWrite(analyzer,"FREQ:SPAN?") 'Read span
CALL InstrRead(analyzer,span$, 100, retCount)
span = Val(span$)
'--------- Reading out in binary format ------------------------------------
CALL InstrWrite(analyzer, "FORMAT REAL,32")
'Set binary format
CALL InstrWrite(analyzer, "TRAC1? TRACE1")
'Read trace 1
CALL InstrRead(analyzer, result$, 2, retCount)
'Read and store length
digits = Val(Mid$(result$, 2, 1)) 'spec. for number of characters
result$ = Space$(100) 'Reinitialize buffer
CALL InstrRead(analyzer, result$, digits, retCount)
'Read and store length
traceBytes = Val(Left$(result$, digits))
'specification
CALL InstrRead(analyzer, BinBuffer, traceBytes, retCount)
Brief Introduction to Remote Control