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

Exemples de programmation détaillés
5. Configurez le format de sortie
6. Lancez la copie avec synchronisation sur la fin.
Le réglage désiré suppose un signal d'un niveau de –20 dBm à 100 MHz. En outre, on
suppose que la 6ème imprimante est celle que l'on désire parmi celles disponibles. La
copie d'écran s'effectue d'abord sur l'imprimante choisie, puis dans un fichier.
REM ***********************************************************************
Public Sub HCopy()
Dim retCount as Long
Dim SRQWaitTimeout As Long
Dim eventType As Long
Dim eventVi As Long
Dim statusSRQ As Long
DIM Devices(100) as string
FOR i = 0 TO 49
Devices$(i) = Space$(50)
d'imprimante
NEXT i
'––––––––– Réglage par défaut du R&S FSL ––––––––––––––––––––––––––––––––––––––––
CALL SetupStatusReg
CALL InstrWrite(analyzer,"*RST")
CALL InstrWrite(analyzer,"INIT:CONT OFF")
'Mode balayage unique
CALL InstrWrite(analyzer,"SYST:DISP:UPD ON")
'Affichage écran en marche
'––––––––– Réglages de la mesure ––––––––––––––––––––––––––––––––––––––––––––––––
CALL InstrWrite(analyzer,"FREQ:CENT 100MHz;SPAN 10MHz")
'Réglage de la fréquence
CALL InstrWrite(analyzer,"DISP:TRAC:Y:RLEV –10dBm")
'Niveau de référence
CALL InstrWrite(analyzer,"INIT;*WAI")
'––––––––– Interrogation des périphériques de sortie disponibles ––––––––––––––––
CALL InstrWrite(analyzer,"SYST:COMM:PRIN:ENUM:FIRSt?")
'Lit et affiche le premier périphérique de sortie
CALL InstrRead(analyzer,Devices$(0), 50, retCount)
Debug.Print "Printer 0: "+Devices$(0)
For i = 1 to 99
CALL InstrWrite(analyzer,"SYST:COMM:PRIN:ENUM:NEXT?")
CALL InstrRead(analyzer,Devices$(i)
IF Left$(Devices$(i),2) = "''" THEN GOTO SelectDevice
Debug.Print "Printer"+Str$(i)+": " Devices$(i)
NEXT i
SelectDevice:
'––– Choix périphérique de sortie, langage d'imprimante et interface de sortie ––
CALL InstrWrite(analyzer,"SYST:COMM:PRIN:SEL "+ Devices(6))
''Choisit imprimante n°6
CALL InstrWrite(analyzer,"HCOP:DEST 'SYST:COMM:PRIN'")
'Configuration : "Copie d'écran sur
'Interface imprimante"
CALL InstrWrite(analyzer,"HCOP:DEV:LANG GDI")
'Les imprimantes exigent le langage 'GDI'
1300.2519.63
'Crée file d'attente pour nom d'imprimante
'Pré-assigne file d'attente pour nom
'Configure le registre d'état
'Réinitialise l'appareil
'Effectue la mesure
'Lit le prochain nom d'imprimante
'Abandon en fin de liste
'Affiche le nom d'imprimante
6.22
R&S FSL
F-3