R&S FSQ Signal Analyzer - Rohde & Schwarz

R&S FSQ Remote Control – Programming Examples
More Complex Programming Examples
status = viRead32(analyzer, QData(Blocks * BlockSize), LastSize * 4,
retCnt)
End If
End If
status = viRead(analyzer, result$, 1, retCnt)
'Read in end character
status = viWrite(analyzer, "TRAC:IQ:STAT OFF", 16, retCnt)
'I/Q data acquisition mode
status = viWrite(analyzer, "DISP:WIND:TRAC:STAT ON", 22, retCnt)
'Re-start screen
status = viWrite(analyzer, "INIT:CONT ON", 13, retCnt)
'continuous sweep on
'--------- Output of binary data as frequency/level pair -----------------
Open ".\traceiq.dat" For Output As #1
'Store in current directory
For i = 0 To IQSamples - 1
Print #1, i; " ; "; Str(IData(i)); " ; "; Str(QData(i))
Next i
Close #1
END SUB
REM ************************************************************************
7.3.10 Reading and Writing Files
7.3.10.1 Reading a File from the Instrument
In the following example, file TEST1.SET stored under D:\USER\DATA is read from
the instrument and stored in the controller.
REM ************************************************************************
Public Sub ReadFile()
'--------- Generate variables ------------------------------
Dim digits As Byte
'Number of digits of length information
Dim fileBytes As Long
'Length of file with trace data in bytes
result$ = Space$(100) 'Buffer for simple results
'--------- Default setting of status register ---------------
Call SetupStatusReg
'Configure status register
'--------- Read out file -----------------------------------status
= viWrite(analyzer, "MMEM:DATA? 'D:\USER\DATA\TEST1.SET'", 35, retCnt)
'Select file
status = viRead(analyzer, result$, 2, retCnt)
'Read and store number of
digits = Val(Mid$(result$, 2, 1))
'digits of length information
status = viRead(analyzer, result$, digits, retCnt)
'Read and store length
Operating Manual 1313.9681.12 - 01 7.27