Table des Matières
Publicité
Exploitation des données de pesée
Exemple de programme en PASCAL
GetString1 = Mémoire tampon d'entrée
BEGIN
inputstring :=GetString1;
Weight := ''; Unit :=''; j := 1;
Ident := Copy (inputstring, 1, 3);
IF Ident = 'S ' THEN
BEGIN
WHILE (Ord (inputstring[j]) < 65) AND
(j <=Length (inputstring)) DO
BEGIN
Weight := Weight + inputstring[j];
j := j + 1;
END;
Unit := Copy (inputstring, j, 4);
END ELSE
Autres cas comme énumérés au point 2, avec IF,
Poursuite du traitement de WEIGHT et UNIT
END.
Exemple de programme en langage C
char InputString[3Ø];
char Unit[5];
char Ident[4];
float Weight;
sscanf(InputString,"%3s%f%s",Ident,&Weight,Unit);
if(strcmp(Ident,"S") == Ø)
/* stable weight */;
7.3
Utilisation des instructions pour la commande de
la balance
Utilisation des instructions Base, Unit, DeltaTrac et Send and
Repeat (communication bidirectionnelle)
But:
Contrôle d'emballages composés de petites pièces
(p. ex. vis) à l'aide du DeltaTrac.
Poids de l'emballage (Tare)
Poids unitaire des pièces
Nombre de pièces par emballge
Tolérances pour le DeltaTrac
Programme en BASIC pour EPSON PX-4:
1Ø OPEN "I",#1"COM0:(C7E1F)"
2Ø OPEN "O",#2"COM0:(C7E1F)"
3Ø PRINT#2,"B 51.5"
(Déduction préalable de la tare)
4Ø PRINT#2,"U0 1.58 PCS 1"
5Ø PRINT#2,"DY 209.5 1.58 7.9"
6Ø PRINT#2,"SR" : CLS
7Ø INPUT#1,X$ : PRINT X$
8Ø GOTO 70
9Ø END
Remarque pour les utilisateurs Epson HX-20:
Seuls les paramètres d'interface dans les lignes 10 et 20 sont différents,
remplacer "C7E1F" par "57E1F".
39
+1 Pcs = 1,85
–5 Pcs = 7,90
(Nombre entier de pièces par échelon)
(Poids de consigne et tolérances pour le DeltaTrac)
51,50 g
1,58
g
100
Pcs
g
g
Publicité
Table des Matières
