R&S FSQ Signal Analyzer - Rohde & Schwarz

R&S FSQ Remote Control – Programming Examples
More Complex Programming Examples
fileBytes = Val(Left$(result$, digits))
'information
FileBuffer$ = Space$(fileBytes)
'Buffer for file
status = viRead(analyzer, FileBuffer, fileBytes, retCnt)
'Read file into buffer
status = viRead(analyzer, result$, 1, retCnt)
'Read terminator
'--------- Store file to controller -------------------------
Open "TEST1.SET" For Output As #1
Print #1, FileBuffer;
' ; to avoid linefeed at end of file
Close #1
END SUB
REM ************************************************************************
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
7.28 Operating Manual 1313.9681.12 - 01