Keithley 2002, User Manual

Page: 324 / 366

Example Programs
G-7
Program (ohmsbufi.bas) (cont.)
PRINT #1, "Output 16; *CLS" ' Clear 2002
cmd$ = ":trac:feed sens; poin 5; feed:cont next;"
cmd$ = cmd$ + ":init:cont on"
' Set up buffer to store
' 5 points after averaging,
' arm 2002.
PRINT #1, "Output 16;"; cmd$
PRINT #1, "Output 16; *TRG" ' Trigger 2002 to start
PRINT "Data collection in progress......."
DO
PRINT #1, "Output 16; :stat:meas:even?"
' Check to see if the buffer
' is full.
PRINT #1, "Enter 16" ' Get status value
LINE INPUT #2, pollval$
LOOP UNTIL (VAL(pollval$) AND 512) = 512
resistance$ = SPACE$(100)
PRINT #1, "Output 16; :trac:data?"
' Get data
PRINT #1, "Enter 16"
LINE INPUT #2, resistance$
FOR x = 0 TO 4
reading$ = MID$(resistance$, x * 15 + 1, 13)
PRINT reading$
NEXT x
cmd$ = ":init:cont off; :abor; :trace:cle" ' Turn off trigger model,
' Clear data buffer
PRINT #1, "Output 16;"; cmd$
END