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

R&S FSL
'––––– Choix de l'orientation (portrait/paysage) et couleur/noir et blanc –––––––
CALL InstrWrite(analyzer,"HCOP:PAGE:ORI PORT")
'Orientation portrait
CALL InstrWrite(analyzer,"HCOP:DEV:COL OFF")
'Copie noir et blanc
'––––– Configuration et lancement de la copie d'écran –––––––––––––––––––––––––––
CALL InstrWrite(analyzer,"HCOP:ITEM:ALL")
'Contenu total de l'écran
'CALL InstrWrite(analyzer,"HCOP:ITEM:TRAC:STAT ON")
'Alternative : uniquement les courbes
CALL InstrWrite(analyzer,"*CLS")
CALL viEnableEvent(vi, VI_EVENT_SERVICE_REQ, VI_QUEUE, 0)
'Permet l'événement pour demande de service
CALL InstrWrite(analyzer,"HCOP;*OPC")
'Lance la copie d'écran
SRQWaitTimeout = 5000
'Attend la demande de service
statusSRQ = viWaitOnEvent(vi, VI_EVENT_SERVICE_REQ, SRQWaitTimeout, eventType,
eventVi)
CALL viClose(eventVi)
CALL viDisableEvent(vi, VI_EVENT_SERVICE_REQ, VI_QUEUE)
'Désactive les événements suivants
IF NOT(statusSRQ = 0) THEN CALL Srq 'Si SRQ non détectée =>
'Sous-programme pour évaluation
'–––– Copie d'écran au format WMF (format BMP) dans un fichier ––––––––––––––––––
CALL InstrWrite(analyzer,"HCOP:DEST 'MMEM'")
'Configuration : "Copie d'écran dans fichier"
CALL InstrWrite(analyzer,"HCOP:DEV:LANG WMF")
'Format fichier WMF
'CALL InstrWrite(analyzer,"HCOP:DEV:LANG BMP")
'Format fichier BMP
CALL InstrWrite(analyzer,"MMEM:NAME 'C:\R_S\Instr\user\PRINT1.WMF'")
'Définit le nom du fichier
CALL InstrWrite(analyzer,"*CLS")'Réinitialisation des registres d'état
CALL viEnableEvent(vi, VI_EVENT_SERVICE_REQ, VI_QUEUE, 0)
'Permet d'utiliser l'événement pour la demande de service
CALL InstrWrite(analyzer,"HCOP:IMMediate;*OPC")
'Lance la copie d'écran
SRQWaitTimeout = 5000
'Attend la demande de service
statusSRQ = viWaitOnEvent(vi, VI_EVENT_SERVICE_REQ, SRQWaitTimeout, eventType,
eventVi)
CALL viClose(eventVi)
CALL viDisableEvent(vi, VI_EVENT_SERVICE_REQ, VI_QUEUE)
'Désactive les événements suivants
IF NOT(statusSRQ = 0) THEN CALL Srq 'Si SRQ non détectée =>
'Sous-programme pour évaluation
END SUB
REM ***********************************************************************
1300.2519.63
Exemples de programmation détaillés
'Réinitialisation des registres d'état
'Attend 5s avant la fin
'Ferme le contexte avant de poursuivre
'Attend 5s avant la fin
'Ferme le contexte avant de poursuivre
6.23 F-3