R&S ESU Series, Operating Manual

Page: 817 / 855

R&S ESU Remote Control – Programming Examples
More Complex Programming Examples
7.28 Operating Manual 1302.6163.12 - 03
'--------- R&S ESU default setting ---------------------------------------
Call SetupInstrument
'Default setting
'Activate I/Q data acquisition mode; must be done before
TRAC:IQ:SET!
status = viWrite(analyzer, "TRAC:IQ:STAT ON", 15, retCnt)
' Number of test points (800 000)
' (max. test points allowed (= 16 * 1024 * 1024 - 512))
' at RBW 50 MHz, sample rate 80 MHz, trigger free run, pos.
trigger edge and 0 s trigger delay.
status = viWrite(analyzer, "TRAC:IQ:SET NORM,50MHz,80MHz,IMM,POS,0,800000",
45, retCnt)
'--------- Read-out in binary format --------------------------------------
status = viWrite(analyzer, "FORMAT REAL,32", 14, retCnt)
'Set binary format
status = viWrite(analyzer, "TRAC:IQ:DATA?", 13, retCnt)
'Meas. + read out I/Q data
' The data must be retrieved from device
' They have the following format:
' Example:
' "#42000"
' |||||______ Length of data in bytes
' |__________ No. of digits as length
status = viRead(analyzer, result$, 2, retCnt)
'Read and store length for
digits = Val(Mid$(result$, 2, 1))
'number of digits
result$ = Space$(100)
'Re-initialize buffer
status = viRead(analyzer, result$, digits, retCnt) 'Read length
' Total number of bytes that are read
IQBytes = Val(Left$(result$, digits)) 'and store
' Total number of samples (I and Q) that are read
IQSamples = IQBytes / 8
'4 bytes each for I and Q samples
If IQBytes > 0 Then
' Dynamically create buffer for I/Q data
ReDim IData(0 To IQSamples - 1)
ReDim QData(0 To IQSamples - 1)
' "Blocks" with 512 k I/Q data each are read
Blocks = (IQSamples - 1) \ BlockSize
' 0 or 1 block, each with "LastSize" I/Q data, is read
LastSize = IQSamples - (Blocks * BlockSize)
' Entire blocks with 512 k samples each
For Index = 0 To Blocks - 1
' Read I and Q data in buffer; index for I data counts samples
' Size of data for ibrd32 in bytes