Agilent Technologies 34401A - Page 193

REM $Include "QBSetup"
DEV&=722
INFO1$="*RST"
LENGTH1%=LEN(INFO1$)
INFO2$="*CLS"
LENGTH2%=LEN(INFO2$)
INFO3$="CALC:DBM:REF 50"
LENGTH3%=LEN(INFO3$)
INFO4$="CONF:VOLT:AC 1,0.001"
LENGTH4%=LEN(INFO4$)
INFO5$="DET:BAND 200"
LENGTH5%=LEN(INFO5$)
INFO6$="TRIG:COUN 5"
LENGTH6%=LEN(INFO6$)
INFO7$="TRIG:SOUR IMM"
LENGTH7%=LEN(INFO7$)
INFO8$="CALC:FUNC DBM"
LENGTH8%=LEN(INFO8$)
INFO9$="CALC:STAT ON"
LENGTH9%=LEN(INFO9$)
INFO10$="READ?"
LENGTH10%=LEN(INFO10$)
DIM A(1:5)
Actual%=0
Call IOCLEAR(DEV&)
Call IOOUTPUTS(DEV&, INFO1$, LENGTH1%)
Call IOOUTPUTS(DEV&, INFO2$, LENGTH2%)
Call IOOUTPUTS(DEV&, INFO3$, LENGTH3%)
Call IOOUTPUTS(DEV&, INFO4$, LENGTH4%)
Call IOOUTPUTS(DEV&, INFO5$, LENGTH5%)
Call IOOUTPUTS(DEV&, INFO6$, LENGTH6%)
Call IOOUTPUTS(DEV&, INFO7$, LENGTH7%)
Call IOOUTPUTS(DEV&, INFO8$, LENGTH8%)
Call IOOUTPUTS(DEV&, INFO9$, LENGTH9%)
Call IOOUTPUTS(DEV&, INFO10$, LENGTH10%)
Call IOENTER(DEV&, Seg A(1),5,Actual%)
For I=1 to 5
Print A(I);
Next I
END
GPIB Operation Using QuickBASIC
6
Chapter 6 Application Programs
Using CONFigure with a Math Operation
187