Keithley 2000/E Digital-Multimeter, DMM, 2000/E Datenbogen

'Example program to demonstrate changing function and range,

'taking readings on various functions

'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(16, "*rst", status%)

'Set range for each function to measure

CALL SEND(16, "volt:dc:rang .1", status%)

CALL SEND(16, "volt:ac:rang 20", status%)

CALL SEND(16, "res:rang 80", status%)

'Switch to DC volts and take reading

CALL SEND(16, "func 'volt:dc';:read?", status%)

reading$ = SPACE$(80)

CALL ENTER(reading$, length%, 16, status%)

PRINT reading$

'Switch to AC volts and take reading

CALL SEND(16, "func 'volt:ac';:read?", status%)

reading$ = SPACE$(80)

CALL ENTER(reading$, length%, 16, status%)

PRINT reading$

'Switch to 2-wire ohms and take reading

CALL SEND(16, "func 'res';:read?", status%)

reading$ = SPACE$(80)

CALL ENTER(reading$, length%, 16, status%)

PRINT reading$

2000-900 (J - Aug 2010) BOOK.fm  Page 3  Wednesday, October 12, 2011  12:29 PM