Keithley 2002

Example Programs
G-19
Program (bufclint.bas) (cont.)
cmd$ = ":trig:tcon:asyn:ilin 2; olin 1"
GOSUB send2002 ' Select Triglink lines; input = line
' #2, output = line #1
cmd$ = "trig:tcon:dir sour"
GOSUB send2002 ' Enable source bypass for trigger
' layer
cmd$ = ":arm:lay1:coun 1"
GOSUB send2002 ' Set arm layer 1 count to 1
cmd$ = ":arm:lay2:coun 1"
GOSUB send2002 ' Set arm layer 2 count to 1
cmd$ = ":trig:coun 35"
GOSUB send2002 ' Set trigger layer count to 35
cmd$ = ":arm:lay2:del 0"
GOSUB send2002 ' Set arm layer 2 delay to zero
cmd$ = ":trig:del 0"
GOSUB send2002 ' Set trigger layer delay to zero
' Initialize 7001.
cmd$ = ":rout:open all"
GOSUB send7001 ' Open all channels
cmd$ = ":rout:scan (@1!1:1!5)"
GOSUB send7001 ' Scan list = chans 1!1 thru 1!5
cmd$ = ":arm:lay1:sour imm"
GOSUB send7001 ' Set arm layer 1 source to Immediate
cmd$ = ":arm:lay2:sour imm"
GOSUB send7001 ' Set arm layer 2 source to Immediate
cmd$ = ":trig:sour tlin"
GOSUB send7001 ' Set trigger layer source to Triglink
cmd$ = ":trig:tcon:asyn:ilin 1; olin 2"
GOSUB send7001 ' Select Triglink lines; input = line
' #1, output = line #2
cmd$ = ":arm:lay1:coun 1"
GOSUB send7001 ' Set arm layer 1 count to 1
cmd$ = ":arm:lay2:coun 1"
GOSUB send7001 ' Set arm layer 2 count to 1
cmd$ = ":trig:coun 35"
GOSUB send7001 ' Set trigger layer count to 35
cmd$ = ":arm:lay2:del 0"
GOSUB send7001 ' Set arm layer 2 delay to zero
cmd$ = ":trig:del 0"
GOSUB send7001 ' Set trigger layer delay to zero
cmd$ = ":trig:tcon:dir sour"
GOSUB send7001 ' Enable source bypass of trigger
' layer
' Arm buffer.
cmd$ = "*SRE 1"
GOSUB send2002 ' Set MSB bit of SRE register
cmd$ = "stat:meas:ptr 32767; ntr 0; enab 512"
GOSUB send2002 ' Set all PTR bits and clear all NTR
' bits for measurement events
' Set Buffer Full bit of Measurement
' Event Enable Register
cmd$ = ":trac:feed calc"
GOSUB send2002 ' Select Calculate as reading source
cmd$ = ":trac:poin 35"
GOSUB send2002 ' Set buffer size to 35 points
cmd$ = ":trac:egr full"
GOSUB send2002 ' Select Full element group
cmd$ = ":form:data sre"
GOSUB send2002 ' Select IEEE754 single precision data
' format