Anritsu MT8801C - Page 474

7-59
16 Call ibwrt(Ans%, "AFREQ1 1ØØØHZ") '
Sets the AF oscillator frequency to 1000 Hz.
17 Call ibwrt(Ans%, "AOUT1 ON") '
Sets AF oscillator for modulation to On.
18 Call ibwrt(Ans%, "ALVL1 1V") '
Sets AF oscillator level to 1 V.
19 Call ibwrt(Ans%, "AOUT2 OFF") '
Sets AF oscillator 2 to Off.
2Ø '
21 Call ibwrt(Ans%, "AFLT CMESS") '
Sets evaluation filter as C-MESSAGE.
22 '
23 Call ibwrt(Ans%, "STRG NRM") '
Sets the normal mode.
24 Call ibwrt(Ans%, "ADJRNG") '
Optimizes measurement range.
25 '
26 Call ibwrt(Ans%, "SWP") '
Starts measurement.
27 '
28 Call ibwrt(Ans%, "AFLVLALL? V") '
Inquiries about all measured results of AF
levels.
29 AFLvlAll$ = ReceiveResp()
3Ø Call ibwrt(Ans%, "DSTN? DB") '
Inquiries about measurement results of AF
distortion rate.
31 AFDstn$ = ReceiveResp()
32 Call ibwrt(Ans%, "AFFREQ?") '
Inquiries about results of AF frequency
measurement.
33 AFFreq$ = ReceiveResp()
34 '
35 f% = 1
36 For i% = Ø To 6
37 t% = InStr(f%, AFLvlAll$, ",")
38 AFLvl$(i%) = Mid$(AFLvlAll$, f%, t% - f%)
39 f% = t% + 1
4Ø Next i%
41 AFLvl$(7) = Mid$(AFLvlAll$, f%)
42
43 Form4Ø3.Print "AF Level (ITU-T P.53) = ";
Val(AFLvl$(4)); "V"
7.2 Sample Program (Example of Program Using Visual Basic)