R&S ESU Series Operating Manual page 820

R&S ESU
7.3.10.2 Creating a File on the Instrument
In the following example, the TEST1.SET file available on the controller is stored in
the instrument under D:\USER\DATA\DUPLICAT.SET.
REM ************************************************************************
Public Sub WriteFile()
'--------- Generate variables -------------------------------
FileBuffer$ = Space$(100000)
'Buffer for file
Dim digits As Long
'Number of digits of length information
Dim fileBytes As Long
'Length of file in bytes
fileSize$ = Space$(100)
'Length of file as a string
result$ = Space$(100)
'Buffer for simple results
'--------- Default setting of status register ---------------
Call SetupStatusReg
'Configure status register
'--------- Prepare the definite length block data -----------
fileBytes = FileLen("test1.set")
'Determine length of file
fileSize$ = Str$(fileBytes)
digits = Len(fileSize$) – 1
'Determine number of digits of
fileSize$ = Right$(fileSize$, digits)
'length information
FileBuffer$ = "#" + Right$(Str$(digits), 1) + fileSize$
'Store length information in file buffer
'--------- Read file from controller ----------------------
Open "TEST1.SET" For Binary As #1
FileBuffer$ = FileBuffer$ + Left$(Input(fileBytes, #1), fileBytes)
Close #1
'--------- Write file ------------------------------------
status = viWrite(analyzer, "SYST:COMM:GPIB:RTER EOI", 23, retCnt)
'Set receive terminator on the instrument
status = viWrite(analyzer, "MMEM:DATA 'D:\USER\DATA\DUPLICAT.SET'," +
FileBuffer$, 36 + Len(FileBuffer$), retCnt)
'Select file
END SUB
REM ************************************************************************
Operating Manual 1302.6163.12 - 03
Remote Control – Programming Examples
More Complex Programming Examples
7.31