Chroma 19053 - GPIB Operation Using Basic

HIPOT Tester 19051/19052/19053/19054 User’s Manual
5.9 GPIB Operation Using Basic
REM----------------------------------------------------------------------------
REM Please run the ULI file before this program.
REM This program is that input data through GPIB to 1905X.
REM 1905X's GPIB address is 3
REM----------------------------------------------------------------------------
CLS
PRINT "Program is running"
OPEN "gpib0" FOR OUTPUT AS #1
OPEN "gpib0" FOR INPUT AS #2
PRINT #1, "abort"
PRINT #1, "GPIBEOS IN LF"
PRINT #1, "output 3; SOURce: SAFEty: STOP"
PRINT #1, "output 3; SOURce: SAFEty: SNUMBer?"
PRINT #1, "enter 3"
INPUT #2, STEPNUM%
PRINT "DEL STEPS"
IF STEPNUM% > 0 THEN
FOR I = STEPNUM% TO 1 STEP -1
PRINT #1, "output 3; SOURce: SAFEty: STEP", I, ": DELete"
NEXT I
END IF
PRINT "set steps"
PRINT #1, "output 3; SOURce: SAFEty: STEP 1: DC 1000"
PRINT #1, "output 3; SOURce: SAFEty: STEP 1: DC: LIMit 0.0004"
PRINT #1, "output 3; SOURce: SAFEty: STEP 1: DC: TIME 2"
PRINT #1, "output 3; SOURce: SAFEty: STEP 2: AC 1000"
PRINT #1, "output 3; SOURce: SAFEty: STEP 2: AC: LIMit 0.0002"
PRINT #1, "output 3; SOURce: SAFEty: STEP 2: AC: TIME: TEST 3"
PRINT #1, "output 3; SOURce: SAFEty: STOP"
PRINT #1, "output 3; SOURce: SAFEty: STARt"
WHILE status$ <> "STOPPED"
PRINT #1, "output 3; SAFEty: STATus?"
PRINT #1, "enter 3"
INPUT #2, status$
PRINT status$
IF status$ = "STOPPED" THEN
PRINT #1, "output 3; SOURce: SAFEty: STOP"
PRINT #1, "output 3; SAFEty: RESult: ALL: OMET?"
PRINT #1, "enter 3"
FOR j = 1 TO STEPNUM%
5-40
www.valuetronics.com