Anritsu MT8801C - Page 437

Section 7 Sample Programs
7-22
7 VBIB.BAS
8 NIGLOBAL.BAS
9 ProjWinSize=87,394,243,136
1Ø ProjWinShow=2
2) Form file: FORM206.FRM
The following procedures are added and described.
1 Sub Form_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.
5 Call RF_power2' Calls RF power measurement routine.
6 Call SG_out(Ø)' Calls test signal output routine.
7 End Sub
3) Code module file: PFPWR02.BAS
1 '----------------------------
2 ' MT88Ø1C GPIB Sample Program
3 ' RF power measurement(2)
4 '----------------------------
5'
6'
7'
8 Sub RF_power2 ()
9 Const Pmak! = 1Ø# '
Specified position of marker point (10.0 th
symbol).
1Ø Dim sbuf As String * 4Ø
11 '
12 Call ibwrt(Ans%, "MEAS RFPWR")'
Moves to RF power measurement screen.
13 Call ibwrt(Ans%, "WINDOW SLOT")'
Sets waveform display to Slot.
14 Call ibwrt(Ans%, "MKR NRM")'
Displays the normal marker.
15 Call ibwrt(Ans%, "UNIT DBM")'
Sets measurement unit to dBm.
16 Call ibwrt(Ans%, "ADJRNG")'
Optimizes power measurement range.
17 '
18 Call ibwrt(Ans%, "STORAGE NRM")'
Sets the mode to normal mode.
19 Call ibwrt(Ans%, "SWP")'
Starts measurement.