Omron V670-H11 User Manual page 96

5-11 Example of Communication Program
1:n Protocol
100 '***** V670-CD1D SAMPLE PROGRAM2 *****
110 CLS
120 OPEN "COM:E73NN" AS #1
130 '
140 '***** MAIN LOOP ****
150 *LOOP
160 LINE INPUT "Input TX Data : ", ITD$
170 IP$="00"+ITD$:GOSUB *FCS
180 TXD$=CHR$(1)+IP$+OP$+"*"+CHR$(13)
190 PRINT "[TX] : ";ITD$
200 PRINT #1,TXD$;
210 GOSUB *RECEIVE
220 PRINT "[RX] : ";REC$
230 GOTO *LOOP
240 '
250 '***** RECEIVE DATA *****
260 *RECEIVE
270 RXD$=" "
280 WHILE (LOC(#1)=0):WEND
290 WHILE (INSTR(RXD$,"*"+CHR$(13))=0)
300 RXD$=RXD$+INPUT$(1,#1)
310 WEND
320 IP$=MID$(RXD$,2,LEN(RXD$)-5):GOSUB *FCS
330 REC$=MID$(RXD$,4,LEN(RXD$)-7)
FCS$=MID$(RXD$,LEN(RXD$)-3,2):GOSUB *CHK.FCS 'Checks FCS
340
350 RETRUN
360 '
370 '***** CALCULATE FCS *****
380 *FCS
390 K=0
400 FOR I=1 TO LEN(IP$)
410 TMP$=MID$(IP$,I,1)
420 K=K XOR ASC(TMP$)
430 NEXT I
440 OP$=HEX$(K)
450 RETURN
460 '
470 '***** CHECK FCS *****
480 *CHK.FCS
490 IF FCS$<>OP$ THEN REC$="FCS ERR!!"
500 RETURN
510 '
520 END
5-26
'Opens a RS-232C port.
'Inputs a command data.
'Calculates FCS.
'Sets a data string to be sent.
'Displays a command data.
'Sends a data string.
'Receives a data string.
'Displays a response data.
'Calculates FCS