Keithley 6517A, Getting Started Manual

Page: 91 / 104

Model 6517A Getting Started Manual Remote Operation 3-25
'Example program to demonstrate the reading buffer
'For QuickBASIC 4.5 and KPC-488.2/CEC interface card
'Edit the following line to where the QuickBASIC
'libraries are on your computer
'$INCLUDE: 'c:\qb45\ieeeqb.bi'
'Initialize the 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(27, "*rst", status%)
'Reset STATus subsystem (not affected by *RST)
CALL SEND(27, "stat:pres;*cls", status%)
CALL SEND(27, "stat:meas:enab 512", status%) 'enable BFL
CALL SEND(27, "*sre 1", status%) 'enable MSB
CALL SEND(27, "trig:coun 20", status%)
'TRACe subsystem is not affected by *RST
CALL SEND(27, "trac:poin 20;elem none", status%)
CALL SEND(27, "trac:feed:cont next", status%)
'Start everything
CALL SEND(27, "init", status%)
'Initialize reading$ while the 6517A is busy taking readings
reading$ = SPACE$(4000)
WaitSRQ:
IF (NOT(srq%) THEN GOTO WaitSRQ
CALL SPOLL(27, poll%, status%)
IF (poll% AND 64)=0 THEN GOTO WaitSRQ
CALL SEND(27, "trac:data?", status%)
CALL ENTER(reading$, length%, 27, status%)
PRINT reading$