Example Programs E-5
Once an event register has caused a service request, it cannot cause another service request
until you clear it by reading it (in this case using STATus:MEASurement[:EVENt]?) or by send-
ing the *CLS command.
Storing readings in buffer
The reading buffer in the Model 6514 is flexible and capable. It has three controls, which are
found in the TRACe susbsystem. There are commands to control:
• The size of the buffer (in readings).
TRACe:POINts <NRf> Store up to 2000 readings.
• Where the data is coming from.
TRACe:FEED SENSe1 Store unprocessed readings.
TRACe:FEED CALCulate1 Store CALC1 (KMATh) results.
TRACe:FEED CALCulate2 Store CALC2 (limits) readings.
• Select buffer control mode.
TRACe:FEED:CONTrol NEVer Immediately stop storing readings.
TRACe:FEED:CONTrol NEXT Arm buffer, stop when buffer is full.
The following example program sets up the Model 6514 to take 20 readings as fast as it can
into the buffer, and then reads the data back after the buffer has filled.
' 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(14, "*rst", status%)
' Reset STATus subsystem (not affected by *RST)
CALL SEND(14, "stat:pres;*cls", status%)
CALL SEND(14, "stat:meas:enab 512", status%) 'enable BFL
CALL SEND(14, "*sre 1", status%) 'enable MSB
CALL SEND(14, "trig:coun 20", status%)
' TRACe subsystem is not affected by *RST
CALL SEND(14, "trac:poin 20", status%)
CALL SEND(14, "trac:feed sens1;feed:cont next", status%)
' Start everything
CALL SEND(14, "init", status%)
' Initialize reading$ while the 6514 is busy taking readings
reading$ = SPACE$(4000)
WaitSRQ:
IF (NOT(srq%)) THEN GOTO WaitSRQ
CALL SPOLL(14, poll%, status%)
To Next Page
Loading...
Need help?
General
