Keithley 2002, Getting Started Manual

Page: 81 / 95

'Example program to demonstrate taking readings on different
'scanner channels
'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 controls in INIT, ARM;LAY1, ARM:LAY2, and TRIG subsystems
'and put trigger model in IDLE state, set function to DCV
CALL SEND(16, "*rst", status%)
'Close channel 1, take DC voltage reading
CALL SEND(16, "rout:clos (@1);:read?", status%)
reading$ = SPACE$(80)
CALL ENTER(reading$, length%, 16, status%)
PRINT reading$
'Close channel 2, take AC voltage reading
CALL SEND(16, "func 'volts:ac'", status%)
CALL SEND(16, "rout:clos (@2);:read?", status%)
reading$ = SPACE$(80)
CALL ENTER(reading$, length%, 16, status%)
PRINT reading$
'Close channel 3, take ohms reading
CALL SEND(16, "func 'res'", status%)
CALL SEND(16, "rout:clos (@3);:read?", status%)
reading$ = SPACE$(80)
CALL ENTER(reading$, length%, 16, status%)
PRINT reading$
IEEE-488 Bus Operation 3-27