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

Éléments de base en programmation à l'aide de l'interface VISA R&S FSP
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-2
'Attend la demande de service
'Ferme le gestionnaire d'événements
'Désactive 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 1164.4556.63