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
Summary of Contents for 2002
Page 123: ...Front Panel Operation 2 106...
Page 145: ...IEEE 488 Reference 3 22...
Page 167: ...IEEE 488 Reference 3 44...
Page 284: ...A Specifications A 1...
Page 362: ......
Page 364: ...This page left blank intentionally...
Page 365: ......