Rohde & Schwarz R&S FSVR Guide De Démarrage Rapide page 163

®
R&S FSVR
permettant l'opération de copie. La déclaration de fonction doit être ajoutée à un
module (.bas) de la manière suivante :
Tableaux
Les tableaux destinés aux données de mesure sont dimensionnés de manière
à laisser un espace suffisant pour les données de courbe du R&S FSVR (691
points de mesure).
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)
Guide de démarrage rapide 1311.0670.63 ─ 03
Brève introduction à la commande à distance
'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
Exemples détaillés de programmation
'Perform sweep with sync
'Read start frequency
'Read span
163