To Next Page

To Previous Page

'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

Keithley 2002 Getting Started Manual

Other manuals for Keithley 2002