Table des Matières
Publicité
Programmes de terminal pour ordinateur de commande
Les programmes utilitaires ci-dessous permettent à l'ordinateur de travailler en
tant que terminal simple, ce qui autorise le dialogue direct avec la balance.
Paramètres d'interface (réglage standard de la balance J):
2400 bauds, parité paire, 7 bits de données et 1 bit d'arrêt
Attention:
lorsqu'on entre ces programmes, il faut respecter scrupuleusement
les signes de ponctuation.
Programme de terminal pour IBM-PC
10 Open "com1:2400,E,7,1,CS,CD,DS,RS,LF" AS #1
20 IF LOC(1)>0 THEN PRINT INPUT$(LOC(1),#1);
30 K$=INKEY$ : IF K$<>"" THEN PRINT#1,K$; : PRINT K$;
50 GOTO 20
Programme de terminal pour Epson HX-20
10 TITLE "TERM"
20 WIDTH20,4
30 OPEN"O",#1,"COM0 : (57E1F)"
40 OPEN"I",#2,"COM0 : (57E1F)"
50 IF LOF (2))0 THEN PRINT INPUT$(LOP(2),#2);
60 K$=INKEY$:IFK$<>""PRINT#1,KS;:PRINTK$;
70 IF K$=CHR$(13)THEN K$=CHR$(10):PRINT#1,K$;:PRINTK$;
80 GOTO 50
Programme de terminal pour Epson PX-4
10 OPEN "O",#1,"COM0:(C7E1F)"
20 OPEN "I",#2,"COM0:(C7E1F)"
30 IF LOC (2)>0 THEN PRINT INPUT$(LOC(2),#2);
40 K$=INKEY$ : IF K$<>""THEN PRINT#1,KS;:PRINT K$;
50 IF K$=CHR$(13) THEN K$=CHR$(10) : PRINT#1,K$; : PRINT K$;
60 GOTO 30
Exemple de programme pour la communication bidirectionnelle
Objectif:
Contrôle d'emballages contenant des pièces de faibles dimensions
Poids de l'emballage (tare)
Poids unitaire des pièces
Nombre de pièces par emballage
Programme écrit en BASIC pour Epson PX-4
10 OPEN "I",#1,"COM0:(C7E1F)"
20 OPEN "O",#2,"COM0:(C7E1F)"
30 PRINT#2,"B 51.5"
40 PRINT#2,"U0 1.58 PCS 1"
60 PRINT#2,"SR" : CLS
70 INPUT#1,X$ : PRINT X$
80 GOTO 70
90 END
Remarque à l'intention des utilisateurs de l'Epson HX-20:
Seul est à changer le paramètre d'interface relatif à la vitesse de transmission
(lignes 10 et 20), à savoir:
"COM0:(C7E1F)" doit être écrit "COM0:(57E1F)"
Jeu d'instructions
51.50 g
1.58 g
100 pièces
19
Publicité
Table des Matières
