Chroma 19572 - RS232 Operation Using Basic

Ground Bond Tester 19572 User’s Manual
5-14
5.4 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 "COM1:9600,N,8,1,RS,CS,DS,CD,LF" FOR RANDOM AS #1
PRINT #1, ":SOURce:SAFEty:STOP"
PRINT #1, ":SOURce:SAFEty:SNUMber ?"
INPUT #1, STEPNUM%
CLS
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:GB:LEVel 3.1"
PRINT #1, "SOURce:SAFEty:STEP1:GB:LIMit:HIGH 0.2"
PRINT #1, "SOURce:SAFEty:STEP1:GB:TIME:TEST 3.1"
PRINT #1, "SOURce:SAFEty:STEP2:GB:LEVel 3.2"
PRINT #1, "SOURce:SAFEty:STEP2:GB:LIMit:HIGH 0.3"
PRINT #1, "SOURce:SAFEty:STEP2:GB:TIME:TEST 3.2"
SLEEP 1
PRINT #1, "SOURce:SAFEty:STARt" 'start test
PRINT #1, "SOURce:SAFEty:SNUMBer?"
INPUT #1, STEPNUM%
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"
PRINT #1, "SAFEty:RESult:ALL:OMET?"
FOR j = 1 TO STEPNUM%
INPUT #1, result$
PRINT "step", j, ":", result$
NEXT j
PRINT
PRINT #1, "SAFEty:RESult:ALL:MMET?"
FOR j = 1 TO STEPNUM%
INPUT #1, result$
PRINT "step", j, ":", result$
NEXT j
END IF
WEND
PRINT #1, "SOURce:SAFEty:STOP"
CLOSE #1
END