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

®
R&S FSVR
C'est pourquoi deux mesures sont effectuées avec différents réglages de niveaux
dans l'exemple ci-après. On utilise d'abord un niveau de référence élevé à la fré-
quence de porteuse, puis un niveau de référence bas à la fréquence de la troisième
harmonique.
Le réglage par défaut du R&S FSVR prévu pour les mesures ("SetupInstrument")
est également utilisé ici comme point de départ, des adaptations sont ensuite effec-
tuées pour la mesure.
REM *************************************************************************
Public Sub RefFixed()
Dim retCount as Long
CALL SetupInstrument
'--------- Measuring the reference point ----------------------------------
CALL InstrWrite(analyzer,"INIT:CONT OFF")
'Switch to single sweep
CALL InstrWrite(analyzer,"CALC:MARK:PEXC 6DB")
'Define peak excursion
CALL InstrWrite(analyzer,"CALC:MARK:STAT ON")
'Activate marker 1
CALL InstrWrite(analyzer,"CALC:MARK:TRAC 1")
'Set marker 1 to trace 1
CALL InstrWrite(analyzer,"INIT;*WAI")
CALL InstrWrite(analyzer,"CALC:MARK:MAX")
'Set marker 1 to 100 MHz
CALL InstrWrite(analyzer,"CALC:DELT:FUNC:FIX ON")
'Define reference point
'----- Setting frequency, level and bandwidth for measuring harmonics ------
CALL InstrWrite(analyzer,"FREQ:CENT 400MHz;Span 1MHz")
'Set freq of 3rd harmonic
CALL InstrWrite(analyzer,"BAND:RES 1kHz")
'Set suitable RBW
CALL InstrWrite(analyzer,"SWEEP:TIME:AUTO ON")
'Couple sweep time
CALL InstrWrite(analyzer,"INP:ATT:AUTO ON")
'Select more sensitive level setting
CALL InstrWrite(analyzer,"DISP:WIND:TRAC:Y:RLEV -50dBm")
CALL InstrWrite(analyzer,"INIT;*WAI")
CALL InstrWrite(analyzer,"CALC:DELT:MAX;X:REL?;Y?")
'Read delta marker
result$ = Space$(100)
CALL InstrRead(analyzer, result$, 100, retCount)
'Read frequency and level
Debug.Print "Deltamarker 1: "; result$
END SUB
REM ***********************************************************************
Guide de démarrage rapide 1311.0670.63 ─ 03
Brève introduction à la commande à distance
Exemples détaillés de programmation
'Default setting
'Perform sweep with sync
'Perform sweep with sync
160