Rockwell Automation 5370 Color CVIM Communications Manual - Manual (Page 99)

Chapter 5
Using the RS–232 Ports
5–31
The following is a sample ASCII program written in BASIC:
1 REM RS–232 ASCII COLOR CVIM COMMUNICATIONS SAMPLE PROGRAM
2 REM COPYRIGHT ALLEN–BRADLEY COMPANY, INC. 1992 JRM, DMS
3 :
4 :
10 OPEN”com1:9600,n,8,1,DS”AS#1: REM Open communications channel
20 DIM R1(17): REM Allocate storage for tool set results
30 HE$=”0123456789ABCDEF”: REM Used for hex to decimal conversion
50 CLS
60 PRINT ”RS–232 ASCII TO ALLEN–BRADLEY COLOR CVIM COMMUNICATIONS PROGRAM”
61 PRINT ” COPYRIGHT ALLEN–BRADLEY COMPANY, INC. 1992 JRM, DMS”
62 PRINT
63 PRINT ”THIS PROGRAM WILL PERFORM THE FOLLOWING:”
64 PRINT ” READ THE TRIGGER COUNT”
65 PRINT ” TRIGGER AN INSPECTION”
66 PRINT ” READ TRIGGER COUNT UNTIL IT IS INCREMENTED”
67 PRINT ” READ DISCRETE RESULTS PART 1”
68 PRINT ” DISPLAY THE DISCRETE RESULTS PART 1”
69 PRINT ” DISPLAY THE FAILED WINDOWS 1–4”
70 PRINT
71 PRINT ”THIS PROGRAM WAS USED AND TESTED ON AN ALLEN–BRADLEY”
72 PRINT ” T47 COMPUTER WITH GWBASIC.EXE FROM MS–DOS VER 4.01”
73 PRINT
74 PRINT ”THE COLOR CVIM COMMUNICATION PARAMETERS FOR THIS PROGRAM ARE:”
75 PRINT ” CFG HOST: RS232 A”
76 PRINT ” SYS HOST: RS232 A”
77 PRINT ” TRIGGER SOURCE = (HOSTED)”
78 PRINT ” RS232 A PROTOCOL = ASCII”
79 PRINT ” RS232 A BAUD RATE = 9600”
80 PRINT ” COLOR CVIM MUST BE IN RUNMODE”
90 PRINT
99 :
100 PRINT:INPUT ”ENTER 1 TO RUN PROGRAM AND 2 TO EXIT PROGRAM”;PROCESS
105 PRINT
110 IF PROCESS = 1 THEN GOTO 130
120 SYSTEM
130 GOSUB 2000: REM Read tool set results to get # of triggers processed
140 IF R1(0)<0 THEN 100 ELSE NT = R1(0)
150 GOSUB 1000: REM Trigger an inspection
200 GOSUB 2000: IF R1(0)=NT THEN 200: REM Read until the trigger is processed
210 GOSUB 2500: REM Convert hex result string RE$ to integers
220 IF R1(0) <0 THEN 100: REM Quit on input error
230 PRINT: FOR X=0 TO 17: PRINT R1(X),: NEXT: PRINT: REM Print results
240 IF R1(4) AND 2 THEN PRINT ”Window 1 FAIL”
250 IF R1(4) AND 8 THEN PRINT ”Window 2 FAIL”
260 IF R1(4) AND 32 THEN PRINT ”Window 3 FAIL”
270 IF R1(4) AND 128 THEN PRINT ”Window 4 FAIL”
400 GOTO 100
ASCII Programming Example