Section 7 Sample Programs
7-58
14 Call ibwrt(Ans%, "DUTCTRL NONE")'
Sets DUT Control to None.
15 Call ibwrt(Ans%, "FREQBAND A8ØØMHZ")'
Sets frequency band to analog 800 MHz
band.
16 '
17 Call ibwrt(Ans%, "MEAS SETAF")'
Moves to analog TX parameter setting
screen.
18 Call ibwrt(Ans%, "AIMP 1ØØK")'
Sets AF input impedance to 100 kΩ.
19 Call ibwrt(Ans%, "AOIMP 6ØØ")'
Sets AF output impedance to 600 Ω.
2Ø End Sub
Lines 8 to 20 are the routines for setting the AF measurement parameters.
Set the IS-136 measurement system in line 10. Set the AF measurement parameters
on the Setup Common Parameter and Setup AF Measure Parameter screens.
Lines 13 to 15 show the settings on the Setup Common Parameter screen. The AF
measurement can be made available by setting DUT Control to None and the fre-
quency band to the analog 800 MHz band.
Lines 17 to 19 show the settings on the Setup AF Measure Parameter screen. Set the
AF input-output impedances.
4) Code module file: AFMEAS.BAS
1 '----------------------------
2 ' MT88Ø1C GPIB Sample Program
3 ' AF Measure
4 '----------------------------
5'
6'
7'
8 Sub AF_Measure()
9 Const NUM% = 2ØØ ' Specifies the number of data items for
reading frequency characteristics.
1Ø Dim AFLvlAll$, AFLvl$(8), AFDstn$, AFFreq$
11 Dim AFFreqCharN$, AFFreqChar(NUM%)
12 Dim i%, f%, t%
13 '
14 Call ibwrt(Ans%, "MEAS AF") '
Moves to the AF measurement screen.
15 Call ibwrt(Ans%, "ASIG1 TONE") '
Sets AF oscillator as tone.
To Next Page
Loading...
