Section 7 Sample Programs
7-32
11 '
12 Call ibwrt(Ans%, "MEAS OBW,HIGH")'
Moves to occupied frequency bandwidth
measurement (High Speed) screen.
13 Call ibwrt(Ans%, "STORAGE AVG")'
Sets the mode to average mode.
14 Call ibwrt(Ans%, "AVR 3")'
Sets average number to 3.
15 Call ibwrt(Ans%, "ADJRNG")'
Optimizes measurement range.
16 '
17 Call ibwrt(Ans%, "*CLS")'
Clears GPIB status register.
18 Call ibwrt(Ans%, "SNGLS")'
Starts measurement.
19 '
2Ø Do
21 For I% = Ø To 1ØØØØ: Next I%
22 Call ibwrt(Ans%, "ESR2?")'
Confirms state of ending measurement.
23 sbuf = ReceiveResp()
24 Endsts% = Val(sbuf)
25 Loop While (Endsts% And 16) <> 16
26 '
27 Call ibwrt(Ans%, "OCCBW?")'
Inquires about results of occupied fre-
quency bandwidth measurement.
28 sbuf = ReceiveResp()
29 Form211.Print "Occupied Bandwidth = "; Val(sbuf) /
1ØØØ; "kHz"
3Ø End Sub
Set the occupied frequency bandwidth measurement (high-speed measurement) mode
in line 12.
Specify averaging of the measurement value in lines 13 and 14.
Start the measurement in line 18. In this example, the SNGLS command is used to
start the measurement. Unlike the SWP command, the SNGLS command accepts the
next command regardless of measurement termination.
For this processing, monitor measurement termination (the sweep measurement ter-
mination bit of the END event status register) in lines 20 to 25.
Specify the number of repetitions of the For-to-Next loop in line 21 so that the wait
time for the GPIB control of the controller becomes about 50 ms.
Read the measurement results in lines 27 and 28 after checking that the measurement
terminates.
To Next Page
Loading...
