Publicité
FSE
Exemples de programme
Positionnement des marqueurs et lecture des valeurs
REM --------------- Exemple pour la fonction de marqueur ------------------
CALL IBWRT(analyzer%, "CALC:MARKER ON;MARKER:MAX")
'Activation du marqueur 1 et recherche de maximum
MKmark$ = SPACE$(30)
'Création d'une variable texte de 30 espaces
CALL IBWRT(analyzer%, "CALC:MARK:X?;Y?")
'Interrogation de la fréquence et du niveau
CALL IBRD(analyzer%, MKmark$)
'Lecture de la valeurX
REM -------- Affichage des valeurs sur l'écran -----------
PRINT "marker-frequency/-level "; MKmark$,
REM ***********************************************************************
Synchronisation des commandes
Les possibilités de synchronisation réalisées dans l'exemple suivant sont décrites dans le chapitre 3,
paragraphe „Ordre des commandes et leur synchronisation".
REM ---------------- Exemples de synchronisation de commandes -------------
REM La commande INITiate[:IMMediate] initialise un balayage Single lorsque
la commande INIT:CONT OFF a été envoyée au préalable. Il faut s'assurer que
la commande suivante ne peut être exécutée que lorsqu'un balayage complet
est terminé.
CALL IBWRT(analyzer%, "INIT:CONT OFF")
REM -------- Première possibilité : Utilisation de *WAI -------------------
CALL IBWRT(analyzerr%, "ABOR;INIT:IMM; *WAI")
REM -------- Deuxième possibilité : Utilisation de *OPC? ------------------
OpcOk$ = SPACE$(2)
'Création de la variable pour la réponse
à *OPC?
CALL IBWRT(analyzer%, "ABOR;INIT:IMM; *OPC?")
REM --- ici, le contrôleur peut desservir d'autres appareils -------
CALL IBRD(analyzer%, OpcOk$)
'Attente de „1" de *OPC?
REM -------- Troisième possibilité : Utilisation de *OPC ------------------
REM Afin de pouvoir utiliser la fonction de demande de service en liaison
avec un driver GPIB de National Instruments, modifier le réglage „Disable
Auto Serial Poll" en le mettant sur „yes" au moyen de IBCONF.
CALL IBWRT(analyzer%, "*SRE 32")
'Demande d'intervention pour ESR rendue possible
CALL IBWRT(analyzer%, "*ESE 1")
'Mise à 1 du bit Event-Enable pour le bit Operation Complete
ON PEN GOSUB OpcReady
'Initialisation de la routine de demande d'intervention
PEN ON
CALL IBWRT(analyzer%, "ABOR;INIT:IMM; *OPC")
REM Suite du programme principal à partir d'ici
STOP
'Fin du programme
OpcReady:
REM Dès que le balayage est terminé, ce sous-programme est exécuté.
REM Programmer ici la réaction appropriée à la demande d'intervention OPC.
ON PEN GOSUB OpcReady
'Réactivation de la demande de service
RETURN
REM ***********************************************************************
1065.6016.13
7.3
F-15
Publicité
Chapitres
