Keithley 2182, User Manual, Page: 287 / 339

Example Programs E-3
'Example program to demonstrate changing voltage function and range,
'taking readings on DCV1 and DCV2
'For QuickBASIC 4.5 and CEC PC488 interface card
'Edit the following line to where the QuickBASIC
'libraries are on your computer
'$INCLUDE: 'c:\qb45\ieeeqb.bi'
'Initialize the CEC interface as address 21
CALL initialize(21, 0)
'Reset the SENSe1 subsystem settings, along with the trigger
'model, each READ? will cause one trigger
CALL SEND("*rst", status%)
'Set DCV1 for 100V range and DCV2 for 10Vrange
CALL SEND(7, "sens:volt:chan1:rang 100"status%)
CALL SEND(7, "sens:volt:chan2:rang 10", status%)
'Switch to DCV2 (Channel 2 volts) and take reading
CALL SEND(7, "sens:func 'volt'", status%)
CALL SEND(7, "sens:chan 2; :read?", status%)
reading%$ = SPACE$(80)
CALL ENTER(reading$, length%, 7, status%)
PRINT reading$
'Switch to DCV1 (Channel 1 volts) and take reading
CALL SEND(7, "sens:func 'volt'", status%)
CALL SEND(7, "sens:chan 1; :read?", status%)
reading%$ = SPACE$(80)
CALL ENTER(reading$, length%, 7, status%
PRINT reading$