Table des Matières
Publicité
R&S FSU Éléments de base en programmation à l'aide de l'interface VISA
REM -------- Afficher les valeurs à l'écran -----------------------------
Print "Fréquence/niveau marqueur "; MKmark$,
END SUB
REM **********************************************************************
Synchronisation des commandes
Les méthodes de synchronisation utilisées dans l'exemple suivant sont décrites dans le Mode
d'emploi, chapitre 5, section "Séquence et synchronisation des commandes".
A
a
Nota
Les demandes de services sont uniquement supportées par les appareils
GPIB et VXI.
REM -------- Commandes de synchronisation des instructions ---------------
PUBLIC SUB SweepSync()
Dim status As ViStatus
Dim retCnt As Long
Dim etype As ViEventType
Dim eevent As ViEvent
Dim stat As Integer
Rem L'instruction INITiate[:IMMediate] lance un balayage unique si
Rem l'instruction INIT:CONT OFF a été émise. On doit s'assurer que
Rem l'instruction suivante ne sera exécutée que si un balayage complet est terminé.
status = viWrite(analyzer, "INIT:CONT OFF", 13, retCnt)
REM -------- Première méthode : utilisation de *WAI ----------------------
status = viWrite(analyzer, "ABOR;INIT:IMM;*WAI", 18, retCnt)
REM -------- Deuxième méthode : Utilisation de *OPC? ---------------------
OpcOk$ = Space$(2)
status = viWrite(analyzer, "ABOR;INIT:IMM; *OPC?", 20, retCnt)
REM Ici l'ordinateur de commande peut commander d'autres appareils :
status = viRead(analyzer, OpcOk$, 2, retCnt)
REM -------- Troisième méthode : Utilisation de *OPC ---------------------
REM Pour pouvoir utiliser la fonction de demande de service avec un
Rem gestionnaire GPIB de National Instruments, le réglage
Rem "Disable Auto Serial Poll" doit être placé sur "yes" avec IBCONF!
status = viWrite(analyzer, "*SRE 32", 7, retCnt)
1166.1725.63
'Fait de la place pour la réponse *OPC?
'Attend le "1" de *OPC?
'Permet une demande de service pour ESR
7.7
F-1
Publicité
Table des Matières
