Keithley 2002, User Manual

Page: 330 / 366

Example Programs
G-13
Program (fastscan.bas) (cont.)
'config buffer
ALL SEND(16, ":trac:cle; poin 1810; egr comp; feed sens", GPIB.STATUS%)
' Clear readings from buffer
' Set buffer size to 1810 points
' Select COMPACT element group
' Select SENSE as source of readings
CALL SEND(16, ":trac:feed:cont next", GPIB.STATUS%)
' Select the NEXT buffer control
' mode
'Trigger 2002
SLEEP 1
CALL TRANSMIT("UNL UNT LISTEN 16 GET", STATUS%)
' Start scan
'wait for buffer to fill
PRINT "Collecting Data....."
SLEEP 15
'get data
CALL SEND(16, ":trac:data?", STATUS%) ' Read buffer
CALL Enter(k2002data$, Gpib.len%, 16, GPIB.STATUS%)
PRINT "DCV = "; k2002data$
END