Lecture De La File D'attente De Sortie; Lecture De Messages D'erreur - Rohde & Schwarz R&S FSU3 Guide De Démarrage Rapide

Éléments de base en programmation à l'aide de l'interface VISA R&S FSU
status = viWrite(analyzer, "*ESE 1", 6, retCnt)
status = viEnableEvent(analyzer, VI_EVENT_SERVICE_REQ, VI_QUEUE, VI_NULL)
status = viWrite(analyzer, "ABOR;INIT:IMM;*OPC", 18, retCnt)
status = viWaitOnEvent(analyzer, VI_EVENT_SERVICE_REQ, 10000, etype, eevent)
status = viReadSTB(analyzer, stat)
status = viClose(eevent)
status = viDisableEvent(analyzer, VI_EVENT_SERVICE_REQ, VI_QUEUE)
REM Poursuit ici le programme principal.
END SUB
REM ***********************************************************************

Lecture de la file d'attente de sortie

REM -------- Sous-programme pour les différents bits STB -----------------
Public SUB Outputqueue()
Dim status As ViStatus
Dim retCnt As Long
result$ = Space$(100)
status = viRead(analyzer, result$, 100, retCnt)
Print "Contenu de la file d'attente de sortie : "; result$
END SUB
REM ***********************************************************************

Lecture de messages d'erreur

REM ------- Sous-programme d'évaluation de la file d'erreurs -------------
Public SUB ErrorQueueHandler()
Dim status As ViStatus
Dim retCnt As Long
sError$ = Space$(100)
status = viWrite(analyzer, "SYSTEM:ERROR?", 13, retCnt)
status = viRead(analyzer, sError$, 100, retCnt)
Print "Description de l'erreur : "; sError$
END SUB
REM ***********************************************************************
F-1
'Positionne le bit de validation d'événement pour
le bit opération achevée
'Active l'événement SRQ
'Lance le balayage avec synchronisation sur OPC
'Attend la demande de service
'Ferme le gestionnaire d'événements
'Desactive l'événement SRQ
Lit la file d'attente de sortie
'Fait de la place pour la réponse
'Sous-programme d'évaluation de la file d'erreurs
7.8 1166.1725.63