Section 7 Sample Programs
7-12
9 Dim Verr$, PVerr$
1Ø '
11 Call ibwrt(Ans%, "MEAS MODANAL")'
Transits to the Modulation Analysis
screen.
12 Call ibwrt(Ans%, "STORAGE NRM")'
Sets the normal mode.
13 Call ibwrt(Ans%, "SWP")'
Starts measurement.
14 '
15 Call ibwrt(Ans%, "VECTERR?")'
Inquires about the measured value of an
rms vector error.
16 Verr$ = ReceiveResp()
17 Call ibwrt(Ans%, "PVECTERR?")'
Inquires about the measured value of a
peak vector error.
18 PVerr$ = ReceiveResp()
19 '
2Ø Form2Ø2.Print "RMS vector error = "; Val(Verr$);
"% (rms)"
21 Form2Ø2.Print "Peak vector error = "; Val(PVerr$);
"%"
22 End Sub
Lines 11 to 13 execute modulation analysis. Set the parameter (measurement mode)
of the Modulation Analysis screen on line 12.
Execute line 13 to start modulation analysis measurement. If a SWP command is set,
the next command acceptance enters the wait state until the measurement ends.
Execute lines 15 to 18 to read a vector error (the RMS and maximum values), which is
the result of the measurement.
To Next Page
Loading...
