Chroma 19053 - RS232 Operation Using Basic

RS232 Interface
6.6 RS232 Operation Using Basic
REM------------------------------------------------------------------
REM RS232 example program
REM Program compiled using Microsoft version 1.1 (MS-DOS 6.22)
REM------------------------------------------------------------------
REM open serial port as device 1
OPEN "COM2: 9600,N, 8,1,RS, CS, DS, CD, LF" FOR RANDOM AS #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
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.0003"
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.0003"
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
WHILE status$ <> "STOPPED"
PRINT #1, "SOURce: SAFEty: STATUS?"
INPUT #1, status$ 'read status
IF status$ = "STOPPED" THEN 'if status not=TEST
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$
6-3
www.valuetronics.com