Rohde & Schwarz R&S FSL3 Serie Guía Rápida página 143

Introducción Breve al Control Remoto
REM ************************************************************************
Public Sub ReadTrace()
'––––––––– Crear variables ––––––––––––––––––––––––––––––––––––––––––––––
Dim traceData(1250) As Single
Dim digits As Byte
Dim BinBuffer as String * 5000
Dim retCount as Long
asciiResult$ = Space$(25000)
result$ = Space$(100)
span$ = Space$(100)
'––––––––– Configuración por defecto del R&S FSL –––––––––––––––––––––––––
CALL SetupInstrument
CALL InstrWrite(analyzer,"INIT:CONT OFF")
CALL InstrWrite(analyzer,"INIT;*WAI") 'Realizar barrido con sinc
'––––––––– Definir el rango de frecuencias de salida –––––––––––––––––––––––––
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$)
'––––––––– Lectura en formato binario ----––––––––––––––––––––––––––––––––––––
CALL InstrWrite(analyzer, "FORMAT REAL,32")
CALL InstrWrite(analyzer, "TRAC1? TRACE1")
CALL InstrRead(analyzer, result$, 2, retCount)
digits = Val(Mid$(result$, 2, 1))
CALL InstrRead(analyzer, result$, digits, retCount)
CALL InstrRead(analyzer, BinBuffer, traceBytes, retCount)
CopyMemory traceData(0), ByVal BinBuffer, traceBytes
'––––––––– Salida de datos binarios como pares de frecuencia/nivel –––––––––––––
traceValues = traceBytes/4
stepsize = span/traceValues
For i = 0 To traceValues – 1
Debug.Print "Value["; i; "] = "; startFreq+stepsize*i; ", "; traceData(i)
Next i
'––––––––– Configuración por defecto de span cero ––––––––––––––––––––––––––––––
CALL InstrWrite(analyzer,"FREQ:SPAN 0Hz")
CALL InstrWrite(analyzer,"INIT;*WAI") 'Realizar barrido con sinc
1300.2519.67
Dim traceBytes As Integer
Dim traceValues As Integer
startFreq$ = Space$(100)
result$ = Space$(100)
traceBytes = Val(Left$(result$, digits))
'Buffer para datos binarios punto flotante
'Número de caracteres en
'especificación de longitud
'Long. de datos de traza en bytes
'No. de valores de medida en buff.
'Buffer para datos binarios
'Buffer para datos de traza en ASCII
'Buffer para resultados únicos
'Buffer para frecuencia inicial
'Buffer para span
'Configuración por defecto
'Conmutar a barrido único
'Leer frecuencia inicial
'Leer span
'Seleccionar formato binario
'Leer traza 1
'Leer y almacenar longitud
'spec. para número de caracteres
'Reinicializar buffer
'Leer y almacenar longitud
'especificación
'Leer datos de traza en buffer
'Copiar datos en array flotante
'Precisión = 4 bytes
'Calcular tamaño de paso de frecuencia
'Conmutar a span cero
6.18
R&S FSL
ES-3