Anritsu MT8801C - Page 459

Section 7 Sample Programs
7-44
(3) BER measurement (1) BER measurement at stipulated level
<Example 3.3> Performing the BER measurement using the test signal of the
specified level.
1) Project file: SMPL303.MAK
1 FORM3Ø3.FRM
2 INITØØ1.BAS Uses the code file of the initialization mod-
ule in paragraph 7.2.2.
3 RESPØ1.BAS Uses the code file of the response read
module in paragraph 7.2.1 (2).
4 SETRX.BAS This is the code file of the parameter set-
ting module for RX measurement in para-
graph 7.2.4 (1).
5 SGOUT.BAS This is the code file of the SG output con-
trol module in paragraph 7.2.1 (2).
6 BERØ1.BAS This is the code file of the BER measure-
ment module.
7 VBIB.BAS
8 NIGLOBAL.BAS
9 ProjWinSize=87,394,243,136
1Ø ProjWinShow=2
2) Form file: FORM303.FRM
The following procedures are added and described.
1 Sub Form3Ø3_click ()
2 Call initial_gpib' Calls GPIB initialization routine.
3 Call Set_RX_parameter'
Calls RX parameter setting routine.
4 Call BER_measure1' Calls BER measurement routine.
5 Call SG_out(Ø)' Calls test signal output routine.
6 End Sub
3) Code module file: BER01.BAS
1 '-------------------------------------
2 ' MT88Ø1C GPIB Sample Program
3 ' Bit Error Rate Measurement (1)
4 '-------------------------------------
5'
6'
7'
8 Sub BER_measure1 ()
9 Const SGLVL! = -5Ø!'
Sets RX measurement signal output level
to -50 dBm.
1Ø Dim sbuf As String * 4Ø
11 Dim Endsts%, I%