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

'Example program to demonstrate the reading buffer

'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 controls and put trigger model in IDLE state

CALL SEND(16, "*rst", status%)

'Reset STATus subsystem (not affected by *RST)

CALL SEND(16, "stat:pres;*cls", status%)

CALL SEND(16, "stat:meas:enab 512", status%)'enable BFL

CALL SEND(16, "*sre 1", status%)'enable MSB

CALL SEND(16, "trig:coun 20", status%)

'TRACe subsystem is not affected by *RST

CALL SEND(16, "trac:poin 20", status%)

CALL SEND(16, "trac:feed sens1;feed:cont next", status%)

'Start everything

CALL SEND(16, "init", status%)

'Initialize reading$ while the 2000 is busy taking readings

reading$ = SPACE$(4000)

WaitSRQ:

IF (NOT(srq%)) THEN GOTO WaitSRQ

CALL SPOLL(16, poll%, status%)

IF (poll% AND 64)=0 THEN GOTO WaitSRQ

CALL SEND(16, "stat:meas?", status%)

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

CALL SEND(16, "form:elem read,unit" status%)

CALL SEND(16, "trac:data?", status%)

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

PRINT reading$

To repeat buffer storage, send the following command and then repeat the steps 
following the ‘Start everything comment in the above example.

CALL SEND(16, "feed:cont next", status%)

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