Mettler Toledo BB Bedienungsanleitung Seite 24

Programmbeispiel in PASCAL
GetString1 = Eingangspuffer
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
weitere Fallunterscheidungen wie unter Punkt 2 aufgezählt mit IF,
weitere Verarbeitung von Weight und Unit
END.
22
Programmbeispiel in 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 */;