Rohde & Schwarz FSL6 Kompakthandbuch Seite 139

Komplexere Programmbeispiele
'––––––––– Defining the frequency range for output –––––––––––––––––––––––––
CALL InstrWrite(analyzer,"FREQ:STARt?")
CALL InstrRead(analyzer,startFreq$, 100, retCount)
startFreq = Val(startFreq$)
CALL InstrWrite(analyzer,"FREQ:SPAN?")
CALL InstrRead(analyzer,span$, 100, retCount)
span = Val(span$)
'––––––––– Reading out in binary format ––––––––––––––––––––––––––––––––––––
CALL InstrWrite(analyzer, "FORMAT REAL,32")
CALL InstrWrite(analyzer, "TRAC1? TRACE1")
CALL InstrRead(analyzer, result$, 2, retCount)
digits = Val(Mid$(result$, 2, 1))
result$ = Space$(100)
CALL InstrRead(analyzer, result$, digits, retCount)
traceBytes = Val(Left$(result$, digits))
CALL InstrRead(analyzer, BinBuffer, traceBytes, retCount)
CopyMemory traceData(0), ByVal BinBuffer, traceBytes
'––––––––– Outputting binary data as frequency/level pairs –––––––––––––––––
traceValues = traceBytes/4
stepsize = span/traceValues
For i = 0 To traceValues – 1
Debug.Print "Value["; i; "] = "; startFreq+stepsize*i; ", "; traceData(i)
Next i
'––––––––– Default setting of zero span ––––––––––––––––––––––––––––––––––––
CALL InstrWrite(analyzer,"FREQ:SPAN 0Hz")
CALL InstrWrite(analyzer,"INIT;*WAI") 'Perform sweep with sync
'––––––––– Reading out in ASCII format –––––––––––––––––––––––––––––––––––––
CALL InstrWrite(analyzer,"FORMAT ASCII")
CALL InstrWrite(analyzer, "TRAC1? TRACE1")
CALL InstrRead(analyzer, asciiResult$)
Print "Contents of Trace1: ",asciiResult$ 'trace 1
END SUB
REM ************************************************************************
1300.2519.61
'Read start frequency
'Read span
'Set binary format
'Read trace 1
'Read and store length
'spec. for number of characters
'Reinitialize buffer
'Read and store length
'specification
'Read trace data into buffer
'Copy data into float array
'Single precision = 4 bytes
'Calculate frequency step size
'Switch to zero span
'Set ASCII format
'Read and output
6.18
R&S FSL
D-3