Anritsu MT8801C - Page 466

7-51
4) Code module file: ARXMEAS.BAS
1 '----------------------------
2 ' MT88Ø1C GPIB Sample Program
3 ' Analog RX Measure
4 '----------------------------
5'
6'
7'
8 Sub ARX_Measure ()
9 Dim AFLvl$, AFDstn$, AFFreq$
1Ø '
11 Call ibwrt(Ans%, "MEAS ARX")'
Moves to the analog RX measure screen.
12 Call ibwrt(Ans%, "AFREQ1 1ØØ4HZ")'
Sets AF oscillator frequency for modula-
tion to 1004 Hz.
13 Call ibwrt(Ans%, "AOUT1 ON")'
Sets AF oscillator for modulation to On.
14 Call ibwrt(Ans%, "ADEV1 8KHZ")'
Sets modulation rate to 8 kHz.
15 Call ibwrt(Ans%, "RRLVL ON")'
Sets RF output to On.
16 Call ibwrt(Ans%, "OLVL -5ØDBM")'
Sets RF output level to -50 dBm.
17 '
18 Call ibwrt(Ans%, "AOPF2 AF")'
Sets AF oscillator 2 to AF output (for mi-
crophone input use)
19 Call ibwrt(Ans%, "ASIG2 TONE")'
Sets AF oscillator for microphone input
use to Tone.
2Ø Call ibwrt(Ans%, "AFREQ2 11ØØHZ")'
Sets AF oscillator frequency for micro-
phone input use to 1004 Hz.
21 Call ibwrt(Ans%, "AOUT2 ON")'
Sets AF oscillator for microphone input
use to On.
22 Call ibwrt(Ans%, "ALVL2 2ØØMV")'
Sets AF oscillator level for microphone in-
put use to 200 mV.
23 '
24 Call ibwrt(Ans%, "AFLT CMESS")'
Sets the evaluation filter to C-MESSAGE.
25 '
7.2 Sample Program (Example of Program Using Visual Basic)