Table des Matières
Publicité
Étapes de base de la programmation en commande à distance R&S FSL
Lecture des réglages de l'appareil
Les réglages effectués plus haut peuvent être lus ici. On utilise à cet effet les instructions
abrégées.
REM ––––––––– Lecture des réglages de l'appareil ––––––––––––––––––––––––––––––––
PUBLIC SUB ReadSettings()
Dim retCount as Long
CFfrequency$ = SPACE$(20)
CALL InstrWrite(analyzer, "FREQ:CENT?")
'Interroge la fréquence centrale
CALL InstrRead(analyzer, CFfrequency$, 20, retCount)
'Lit la valeur
CFspan$ = SPACE$(20)
CALL InstrWrite(analyzer, "FREQ:SPAN?")
'Interroge la plage de représentation
CALL InstrRead(analyzer, CFspan$, 20, retCount)
'Lit la valeur
RLlevel$ = SPACE$(20)
CALL InstrWrite(analyzer, "DISP:TRAC:Y:RLEV?")
'Interroge le réglage du niveau de réf.
CALL InstrRead(analyzer, RLlevel$, 20, retCount)
'Lit la valeur
REM ––––––––– Affichage des valeurs dans la fenêtre Immediate –––––––––––––––––––
Debug.Print "Fréquence centrale :
Debug.Print "Plage de représentation :
Debug.Print "Niveau de référence :
End Sub
REM*************************************************************************
Positionnement et lecture des marqueurs
REM –––––––– Exemple de fonction marqueur –––––––––––––––––––––––––––––––––––––––
PUBLIC SUB ReadMarker()
Dim retCount as Long
CALL InstrWrite(analyzer, "CALC:MARKER ON;MARKER:MAX")
'Activer marqueur 1 et rechercher crête
MKmark$ = SPACE$(30)
CALL InstrWrite(analyzer, "CALC:MARK:X?;Y?")
'Interroge fréquence et niveau
CALL InstrRead(analyzer, MKmark$, 30, retCount)
'Lit la valeur
REM ––––––––– Affichage des valeurs dans la fenêtre Immediate –––––––––––––––––––
Debug.Print « Fréquence/niveau marqueur » ; MKmark$,
END SUB
REM ************************************************************************
1300.2519.63
'Fournit variable texte (20 caractères)
'Fournit variable texte (20 caractères)
'Fournit variable texte (20 caractères)
"; CFspan$,
"; RLlevel$,
'Fournit variable texte (30 caractères)
6.8
"; CFfrequency$,
F-3
Publicité
Table des Matières
