5-20
6517B-900-01 Rev. A / Jun 2008
Section 5: Remote Operation
Model 6517B Electrometer User’s Manual
'
'$INCLUDE: 'ieeeqb.bi'
CALL initialize(21, 0)
CLS
CALL send(27, "*rst", status%)
CALL send(27, "*CLS", status%)
CALL spoll(27, KIspoll%, status%)
'Configure status model to SRQ on Buffer Full:
CALL send(27, "stat:meas:enab 512", status%)
CALL SEND(27, "*sre 1", status%)
'Select autoranging amps:
CALL send(27, ":SENS:FUNC 'CURR'", status%)
CALL send(27, ":SENS:CURR:RANG:AUTO ON", status%)
'Configure Staircase Sweep from 0V to 10V in 1V steps:
CALL send(27, ":TSEQ:TYPE STSW", status%)
CALL send(27, ":TSEQ:STSW:STAR 0", status%)
CALL send(27, ":TSEQ:STSW:STOP 10", status%)
CALL send(27, ":TSEQ:STSW:STEP 1", status%)
CALL send(27, ":TSEQ:STSW:STIM 0.3", status%)
CALL send(27, ":TSEQ:TSO imm", status%)
'Wait for commands to complete processing:
DATA1$ = SPACE$(600)
CALL send(27, "*OPC?", status%)
CALL enter(DATA1$, length%, 27, status%)
' Start Test Sequence:
CALL send(27, ":TSEQ:ARM", status%)
'Wait for SRQ (buffer full):
WaitSRQ
IF (NOT (srq%)) THEN GOTO WaitSRQ
CALL spoll(27, poll%, status%)
If (poll% AND 64) = 0 THEN GOTO WaitSRQ
'Dump buffer readings to computer CRT:
CALL send(27, ":TRACE:DATA?", status%)
CALL enter(DATA1$, length%, 27, status%)
A = 1
FOR I = 1 TO 11
r$ = MID$(DATA!$, A, 13)
PRINT r$
A = A + 14
NEXT I
END
Test Equipment Depot - 800.517.8431 - 99 Washington Street Melrose, MA 02176
TestEquipmentDepot.com