Chroma 19032 - Operation Using Basic

GPIB/RS232 Operation Description (IEEE-488.2)
5-51
5.6.2 RS-232 Operation Using Basic
REM----------------------------------------------------------------------
REM Program compiled using Microsoft version 1.1(MS-DOS 6.22)
REM RS-232 example program
REM----------------------------------------------------------------------
OPEN "COM1:9600,N,8,1,LF" FOR RANDOM AS #1 'open serial port 1
as device
1
PRINT #1, "SOURce:SAFEty:STOP" 'send "STOP" command to
device
PRINT #1, "SOURce:SAFEty:SNUMBer?"
INPUT #1, STEPNUM%
IF STEPNUM% > 0 THEN
FOR I% = STEPNUM% TO 1 STEP - 1
TEMP$ = INPUT$(LOC(1), 1)
PRINT #1, "SOURce:SAFEty:STEP", I%, ":DELete"
'clear all steps
data
NEXT I%
END IF
PRINT #1, "SOURce:SAFEty:STEP1:AC:LEVel 500"
PRINT #1, "SOURce:SAFEty:STEP1:AC:LIMit:HIGH 0.003"
PRINT #1, "SOURce:SAFEty:STEP1:AC:TIME:TEST 3"
PRINT #1, "SOURce:SAFEty:STEP2:DC:LEVel 500"
PRINT #1, "SOURce:SAFEty:STEP2:DC:LIMIT 0.003"
PRINT #1, "SOURce:SAFEty:STEP2:DC:TIME 3"
PRINT #1, "SOURce:SAFEty:STEP3:IR:LEVel 500"
PRINT #1, "SOURce:SAFEty:STEP3:IR:LIMIT 300000"
PRINT #1, "SOURce:SAFEty:STEP3:IR:TIME 3"
PRINT #1, "SOURce:SAFEty:SNUMBer?"
INPUT #1, STEPNUM%
PRINT #1, "SOURce:SAFEty:STARt" 'start test
STATUS$ = "RUNNING"
WHILE STATUS$ <> "STOPPED" 'do while status is not
stopped
PRINT #1, "SOURce:SAFEty:STATUS?"
INPUT #1, STATUS$ 'read status
IF STATUS$ = "STOPPED" THEN 'if status is not TESTING
PRINT #1, "SOURce:SAFEty:STOP" 'send STOP command
PRINT #1, "SAFEty:RESult:ALL:OMET?"
FOR J% = 1 TO STEPNUM%
INPUT #1, RESULT$
PRINT "STEP", J%, ":", RESULT$
NEXT J%
PRINT