Rohde & Schwarz FSVA Guia De Inicio Rapido página 185

®
R&S FSVA/FSV
del sistema operativo para la operación de copia. La declaración de función debe
añadirse a un módulo (.bas) del siguiente modo:
Dimensiones de la matriz
Las matrices para los datos medidos están dimensionadas de tal modo que
ofrezcan suficiente espacio para los datos de traza del R&S FSVA/FSV
(691 puntos de medición).
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)
Guía de inicio rápido 1321.3066.10 ─ 03
Breve introducción al control remoto
'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
Ejemplos de programación detallados
'Perform sweep with sync
'Read start frequency
'Read span
173