Synchronisation Des Commandes - Rohde & Schwarz R&S FSL3 Guide De Démarrage Rapide

R&S FSL Étapes de base de la programmation en commande à distance

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 4, « Commande à distance - informations de base »,
paragraphe « Séquence et synchronisation des commandes ».
REM ––––––––– Commandes de synchronisation des commandes ––––––––––––––––––––––––
PUBLIC SUB SweepSync()
Dim retCount as Long
Dim SRQWaitTimeout As Long
Dim eventType As Long
Dim eventVi As Long
REM La commande INITiate[:IMMediate] lance un balayage unique si la
REM command' INIT:CONT OFF a été émise. On doit s'assurer que
REM la commande suivante ne sera exécutée que si un balayage complet est terminé.
CALL InstrWrite(analyzer, "INIT:CONT OFF")
REM ––––––––– Première méthode : Utilisation de *WAI ––––––––––––––––––––––––––––
CALL InstrWrite(analyzer, "ABOR;INIT:IMM; *WAI")
REM ––––––––– Deuxième méthode : Utilisation de *OPC?
OpcOk$ = SPACE$(2)
CALL InstrWrite(analyzer, "ABOR;INIT:IMM; *OPC?")
REM ––––––––– Dans ce cas, le contrôleur peut commander d'autres appareils ––––––
CALL InstrRead(analyzer, OpcOk$, 2, retCount)
'Attend le "1" de *OPC?
REM ––––––––– Troisième méthode : Utilisation de *OPC –––––––––––––––––––––––––––
REM Pour pouvoir utiliser la fonction de demande de service avec un gestionnaire
GPIB
REM de National Instruments, le réglage "Disable
REM Auto Serial Poll" doit être placé sur "yes" avec IBCONF!
CALL InstrWrite(analyzer, "*SRE 32") 'Permet une demande de service pour ESR
CALL InstrWrite(analyzer, "*ESE 1") 'Positionne le bit de validation d'événement
'pour le bit opération achevée
CALL viEnableEvent(vi, VI_EVENT_SERVICE_REQ, VI_QUEUE, 0)
'Permet d'utiliser l'événement pour la
'demande de service
CALL InstrWrite(analyzer, "ABOR;INIT:IMM; *OPC")
'Lance le balayage avec synchronisation 'sur OPC
SRQWaitTimeout = 5000
'Attend la demande de service
CALL 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
REM Poursuit ici le programme principal.
END SUB
REM ************************************************************************
1300.2519.63
'Fait de la place pour la réponse *OPC?
'Laisse 5s avant la fin du balayage
'Ferme le contexte avant de continuer
6.9
––––––––––––––––––––––––––
F-3