R&S ESU Series, Operating Manual

Page: 818 / 855

Operating Manual 1302.6163.12 - 03 7.29
R&S ESU Remote Control – Programming Examples
More Complex Programming Examples
status = viRead32(analyzer, IData(Index * BlockSize), BlockSize * 4,
retCnt)
status = viRead32(analyzer, QData(Index * BlockSize), BlockSize * 4,
retCnt)
Next Index
' The last block (if any) with < 512 k data)
If LastSize > 0 Then
' Read I/Q data; see above
status = viRead32(analyzer, IData(Blocks * BlockSize), LastSize * 4,
retCnt)
status = viRead32(analyzer, QData(Blocks * BlockSize), LastSize * 4,
retCnt)
End If
End If
status = viRead(analyzer, result$, 1, retCnt)
'Read in end character <NL>
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 ************************************************************************