7-25
11 Dim sbuf As String * 4Ø
12 Dim I%
13 '
14 Call ibwrt(Ans%, "MEAS RFPWR")'
Moves to RF power measurement screen.
15 Call ibwrt(Ans%, "WINDOW SLOT")'
Sets waveform display to Slot.
16 Call ibwrt(Ans%, "UNIT DBM")'
Sets measurement unit to dBm.
17 Call ibwrt(Ans%, "BIN Ø")'
Outputs measurement results in ASCII format.
18 Call ibwrt(Ans%, "ADJRNG")'
Optimizes power measurement range.
19 '
2Ø Call ibwrt(Ans%, "STORAGE NRM")'
Sets the mode to normal mode.
21 Call ibwrt(Ans%, "SWP")'
Starts measurement.
22 '
23 For I% = Ø To NUM% - 1
24 Call ibwrt(Ans%, "XMD? " + Str$(I% * 1Ø) + ",1")'
Inquires about result of RF power measure-
ment.
25 sbuf = ReceiveResp()
26 Trace%(I%) = Val(sbuf)'
Converts read data to numerical value.
27 Next I%
28 '
29 For I% = Ø To NUM% - 1
3Ø Form2Ø7.Print "RF Power at "; I% - 1ØØ; "symbol =
"; Trace%(I%) / 1ØØ; "dB"
31 Next I%
32 End Sub
Set the reading format of measurement results to ASCII format in line 17.
Start the measurement in line 21. The SWP command stops accepting the next com-
mand until the measurement terminates.
Read the measurement results in lines 23 to 27. The RF power measurement wave-
form can be read in units of 0.1 symbol as described in paragraph 8.2 (2), but it is read
in units of one symbol here.
7.2 Sample Program (Example of Program Using Visual Basic)
To Next Page
Loading...
