Anritsu MT8801C - Page 454

7-39
25 Call ibwrt(Ans%, "AFLT CMESS")'
Sets the evaluation fileter to C-MESSAGE.
26 '
27 Call ibwrt(Ans%, "STRG NRM")'
Sets the normal mode.
28 Call ibwrt(Ans%, "ADJRNG")'
Optimizes measurement range.
29 '
3Ø Call ibwrt(Ans%, "SWP")'
Starts measurement.
31 '
32 Call ibwrt(Ans%, "RFFREQ?")'
Requests for the measured results of RF
frequency.
33 RFFreq$ = ReceiveResp()
34 Call ibwrt(Ans%, "RFPWR? DBM")'
Requests measured results of RF levels.
35 RFPwr$ = ReceiveResp()
36 Call ibwrt(Ans%, "RDEV?")'
Requests measured results of modulation.
37 RFDev$ = ReceiveResp()
38 Call ibwrt(Ans%, "TALVL?")'
Requests measured results of AF levels.
39 AFLvl$ = ReceiveResp()
4Ø Call ibwrt(Ans%, "DSTN? DB")'
Requests measured results of AF
distoriton.
41 AFDstn$ = ReceiveResp()
42 Call ibwrt(Ans%, "AFFREQ?")'
Requests measured results of AF fre-
quency.
43 AFFreq$ = ReceiveResp()
44 '
45 Form213.Print "RF Frequency = "; Val(RFFreq$);
"Hz"
46 Form213.Print "RF Power = "; Val(RFPwr$); "dBm"
47 Form213.Print "Deviation = "; Val(RFDev$); "Hz"
48 Form213.Print "AF Level = "; Val(AFLvl$); "Hz"
49 Form213.Print "AF Distortion = "; Val(AFDstn$); "dB"
5Ø Form213.Print "AF Frequency"; Val(AFFreq$); "Hz"
7.2 Sample Program (Example of Program Using Visual Basic)