Table des Matières
Publicité
Éléments de base en programmation à l'aide de l'interface VISA R&S FSU
Lecture des réglages de l'appareil
Les réglages effectués plus haut peuvent désormais être lus. On utilise à cet effet les
instructions abrégées.
REM --------- Lire les réglages de l'appareil -----------------------------
PUBLIC SUB ReadSettings()
Dim status As ViStatus
Dim retCnt As Long
CFfrequenz$ = Space$(20)
status = viWrite(analyzer, "FREQ:CENT?", 10, retCnt)
status = viRead(analyzer, CFfrequenz$, 20, retCnt)
CFspan$ = Space$(20)
status = viWrite(analyzer, "FREQ:SPAN?", 10, retCnt)
status = viRead(analyzer, CFspan$, 20, retCnt)
RLpegel$ = Space$(20)
status = viWrite(analyzer, "DISP:TRAC:Y:RLEV?", 17, retCnt)
status = viRead(analyzer, RLpegel$, 20, retCnt)
REM -------- Afficher les valeurs de l'écran -----------------------------
Print "Fréquence centrale: "; CFfrequenz$,
Print "Plage de représentation: "; CFspan$,
Print "Niveau de référence: "; RLpegel$,
END SUB
REM************************************************************************
Positionnement et lecture des marqueurs
REM -------- Exemple de fonction marqueurs -----------------------------------
PUBLIC SUB ReadMarker()
status = viWrite(analyzer, "CALC:MARKER ON;MARKER:MAX", 25, retCnt)
MKmark$ = Space$(30)
status = viWrite(analyzer, "CALC:MARK:X?;Y?", 15, retCnt)
status = viRead(analyzer, MKmark$, 30, retCnt)
F-1
'Fournit variable texte (20 caractères)
'Interroge la fréquence centrale
'Entre la valeur
'Fournit variable texte (20 caractères)
'Interroge la plage de représentation
'Entre la valeur
'Fournit variable texte (20 caractères)
'Interroge le réglage du niveau de réf.
'Entre la valeur
'Activer marqueur 1 et rechercher crête
'Fournit variable texte (30 caractères)
'Interroge fréquence et niveau et entre la valeur
7.6
1166.1725.63
Publicité
Table des Matières
