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

R&S FSL
REM ************************************************************************
Public Sub Noise()
Dim retCount as Long
'––––––––– Réglage par défaut du R&S FSL ––––––––––––––––––––––––––––––––––––––––
CALL SetupStatusReg
CALL InstrWrite(analyzer,"*RST")
CALL InstrWrite(analyzer,"INIT:CONT OFF")
'Mode balayage unique
'––––––––– Réglage de la fréquence ––––––––––––––––––––––––––––––––––––––––––––––
CALL InstrWrite(analyzer,"FREQUENCY:CENTER 100MHz")
'Fréquence centrale
CALL InstrWrite(analyzer,"FREQ:SPAN 100 kHz")
'Gamme de fréquence
'––––––––– Réglage du niveau ––––––––––––––––––––––––––––––––––––––––––––––––––––
CALL InstrWrite(analyzer,"DISP:WIND:TRAC:Y:RLEV –20dBm")
'Niveau de référence
CALL InstrWrite(analyzer,"INIT;*WAI")
'––––––––– Réglage du point de référence ––––––––––––––––––––––––––––––––––––––––
CALL InstrWrite(analyzer,"CALC:MARK:PEXC 6DB")
'Définit l'excursion de crête
CALL InstrWrite(analyzer,"CALC:MARK:STAT ON")
'Active le marqueur 1
CALL InstrWrite(analyzer,"CALC:MARK:TRAC 1")
'Positionne marqueur 1 sur courbe 1
CALL InstrWrite(analyzer,"CALC:MARK:MAX")
'Positionne le marqueur 1 sur 100 MHz
CALL InstrWrite(analyzer,"CALC:DELT:FUNC:PNO ON")
'Déf. point de réf. du bruit de phase
'––––––––– Mesure du bruit de phase –––––––––––––––––––––––––––––––––––––––––––––
CALL InstrWrite(analyzer,"CALC:DELT:X 10kHz")
'Positionne le marqueur delta
CALL InstrWrite(analyzer,"CALC:DELT:FUNC:PNO:RES?")
'Interroge et sort le résultat du bruit de phase
result$ = Space$(100)
CALL InstrRead(analyzer, result$, 100, retCount)
Debug.Print "Phase Noise [dBc/Hz]: "; result$
'––––––––– Mesure du bruit ––––––––––––––––––––––––––––––––––––––––––––––––––––––
CALL InstrWrite(analyzer,"CALC:MARK:X 99.96MHz")
'Positionne le marqueur 1
CALL InstrWrite(analyzer,"CALC:MARK:FUNC:NOIS:RES?")
'Interroge et sort le résultat
result$ = Space$(100)
CALL InstrRead(analyzer, result$, 100, retCount)
Print "Noise [dBm/Hz]: "; result$
END SUB
REM ************************************************************************
1300.2519.63
Exemples de programmation détaillés
'Configure le registre d'état
'Réinitialise l'appareil
'Effectue balayage avec synchro
6.17 F-3