Rohde & Schwarz R&S FSV, Быстрый старт

Страница: 174 / 210

Brief Introduction to Remote Control
R&S
®
FSVA/FSV
151 Quick Start Guide 1321.3066.02 ─ 05
SRQWaitTimeout = 5000 'Allow 5s for sweep completion
'Now wait for the service request
CALL viWaitOnEvent(vi, VI_EVENT_SERVICE_REQ, SRQWaitTimeout, _
eventType, eventVi)
CALL viClose(eventVi) 'Close the context before continuing
CALL viDisableEvent(vi, VI_EVENT_SERVICE_REQ, VI_QUEUE)
'Disable subsequent events
REM Resume main program here.
END SUB
REM ************************************************************************
7.1.7.1 Reading Output Buffers
REM --------- Subroutine for the individual STB bits -----------------------
Public SUB Outputqueue() 'Reading the output queue
Dim retCount as Long
result$ = SPACE$(100) 'Create space for response
CALL InstrRead(analyzer, result$, 100, retCount)
Debug.Print "Contents of Output Queue : "; result$
END SUB
REM ************************************************************************
7.1.7.2 Reading Error Messages
REM --------- Subroutine for evaluating the error queue --------------------
Public SUB ErrorQueueHandler()
Dim retCount as Long
ERROR$ = SPACE$(100) Subroutine for evaluating the error queue
CALL InstrWrite(analyzer, "SYSTEM:ERROR?")
CALL InstrRead(analyzer, ERROR$, 100, retCount)
Debug.Print "Error Description : "; ERROR$
END SUB
REM ************************************************************************
7.2 Detailed Programming Examples
In the following sections, typical programming examples for setting measurement
parameters and functions, general settings, printout and data management are
provided.
Detailed Programming Examples