Anritsu MT8801C - Page 442

7-27
(9) Power meter (Average power measurement)
<Example 2.9> Measuring RF average power using a power meter.
1) Project file: SMPL209.MAK
1 FORM2Ø9.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 SETTX.BAS This is the code file of the parameter set-
ting module for TX measurement in
paragraph 7.2.3 (1).
5 SGOUT.BAS This is the code file of the SG output con-
trol module in paragraph 7.2.1 (2).
6 PWMTR.BAS This is the code file of the power meter
measurement module.
7 VBIB.BAS
8 NIGLOBAL.BAS
9 ProjWinSize=87,394,243,136
1Ø ProjWinShow=2.
2) Form file: FORM209.FRM
The following procedures are added and described.
1 Sub Form2Ø9_click ()
2 Call initial_gpib' Calls GPIB initialization routine.
3 Call Set_TX_parameter'
Calls TX parameter setting routine.
4 Call SG_out(1)' Calls test signal output routine.
4 Call power_meter' Calls power meter routine.
6 Call SG_out(Ø)' Calls test signal output routine.
5 End Sub
3) Code module file: PWMTR.BAS
1 '----------------------------
2 ' MT88Ø1C GPIB Sample Program
3 ' Power meter
4 '----------------------------
5'
6'
7'
8 Sub power_meter ()
9 Dim sbuf As String * 4Ø
1Ø '
11 Call ibwrt(Ans%, "MEAS PWRMTR")'
Moves to power meter measurement
screen.
7.2 Sample Program (Example of Program Using Visual Basic)