Keithley 2002 - Page 320

Example Programs
G-3
• Any one of the following IEEE-488 interfaces:
Keithley Model KPC-488.2
Keithley Model KPC-488.2AT
Capital Equipment Corporation PC<>488
The program assumes that the Model 2002 is set to address
16.
Loading user library
The user library for QuickBASIC 4.5 is provided with the
IEEE-488 interface (ieeeqb.qlb). Assuming QuickBASIC
and the user library are in the same DOS directory, enter the
following command line from the DOS prompt:
QB /L ieeeqb.qlb
The above command line will load QuickBASIC and the
user library.
Program (2002rdg.bas)
k2002data$ = SPACE$(35)
CALL Initialize(21, 0) ' Init as system controller
'--- Setup 2002 measurement mode
CLS
CALL SETOUTPUTEOS(10, 0)
CALL SETINPUTEOS(10)
CALL SEND(16, ":init:cont off", gpib.status%) ' Disable continuous
' initiation
CALL SEND(16, ":sens:func 'volt:dc' ", gpib.status%) ' Select DCV
CALL SEND(16, ":sens:volt:dc:dig 8", gpib.status%) ' Select 7 1/2 digit
' resolution
k2001data$ = SPACE$(255)
CALL SEND(16, ":read?", gpib.status%) ' Perform measurement
CALL Enter(k2001data$, Gpib.len%, 16, gpib.status%)
k2001data$ = LEFT$(k2001data$, Gpib.len%) ' Display reading
PRINT k2001data$
END
Measure and Display Reading;
:READ? Command
Microsoft QuickBASIC 4.5
Keithley KPC-488.2 Interface
©1992, Keithley Instruments, Inc.
Description
Every time this program is run, the Model 2002 goes to the
DCV range and makes a single measurement using the
:READ? command. The reading is then displayed on the
computer CRT.
Required equipment
• Model 2002 Multimeter
• Microsoft QuickBASIC 4.5