To Next Page

To Previous Page

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$

Keithley 2182 User Manual

Other manuals for Keithley 2182