'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 2010 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$
NOTE: 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%)
Example Programs C-7