Rohde & Schwarz FSQ series, Quick Start Manual

Page: 193 / 229

Quick Start Guide 1313.9652.62 - 02 7.11
R&S FSQ Brief Introduction to Remote Control
Basic Steps in Programming using the VISA Interface
7.1.6.1 Reading Output Buffers
REM -------- Subroutine for the individual STB bits -----------------------
Public SUB Outputqueue()
'Reading the output queue
Dim status As ViStatus
Dim retCnt As Long
result$ = Space$(100)
'Create space for response
status = viRead(analyzer, result$, 100, retCnt)
Print "Contents of Output Queue : "; result$
END SUB
REM ***********************************************************************
7.1.6.2 Reading Error Messages
REM ------- Subroutine for evaluating the error queue ---------------------
Public SUB ErrorQueueHandler()
Dim status As ViStatus
Dim retCnt As Long
sError$ = Space$(100)
'Subroutine for evaluating the error queue
status = viWrite(analyzer, "SYSTEM:ERROR?", 13, retCnt)
status = viRead(analyzer, sError$, 100, retCnt)
Print "Error Description : "; sError$
END SUB
REM ***********************************************************************