Rohde & Schwarz R&S FSL3 Guide De Démarrage Rapide page 146

R&S FSL
'––––––––– Réglage par défaut du R&S FSL ––––––––––––––––––––––––––––––––––––––––
CALL SetupInstrument
CALL InstrWrite(analyzer,"INIT:CONT OFF")
'Commute sur balayage unique
CALL InstrWrite(analyzer,"INIT;*WAI")
'––––––––– Détermination de la gamme de fréquence pour la lecture –––––––––––––––
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$)
'––––––––– Lecture au format binaire ––––––––––––––––––––––––––––––––––––––––––––
CALL InstrWrite(analyzer, "FORMAT REAL,32")
'Règle le format binaire
CALL InstrWrite(analyzer, "TRAC1? TRACE1")
'Lit la courbe 1
CALL InstrRead(analyzer, result$, 2, retCount)
'Lit et sauvegarde l'indication
digits = Val(Mid$(result$, 2, 1))
result$ = Space$(100)
CALL InstrRead(analyzer, result$, digits, retCount)
'Lit et sauvegarde l'indication
traceBytes = Val(Left$(result$, digits))
'de longueur
CALL InstrRead(analyzer, BinBuffer, traceBytes, retCount)
'Lit données de courbe dans file d'att.
CopyMemory traceData(0), ByVal BinBuffer, traceBytes
'Copie données dans tableau flottant
'––––––––– Lecture des données binaires comme paires de fréquence/niveau ––––––––
traceValues = traceBytes/4
stepsize = span/traceValues
For i = 0 To traceValues – 1
Debug.Print "Value["; i; "] = "; startFreq+stepsize*i; ", "; traceData(i)
Next i
'––––––––– Réglage par défaut de la plage de représentation zéro ––––––––––––––––
CALL InstrWrite(analyzer,"FREQ:SPAN 0Hz")
'Commute sur la plage zéro
CALL InstrWrite(analyzer,"INIT;*WAI")
'––––––––– Lecture au format ASCII ––––––––––––––––––––––––––––––––––––––––––––––
CALL InstrWrite(analyzer,"FORMAT ASCII")
'Règle le format ASCII
CALL InstrWrite(analyzer,"TRAC1? TRACE1")
'Lit et sort
CALL InstrRead(analyzer, asciiResult$)
Print "Contents of Trace1: ",asciiResult$ 'la courbe 1
END SUB
REM ************************************************************************
1300.2519.63
Exemples de programmation détaillés
'Réglage par défaut
'Effectue balayage avec synchro
'Lit la fréquence de départ
'Lit la gamme de fréquence
'caract. de l'ind. de longueur
'Réinitialise la file d'attente
'Précision unique = 4 octets
'Calcule la largeur de pas de la fréquence
'Effectue balayage avec synchro
6.19 F-3