To Next Page

To Previous Page

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$

Keithley 6517A Getting Started Guide

Other manuals for Keithley 6517A