Configuration Et Lancement D'une Impression Écran - Rohde & Schwarz R&S FSP3 Guide De Démarrage Rapide

Analyseur de spectre
Table des Matières

Publicité

Exemples de programmation détaillés
Configuration et lancement d'une impression écran
L'exemple ci-après montre la configuration du format de sortie et du périphérique de sortie
pour l'impression d'un écran de mesure.
La procédure est la suivante :
1. Réglage de la mesure dont on veut une impression écran.
2. Interrogation des périphériques de sortie disponibles sur l'appareil.
3. Choix du périphérique de sortie.
4. Choix de l'interface de sortie.
5. Configuration du format de sortie.
6. Lancement de l'impression 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.
L'impression écran s'effectue d'abord sur l'imprimante choisie, puis dans un fichier.
REM ************************************************************************
Public Sub HCopy()
Dim status As ViStatus
Dim retCnt As Long
Dim Devices(100) As String
For i = 0 To 49
Devices$(i) = Space$(50)
Next i
REM ------ Réglage par défaut du R&S FSP ----------------------------------
Call SetupStatusReg
status = viWrite(analyzer, "*RST", 4, retCnt)
status = viWrite(analyzer, "INIT:CONT OFF", 13, retCnt) 'Mode de balayage unique
status = viWrite(analyzer, "SYST:DISP:UPD ON", 16, retCnt)
REM ------ Réglage de la mesure --------------------------------------------
status = viWrite(analyzer, "FREQ:CENT 100MHz;SPAN 10MHz", 27, retCnt)
status = viWrite(analyzer, "DISP:WIND:TRAC:Y:RLEV -10dBm", 28, retCnt)
status = viWrite(analyzer, "INIT;*WAI", 10, retCnt)
REM ------ Interrogation des périphériques de sortie disponibles -----------
status = viWrite(analyzer, "SYST:COMM:PRIN:ENUM:FIRSt?", 26, retCnt)
status = viRead(analyzer, Devices$(0), 100, retCnt)
Print "Printer 0: " + Devices$(0)
For i = 1 To 99
status = viWrite(analyzer, "SYST:COMM:PRIN:ENUM:NEXT?", 24, retCnt)
status = viRead(analyzer, Devices$(i), 100, retCnt)
F-2
'Crée file d'attente pour
'nom d'imprimante
'Pré-assigne file d'attente pour nom d'imprimante
'Lit et affiche le premier périphérique de sortie
'Config. le registre d'état
'Remet l'appareil à l'état initial
'Affichage écran activé
'Lit le prochain nom d'imprimante
7.20
R&S FSP
'Règle la fréquence
'Niveau de référence
'Effectue la mesure
1164.4556.63

Publicité

Table des Matières
loading

Table des Matières