Section 7 Sample Programs
7-30
13 Call ibwrt(Ans%, "MEAS PWRMTR")'
Moves to power meter measurement
screen.
14 Call ibwrt(Ans%, "*CLS")'
Clears GPIB status register.
15 '
16 Call ibwrt(Ans%, "ZEROSET")'
Starts adjustment of zero point.
17 Do
18 For I% = Ø To 1ØØØØ: Next I%
19 Call ibwrt(Ans%, "ESR2?")'
2Ø sbuf = ReceiveResp()
21 Stat% = Val(sbuf)
22 Loop While (Stat% And 2) <> 2
23 '
24 Form21Ø.Print "End of zero set for RF Power."
25 End Sub
Turn off the RF input to this device before executing this program. Set the SG output
to off in line 12 to set the RF input-output terminal to a no signal state.
Start the zero point calibration of the power meter in line 16.
Monitor completion of the zero point calibration (calibration termination bit of the
END event status register) in lines 17 to 22.
To Next Page
Loading...
