Publicité
Fonctions de communication SRM1(-V2)
Exemple de programme
D3E Electronique Parc du Grand TROYES 3 Rond Point Winston CHURCHILL 10302 SAINTE SAVINE
Tél: 03 25 71 31 65 Fax: 03 25 74 38 82 Email: electronique@d3e.fr www.d3e.fr
Cet exemple illustre un programme BASIC qui lit l'état des entrée du
SRM1(--V2) dans IR 000. Pour de plus amples informations, se reporter à 4-5
Commandes de communications à l'ordinateur.
Aucune séquence de vérification de trame (FCS) n'est réalisée sur les données
des réponses reçues dans ce programme. Vérifier que le port RS-232C de l'or-
dinateur est correctement configuré avant d'exécuter le programme.
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 '
réponse 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 à transmission data input
1350 GOTO *REPEAT
1360 '
Processing complete
1370 CLOSE #1
1380 END
Chapitre
4-4
225
Publicité
Chapitres
