Electrical Safety Analyzer 19032 User’s Manual
5-48
5.6 Basic Examples
5.6.1 GPIB
Operation by GPIB Using Basic
REM--------------------------------------------------------------------
REM run the ULI file before this program.
REM This program is that getting results through GPIB from the device.
REM GPIB address is 3
REM--------------------------------------------------------------------
CLS
PRINT "Program is running..."
OPEN "GPIB0" FOR OUTPUT AS #1 ‘open #1 for output (write)
OPEN "GPIB0" FOR INPUT AS #2 ‘open #2 for input (read)
PRINT #1, "ABORT" ‘initializing message.
PRINT #1, "GPIBEOS IN LF" ‘set the end code
PRINT #1, "OUTPUT 3;:SOURce:SAFEty:STOP"
send STOP command to device 3
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 ‘clear all steps
PRINT "SET STEPS"
PRINT #1, "OUTPUT 3;:SOURce:SAFEty:STEP 1:DC 1000"
PRINT #1, "OUTPUT 3;:SOURce:SAFEty:STEP 1:DC:LIMit 0.004"
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.02"
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" ‘start test
STATUS$ = "RUNNING"
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%
To Next Page
Loading...
