Section 7 Sample Programs
7-52
26 Call ibwrt(Ans%, "STRG NRM")'
Sets the mode to normal mode.
27 Call ibwrt(Ans%, "ADJRNG")'
Optimizes measurement range.
28 '
29 Call ibwrt(Ans%, "SWP")'
Starts measurement.
3Ø '
31 Call ibwrt(Ans%, "AFLVL? V")'
Inquires about results of AF level measure-
ment.
32 AFLvl$ = ReceiveResp()
33 Call ibwrt(Ans%, "DSTN? DB")'
Inquires about result of AF distortion mea-
surement.
34 AFDstn$ = ReceiveResp()
35 Call ibwrt(Ans%, "AFFREQ?")'
Inquires about result of AF frequency mea-
surement.
36 AFFreq$ = ReceiveResp()
37 '
38 Form3Ø5.Print "AF Level = "; Val(AFLvl$); "V"
39
Form3Ø5.Print "AF Distortion = "; Val(AFDstn$); "dB"
4Ø Form3Ø5.Print "AF Frequency"; Val(AFFreq$); "Hz"
41
42 Call ibwrt(Ans%, "AOUT2 OFF")'
Sets AF oscillator for microphone input
use to On.
43 Call ibwrt(Ans%, "RRLVL OFF")'
Set the RF output to On.
44 End Sub
Set the analog RX measurement screen in line 11.
Set the RF modulation signal in lines 12 to 16.
Set the AF oscillators for microphone input use in lines 18 to 22.
Set the measurement conditions in line 24.
Optimize the range in line 27.
Start the measurement in line 29. The SWP command stops accepting the next com-
mand until the measurement terminates.
Read the measurement results in lines 31 to 36.
Set the AF output and RF output to off in lines 42 and 43.
To Next Page
Loading...
