Rohde & Schwarz R&S FSP Series, Operating Manual

Page: 760 / 796

R&S FSP Remote Control – Programming Examples
More Complex Programming Examples
7.26 Operating Manual 1164.4556.12 - 06
'(= 25*2*1024 bytes)
result$ = Space$(100)
'Buffer for simple results
'--------- R&S FSP default setting ---------------------------------------
CALL SetupInstrument
'Default setting
status = viWrite(analyzer, "TRAC:IQ:STAT ON", 15, retCnt)
'Activate I/Q data acquisition mode; must be done before
'TRAC:IQ:SET !
'Select number of test points (= 128 * 1024 – 512) at RBW
'10 MHz, sample rate 32 MHz, trigger free run, pos. trigger
'edge and 0 s trigger delay.
status = viWrite(analyzer, "TRAC:IQ:SET NORM,10MHz,32MHz,IMM,POS,0,130560",
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)
'M read out I/Q data
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 and store length
IQBytes = Val(Left$(result$, digits))
IQBytes = IQBytes / 2
'Divide no. per buffer in half
status = viRead32(analyzer, IData(0), IQBytes, retCnt)
'Read I data in buffer
status = viRead32(analyzer, QData(0), IQBytes, retCnt)
'Read Q data in buffer
status = viRead(analyzer, result$, 1, retCnt)
'Read in end character <NL>
'--------- Output of binary data as frequency/level pair ------------------
IQValues = IQBytes/4
'Single Precision = 4 Bytes
For i = 0 To IQValues – 1
Print "I-Value["; i; "] = "; IData(i)
Print "Q-Value["; i; "] = "; QData(i)
Next i
'--------- Read-out in ASCII-Format ---------------------------------------
status = viWrite(analyzer, "FORMAT ASCII", 12, retCnt)
'Set ASCII format
status = viWrite(analyzer, "TRAC:IQ:DATA?", 13, retCnt)
'Re-measure and read out I/Q data