Aplicación De Las Instrucciones Para El Control De La Balanza - Mettler Toledo DataPac-M Instrucciones De Manejo

Evaluación de los datos de pesada
Ejemplo de programa en PASCAL
GetString1 = memoria tampón de entrada
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
otras distinciones de casos enumeradas igual que en punto 2 con IF,
posterior tratamiento de WEIGHT y UNIT
END.
Ejemplo de programa en 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 Aplicación de las instrucciones para el control de
la balanza
Aplicación de la instrucción Base, Unit, DeltaTrac y Send and
Repeat (comunicación bidireccional)
Tarea: Control de envases con pequeñas piezas (p. ej. tornillos)
con ayuda del DeltaTrac
Peso del embalaje (tara)
Peso unitario de las piezas
Número de piezas por envase
Tolerancias para DeltaTrac
Programa en BASIC para EPSON PX-4:
1Ø OPEN "I",#1"COM0:(C7E1F)"
2Ø OPEN "O",#2"COM0:(C7E1F)"
3Ø PRINT#2,"B 51.5"
(preajuste de tara)
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
Nota para usuarios del EPSON PX-20:
Sólo los parámetros de interface en el renglón 10 y 20 son distintos,
cambiar "C7E1F" para "57E1F"
39
+1 pz = 1,85
–5 pzs = 7,90
(número entero de piezas en pasos de uno)
(peso teórico y tolerancias para DeltaTrac)
51,50 g
1,58 g
100 Pcs
g
g