Rohde & Schwarz ESR7 Bedienungsanleitung Seite 169

®
R&S ESR
Array-Abmessungen
Die Arrays für die Messdaten sind so dimensioniert, dass die Messkurven-
daten des R&S ESR (691 Messpunkte) darin Platz haben.
REM ************************************************************************
Public Sub ReadTrace()
'--------- Creating variables ----------------------------------------------
Dim traceData(1400) As Single
Dim digits As Byte
'length specification
Dim traceBytes As Integer
Dim traceValues As Integer
Dim BinBuffer as String * 5600
Dim retCount as Long
asciiResult$ = Space$(28000)
result$ = Space$(100)
startFreq$ = Space$(100)
span$ = Space$(100)
'--------- Default setting of the R&S FSV ---------------------------------
CALL SetupInstrument
CALL InstrWrite(analyzer,"INIT:CONT OFF")
'Switch to single sweep
CALL InstrWrite(analyzer,"INIT;*WAI")
'--------- 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")
'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))
result$ = Space$(100)
CALL InstrRead(analyzer, result$, digits, retCount)
'Read and store length
traceBytes = Val(Left$(result$, digits))
'specification
CALL InstrRead(analyzer, BinBuffer, traceBytes, retCount)
'Read trace data into buffer
Erste Schritte 1316.3749.02 ─ 03
'Buffer for floating point binary data
'Number of characters in
'Len. of trace data in bytes
'No. of meas. values in buff.
'String buffer for binary data
'Buffer for ASCII trace data
'Buffer for simple results
'Buffer for start frequency
'Buffer for span
'Default setting
'spec. for number of characters
'Reinitialize buffer
Kurzeinführung Fernbedienung
Komplexere Programmbeispiele
'Perform sweep with sync
'Read start frequency
'Read span
158