Leer "Buffers" De Salida; Leer Mensajes De Error - Rohde & Schwarz R&S FSL3 Serie Guía Rápida

R&S FSL
REM ––––––––– En este caso, el controlador puede usar otros instrumentos ––––
CALL InstrRead(analyzer, OpcOk$, 2, retCount)
REM ––––––––– Tercer método: Usando *OPC ––––––––––––––––––––––––––––––––––––
REM Para usar la función de petición de servicio ("Service Request") con un
REM de National Instruments, "Disable
REM Auto Serial Poll" debe estar configurado a "yes" con IBCONF!
CALL InstrWrite(analyzer, "*SRE 32")
CALL InstrWrite(analyzer, "*ESE 1")
CALL viEnableEvent(vi, VI_EVENT_SERVICE_REQ, VI_QUEUE, 0)
CALL InstrWrite(analyzer, "ABOR;INIT:IMM; *OPC")
SRQWaitTimeout = 5000
'Ahora esperar para "service request"
CALL viWaitOnEvent(vi, VI_EVENT_SERVICE_REQ, SRQWaitTimeout, eventType, eventVi)
CALL viClose(eventVi)
CALL viDisableEvent(vi, VI_EVENT_SERVICE_REQ, VI_QUEUE)
REM Resumir aquí el programa principal.
END SUB
REM ************************************************************************

Leer "Buffers" de Salida

REM ––––––––– Subrutina para los bits STB individuales ––––––––––––––––––
Public SUB Outputqueue()
Dim retCount as Long
result$ = SPACE$(100)
CALL InstrRead(analyzer, result$, 100, retCount)
Debug.Print "Contents of Output Queue : "; result$
END SUB
REM ************************************************************************

Leer Mensajes de Error

REM ––––––––– Subrutina para evaluar mensajes de error ––––––––––––––––––––
Public SUB ErrorQueueHandler()
Dim retCount as Long
ERROR$ = SPACE$(100)
CALL InstrWrite(analyzer, "SYSTEM:ERROR?")
CALL InstrRead(analyzer, ERROR$, 100, retCount)
Debug.Print "Error Description : "; ERROR$
END SUB
REM ************************************************************************
1300.2519.67
driver GPIB
'para bit de operación completada
Introducción Breve al Control Remoto
'Esperar "1" de *OPC?
'Habilitar "Service Request" para ESR
'Ajustar el bit de habilitación de evento
'Habilitar el evento para "service request"
'Iniciar barrido con sincronización a OPC
'Permitir 5s para completar el barrido
'Cerrar el contexto antes de continuar
'Deshabilitar los eventos siguientes
'Lectura de la cola de salida
'Crear espacio para respuesta
6.9 ES-3