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

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

R&S ESU Brief Introduction to Remote Control
Detailed Programming Examples
7.20 Quick Start Guide 1302.6163.62 - 04
7.2.4.3 Setting the Data Record for Startup Recall
In the following example, the first step is to change the R&S ESU to the default state. In the
next step, the
TEST1 data record stored under D:\USER\DATA is selected for the STARTUP
RECALL function, i.e. the data record is then set after each *RST, PRESET and each time the
instrument is started. For demonstration purposes, the command *RST is carried out again.
REM ************************************************************************
Public Sub StartupRecallSettings()
Dim status As ViStatus
Dim retCnt As Long
REM ------ Resetting the R&S ESU -------------------------------------------
status = viWrite(analyzer, "*RST", 4, retCnt)
status = viWrite(analyzer, "INST:SEL SAN", 12, retCnt)
'Change into analyzer mode.
REM ------ Default setting of the status register --------------------------
Call SetupStatusReg 'Configure status register
REM ------ Selecting the startup recall data record ------------------------
status = viWrite(analyzer, "MMEM:LOAD:AUTO 1,'D:\USER\DATA\TEST1'", 37, retCnt)
REM ------ Activating the startup recall data record -----------------------
status = viWrite(analyzer, "*RST", 4, retCnt)
END SUB
REM ************************************************************************
7.2.5 Configuring and Starting a Printout
The following example shows how to configure the output format and output device for printing
out a measurement screen.
The procedure is as follows:
1. Set the measurement you want for the printout.
2. Check which output devices are available on the instrument.
3. Select an output device.
4. Select the output interface.
5. Configure the output format.
6. Start the printout with synchronization to the end.
It is assumed that the desired setting is a signal at 100 MHz with a power of –20 dBm. It is also
assumed that the sixth printer out of the available printers that are listed is the one you want.
The printout is first output to the selected printer and then to a file.
REM ************************************************************************
Public Sub HCopy()
Dim status As ViStatus
Dim retCnt As Long
Dim Devices(100) As String 'Create buffer for printer name
For i = 0 To 49
Devices$(i) = Space$(50) 'Preallocate buffer for printer name
Next i