R&S ESU Series Operating Manual page 818

R&S ESU
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 ************************************************************************
Operating Manual 1302.6163.12 - 03
Remote Control – Programming Examples
More Complex Programming Examples
7.29