KEYENCE BL-180 - Manual (Page 75)

A.5 Example Program for Serial Communication
67
A.5 Example Program for Serial Communication
The following is a example program that allows data communication and com-
mand communication. Type in a command and press
[Enter] to send the data to
the BL-180.
Only the QUIT command can be sent by pressing [Q] .
Set the BL-180 as follows:
• Header: [STX] Delimiter: [ETX]
• Handshaking protocol: No handshaking or PASS/RTRY handshaking
100 ‘***BL-180 SAMPLE PROGRAM*********************************************
110 CLS 3
120 DAT$=””:RD$=””:CM$=””
130 OPEN “COM1:” AS #1
140 *BUFFCLR :’***CLEAR BUFFER********************************************
150 A=LOC(1)
160 IF A<>0 THEN R$=INPUT$(1,#1) :GOTO *BUFFCLR
200 ‘
210 *MAIN :’***MAIN ROUTINE***********************************************
220 K$=INKEY$
230 IF K$<>”” THEN GOSUB *COMMAND
240 A=LOC(1)
250 IF A<>0 THEN GOSUB *RECEIVE
260 GOTO *MAIN
300 ‘
310 *Receive :’***RECEIVE DATA
320 RD$=INPUT$(1,#1)
330 IF RD$=CHR$(&H02) THEN RD$=”” :’RECEIVE STX
340 IF RD$=CHR$($H03) THEN GOSUB *BARCODE :RETURN :’RECEIVE ETX
350 IF RD$=CHR$($H0D) THEN GOSUB *RESPONSE :RETURN :’RECEIVE CR
360 DAT$=DAT$+RD$
370 RETURN
400 ‘
410 *COMMAND :’***SEND COMMAND********************************************
420 IF K$=CHR$(&H0D) THEN *SEND
430 IF K$=”Q” AND CM$=”” THEN CM$=”QUIT”:GOTO *SEND
440 PRINT K$;
450 CM$=CM$+K$
460 RETURN
470 *SEND
480 PRINT #1, CM$;CHR$(&H0D); :’SEND COMMAND
490 PRINT:PRINT CM$;”COMMAND IS SENT”
500 CM$=””
510 RETURN
600 ‘
610 *RESPONSE :’***DISPLAY RESPONSE DATA TO THE COMMAND*******************
620 PRINT DAT$ ;”IS SENT BACK”
630 DAT$=””
640 RETURN
700 ‘
710 *BARCODE :’***DISPLAY BAR CODE DATA***********************************
720 PRINT DAT$ ;”IS READ”
730 DAT$$=””
740 RETURN