Agilent Technologies 34401A - Page 196

GPIB Operation Using QuickBASIC
REM $Include "QBSetup"
ISC&=7
DEV&=722
INFO1$="*RST"
LENGTH1%=LEN(INFO1$)
INFO2$="*CLS"
LENGTH2%=LEN(INFO2$)
INFO3$="*ESE 1"
LENGTH3%=LEN(INFO3$)
INFO4$="*SRE 32"
LENGTH4%=LEN(INFO4$)
INFO5$="*OPC?"
LENGTH5%=LEN(INFO5$)
INFO6$="CONF:VOLT:DC 10"
LENGTH6%=LEN(INFO6$)
INFO7$="VOLT:DC:NPLC 10"
LENGTH7%=LEN(INFO7$)
INFO8$="TRIG:COUN 100"
LENGTH8%=LEN(INFO8$)
INFO9$="CALC:FUNC AVER;STAT ON"
LENGTH9%=LEN(INFO9$)
INFO10$="INIT"
LENGTH10%=LEN(INFO10$)
INFO11$="*OPC"
LENGTH11%=LEN(INFO11$)
INFO12$="CALC:AVER:AVER?;MIN?;MAX?"
LENGTH12%=LEN(INFO12$)
INFO13$="*CLS"
LENGTH13%=LEN(INFO13$)
DIM A(1:3)
Actual%=0
Reading=0
Continued on next page >
Chapter 6 Application Programs
Using the Status Registers
190