Keithley 2002, Getting Started Manual

Page: 73 / 95

'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 10e3", 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$
IEEE-488 Bus Operation 3-19