R&S esu, Быстрый старт

Страница: 183 / 223

Quick Start Guide 1302.6163.62 - 04 7.5
R&S ESU Brief Introduction to Remote Control
Basic Steps in Programming using the VISA Interface
7.1.2.2 Initializing the Controller
This procedure first establishes a connection to the VISA layer and then to the instrument
specified by the analyzerString.
REM ------------ Initializing the controller -------------------------------
Public SUB InitController()
Dim status As ViStatus
status = viOpenDefaultRM(defaultRM)
status = viOpen(defaultRM, analyzerString, VI_NULL, VI_NULL, analyzer)
'Opens connection to Default Resource Manager and returns a handle to it
END SUB
REM ************************************************************************
7.1.2.3 Initializing the Instrument
The instrument is set to its default settings and the status register is cleared.
REM ------------ Initializing the instrument -------------------------------
Public SUB InitDevice()
Dim status As ViStatus
Dim retCnt As Long
status = viWrite(analyzer, "*CLS", 4, retCnt)
'Reset status register
status = viWrite(analyzer, "*RST", 4, retCnt) 'Reset instrument
status = viWrite(analyzer, "INST:SEL SAN", 12, retCnt) 'Change into analyzer mode
END SUB
REM************************************************************************
7.1.2.4 Switching the Screen Display On and Off
In the default setting, all remote control commands are carried out with the screen display
switched off in order to attain optimum measurement speed. During the development phase
of remote control programs, however, the screen display is required in order to visually check
both the programming of the settings and the measurement results.
The following examples show functions that switch the screen display on or off during remote
control.
REM ------------ Switching on the screen display --------------------------
Public SUB DisplayOn()
Dim status As ViStatus
Dim retCnt As Long
status = viWrite(analyzer, "SYST:DISP:UPD ON", 16, retCnt)
'Switch on screen display
END SUB
REM************************************************************************
REM ------------ Switching off the screen display -------------------------
Public SUB DisplayOff()
Dim status As ViStatus
Dim retCnt As Long
status = viWrite(analyzer, "SYST:DISP:UPD OFF", 17, retCnt)
'Switch off screen display