®
R&S
FSVR
CALL InstrRead(analyzer, CR&S FSVan$, 20, retCount)
'Read value
RLlevel$ = SPACE$(20)
CALL InstrWrite(analyzer, "DISP:TRAC:Y:RLEV?")
'Request ref level setting
CALL InstrRead(analyzer, RLlevel$, 20, retCount)
'Read value
REM --------- Displaying values in the Immediate window --------------------
Debug.Print "Center frequency: "; CFfrequency$,
Debug.Print "Span:
Debug.Print "Reference level:
END SUB
REM*************************************************************************
7.1.6
Positionnement et lecture des marqueurs
REM -------- Example of marker function -----------------------------------
PUBLIC SUB ReadMarker()
Dim retCount as Long
CALL InstrWrite(analyzer, "CALC:MARKER ON;MARKER:MAX")
'Activate marker 1 and search for peak
MKmark$ = SPACE$(30)
CALL InstrWrite(analyzer, "CALC:MARK:X?;Y?")
'Query frequency and level
CALL InstrRead(analyzer, MKmark$, 30, retCount)
'Read value
REM --------- Displaying values in the Immediate window -------------------
Debug.Print "Marker frequency/level "; MKmark$,
END SUB
REM ************************************************************************
7.1.7
Synchronisation des commandes
Les méthodes de synchronisation utilisées dans l'exemple suivant sont décrites sur
le Mode d'emploi sur CD, au chapitre " Commande à distance - informations de
base ", paragraphe " Séquence et synchronisation des commandes ".
REM --------- Commands for command synchronization ------------------------
PUBLIC SUB SweepSync()
Dim retCount as Long
Dim SRQWaitTimeout As Long
Dim eventType As Long
Dim eventVi As Long
REM The command INITiate[:IMMediate] starts a single sweep if the
Guide de démarrage rapide 1311.0670.63 ─ 03
Brève introduction à la commande à distance
Étapes de base de la programmation en commande à distance
'Provide text variable (20 characters)
'Provide text variable (30 characters)
"; CR&S FSVan$,
"; RLlevel$,
152