Anritsu MT8801C - Page 462

7-47
11 Const SGLVL2! = -7Ø!'
12 Const LVLSTEP! = 1!'
Sets level step to 1 dB.
13 Dim sbuf As String * 4Ø
14 Dim Endsts%, I%
15 Dim SGLVL!
16 '
17 Call ibwrt(Ans%, "MEAS BER")
18 Call ibwrt(Ans%, "CHAN 1")
19 SGLVL! = SGLVL1!
2Ø Call ibwrt(Ans%, "OLVL " + Str$(SGLVL!) + "DBM")'
Sets RX test level.
21 Call ibwrt(Ans%, "OIS " + Str$(LVLSTEP!))'
Sets level step.
22 Call ibwrt(Ans%, "LVL ON")
23 Call ibwrt(Ans%, "MOD ON")
24 '
25 Call ibwrt(Ans%, "BERSAMPLE 1ØØØØ")'
Sets number of BER measurement data to
1000 bits.
26 Do
27 Call ibwrt(Ans%, "*CLS")'
Clears ESR status.
28 Call ibwrt(Ans%, "SNGLS")'
Starts BER measurement.
29 '
3Ø Do' Waits until the end of BER measurement.
31 For I% = Ø To 1ØØØØ: Next I%
32 Call ibwrt(Ans%, "ESR2?")
33 '
34 sbuf = ReceiveResp()
35 Endsts% = Val(sbuf)
36 Loop While (Endsts% And 1) <> 1
37 '
38 Call ibwrt(Ans%, "BERRATE?")'
Reads BER measurement value.
39 sbuf = ReceiveResp()
4Ø Form3Ø4.Print "RX level "; SGLVL!; "dBm : Bit Er-
ror Rate = "; sbuf
41 '
42 If BERLIMIT <= Val(sbuf) Then Exit Do
43 Call ibwrt(Ans%, "OLS DN")'
Reduces test signal level.
44 Call ibwrt(Ans%, "OLVL?")'
Reads test signal level.
7.2 Sample Program (Example of Program Using Visual Basic)