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&, INFO 1$, LENGTH1%)
Call IOOUTPUTS(DEV&, INFO 2$, LENGTH2%)
Call IOOUTPUTS(DEV&, INFO 3$, LENGTH3%)
Call IOOUTPUTS(DEV&, INFO 4$, LENGTH4%)
Call IOOUTPUTS(DEV&, INFO 5$, LENGTH5%)
Call IOOUTPUTS(DEV&, INFO 6$, LENGTH6%)
Call IOOUTPUTS(DEV&, INFO 7$, LENGTH7%)
Call IOOUTPUTS(DEV&, INFO 8$, LENGTH8%)
Call IOOUTPUTS(DEV&, INFO 9$, LENGTH9%)
Call IOOUTPUTS(DEV&, INFO 10$, 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