Aktive Rs-232C-Schnittstelle (Nur Cqm1/Srm1) - Omron SYSMAC CQM1 Bedienerhandbuch

Kommunikationsfunktionen
Beispielprogramm
1-8-6 Aktive RS–232C–Schnittstelle (nur CQM1/SRM1)
Kommunikationsverfahren
1, 2, 3...
Dieses Beispiel zeigt ein BASIC–Programm, das den Zustand der
SRM1–Eingänge in IR 000 liest. Weitere Informationen siehe Kapitel 14
Host–Link–Befehle.
Eine FCS–Prüfung (Frame–Checksumme) wird bei den empfangenen Ant-
wortdaten in diesem Programm nicht durchgeführt. Vergewissern Sie sich vor
Durchführung des Programms, daß die RS–232C–Schnittstelle des Host–
Computers richtig konfiguriert ist.
1000 '
1010 'SRM1 Sample Program for PC-9801 N88-BASIC
1020 '
1050 '
1060 ' Set value RS-232C SPEED:9600BPS,PAR-
ITY:EVEN,DATA:7,STOP:2
1070 OPEN "COM:E73" AS #1
1080 *REPEAT
1090 ' Transmission data input
1100 INPUT "send data:",SEND$
1110 ' FCS Calculation
1120 FCS=0
1130 FOR IFCS=1 TO LEN(SEND$)
1140 FCS=FCS XOR ASC(MID$(SEND$;IFCS,1)
1150 NEXT
1160 FCS$=RIGHT$("0"+HEX$(FCS),2)
1170 ' Communications execute
1180 ZZZ$=SEND$+FCS$+"*"+CHR$(13)
1190 PRINT #1,ZZZ$;
1200 ' Response check
1210 RECCNT=0:TMP$=""
1220 *DRECLOOP
1230 IF LOC(1)<>0 THEN *DREC1
1240 RECCNT=RECCNT+1
1250 IF RECCNT=5000 THEN *DRECERR ELSE *DRECLOOP
1260 *DREC1
1270 TMP$=TMP$+INPUT$(LOC(1),#1)
1280 IF RIGHT$(TMP$,1)=CHR$(13) THEN *DRECEND ELSE
RECCNT=0:GOTO *DRECLOOP
1290 *DRECERR
1300 TMP$="No response!!"+CHR$(13)
1310 *DRECEND
1320 RECV$=TMP$
1330 PRINT "receive data:";RECV$
1340 ' Go to transmission data input
1350 GOTO *REPEAT
1360 ' Processing complete
1370 CLOSE #1
1380 END
In diesem Abschnitt wird die aktive Schnittstelle RS–232C beschrieben. Über
die RS–232–Schnittstelle kann ein Drucker oder ein Bar–Code Leser betrie-
ben werden. Handshaking wird nicht von der RS–232C–Schnittstelle unter-
stützt.
Übertragungen
1. AR 0805 (der Übertragungs–Bereit–Merker der RS–232C–Schnittstelle)
muß auf EIN gesetzt sein.
2. Verwenden Sie den TXD(48)–Befehl für die Datenübertragung.
Kapitel 1–8
97