R&S FSQ Signal Analyzer - Rohde & Schwarz

R&S FSQ Remote Control – Programming Examples
More Complex Programming Examples
'--------- 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
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)
7.26 Operating Manual 1313.9681.12 - 01