To Next Page

To Previous Page

'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 in INIT, ARM;LAY1, ARM:LAY2, and TRIG subsystems

'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;egr full", status%)

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

'Start everything

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

'Initialize reading$ while the 2002 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, "form:elem read,time", status%)

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

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

PRINT reading$

IEEE-488 Bus Operation 3-25

Keithley 2002 Getting Started Manual

Other manuals for Keithley 2002