
11-10
Status Structure
Model 2750 Multimeter/Switch System User’s Manual
' $INCLUDE: 'ieeeqb.bi'
CLS
' Clear PC output screen
CONST addr = 16
' Set instrument address.
'
' Init GPIB.
'
CALL initialize(21, 0)
CALL transmit("unt unl listen " + STR$(addr) + " sdc unl", status%) ' Send Device Clear.
CALL send(addr, "*rst", status%)
' Restore *rst defaults.
CALL send(addr, "trac:cle", status%)
' Clear buffer.
CALL send(addr, "trig:coun inf", status%)
' Infinite trigger count.
CALL send(addr, "trac:poin 2000", status%)
' Set buffer size to 2000.
CALL send(addr, "trac:not 1750", status%)
' Set Trace Notify bit on 1750th reading.
CALL send(addr, "trac:feed:cont next", status%) ' Enable buffer.
CALL send(addr, "stat:pres", status%)
' Reset measure enable bits.
CALL send(addr, "*cls", status%)
' Clear all event registers.
CALL send(addr, "stat:meas:enab 13120", status%)' Enable buffer bits; B6, B8, B9, B12, B13.
CALL send(addr, "*ese 0", status%)
' Disable standard events.
CALL send(addr, "*sre 1", status%)
' Enable measurement events.
CALL send(addr, "init", status%)
' Start measure/store process.
N = 0
' Initialize quarter buffer counter.
WaitSRQ:
WHILE srq = 0: WEND
' Wait for GPIB SRQ line to go true.
CALL spoll(addr, poll%, status%)
' Clear rqs/mss bit in status byte
register.
CALL send(addr, "*cls", status%)
' Clear all event registers.
N = N + 1
' Increment buffer counter.
IF N = 1 THEN GOTO QtrFull
' Branch when buffer G full.
IF N = 2 THEN GOTO HalfFull
' Branch when buffer H full.
IF N = 3 THEN GOTO ThreeQtrFull
' Branch when buffer I full.
IF N = 4 THEN GOTO 1750thReading
' Branch when 1750th reading stored.
PRINT "BUFFER FULL"
' Display buffer full message.
END
QtrFull: PRINT "Buffer G Full"
' Display G full message.
GOTO WaitSRQ
' Return to WaitSRQ.
HalfFull: PRINT "Buffer H Full"
' Display H full message.
GOTO WaitSRQ
' Return to WaitSRQ.
ThreeQtrFull: PRINT "Buffer I Full"
' Display I full message.
GOTO WaitSRQ
' Return to WaitSRQ.
1750thReading: PRINT "1750th reading stored"
' Display 1750th reading message.
GOTO WaitSRQ
' Return to WaitSRQ.
2750-900-01.book Page 10 Wednesday, August 3, 2011 7:56 AM
Summary of Contents for 2750
Page 3: ...2750 900 01 book Page 2 Wednesday August 3 2011 7 56 AM...
Page 7: ...2750 900 01 book Page 4 Wednesday August 3 2011 7 56 AM...
Page 17: ...2750 900 01 book Page 10 Wednesday August 3 2011 7 56 AM...
Page 324: ...12 CommonCommands 2750 900 01 book Page 1 Wednesday August 3 2011 7 56 AM...
Page 348: ...15 SCPIReferenceTables 2750 900 01 book Page 1 Wednesday August 3 2011 7 56 AM...
Page 374: ...B Model7700ConnectionGuide 2750 900 01 book Page 1 Wednesday August 3 2011 7 56 AM...
Page 386: ...C StatusandErrorMessages 2750 900 01 book Page 1 Wednesday August 3 2011 7 56 AM...
Page 394: ...D SignalProcessing SequenceandDataFlow 2750 900 01 book Page 1 Wednesday August 3 2011 7 56 AM...
Page 408: ...E MeasurementConsiderations 2750 900 01 book Page 1 Wednesday August 3 2011 7 56 AM...
Page 428: ...G IEEE 488BusOverview 2750 900 01 book Page 1 Wednesday August 3 2011 7 56 AM...