Example Programs
G-16
• RTD Temperature Sensor (connected to channel 4 of
the scanner card)
• Microsoft QuickBASIC 4.5
• 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 (2001scrd.bas)
CLS
FOR I = 1 TO 5
CALL SEND(16, ":form:elem read", GPIB.STATUS%) ' Include only the readings
' in the data string
CALL SEND(16, ":sens:func 'RES'", GPIB.STATUS%) ' Select the ohms function
CALL SEND(16, ":rout:clos (@2)", GPIB.STATUS%) ' Close channel 2
CALL SEND(16, ":fetch?", GPIB.STATUS%) ' Fetch reading
CALL Enter(k2002data$, Gpib.len%, 16, GPIB.STATUS%)
PRINT "RES ="; k2002data$ ' Print reading
CALL SEND(16, ":sens:func 'TEMP'", GPIB.STATUS%) ' Select the temperature
' function
CALL SEND(16, ":rout:clos (@4)", GPIB.STATUS%) ' Close channel 4
CALL SEND(16, ":fetch?", GPIB.STATUS%) ' Fetch reading
CALL Enter(k2002data$, Gpib.len%, 16, GPIB.STATUS%)
PRINT "TEMP = "; k2002data$ ' Display reading
NEXT I
END
Scan Two Channels; Model 2001-SCAN
Microsoft QuickBASIC 4.5
Keithley KPC-488.2 Interface
©1992, Keithley Instruments, Inc.
Description
This program scans and measures two channels of the Model
2001-SCAN Scanner Card. Channel 2 is configured for Ω2
measurements and channel 4 is configured for RTD temper-
ature measurements. The scan is performed five times for a
total of 10 measurements. The 10 readings are displayed on
the computer CRT.
Required equipment
• Model 2002 Multimeter
• Model 2001-SCAN Scanner Card (installed in the
Model 2002)
To Next Page
Loading...
Need help?
General
