G-8 IEEE-488 and SCPI Conformance Information Model 6485 Picoammeter Instruction Manual
Figure G-2
Program example
' $INLCUDE: 'ieeeqb.bi'
CLS 'Clear PC output screen
CONST addr = 14 'Set instrument address
'
' Init GPIB
'
CALL initialize(21, 0)
CALL transmit("unt unl listen " + STR$(addr) + " sdc unl", status%) 'Restore *rst defaults
CALL send(addr, "*rst", status%) 'Send Device Clear
CALL send(addr, "trac:cle", status%)'Clear buffer
CALL send(addr, "trig:coun 200", status%) '200 trigger count
CALL send(addr, "trac:poin 200", status%) 'Set buffer size to 200
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 512", status%) 'Enable buffer bit B9
CALL send(addr, "*ese 0", status%) 'Disable standard events
CALL send(addr, "*sre 1", status%) 'Enable measurement events
CALL send(addr, "init", status%) 'Start measurement/store process
WAITSRQ:
WHILE srq = 0:WEND 'Wait for GPIB SRQ line to go true.
CALL spoll(addr, poll%, status%) 'Clear rqs/mss bit in status bit
'register
CALL send(addr, "*cls", status%) 'Clear all event registers
PRINT "BUFFER FULL" 'Display buffer full message.
END