Tabla de contenido
Publicidad
7.
Programas para el acceso
7.1
Comunicación con la balanza
Los programas auxiliares de abajo permiten que un ordenador trabaje
como simple terminal. Con su ayuda se pueden emitir instrucciones de
mando a la balanza a través del interface y visualizar resultados de
pesada y mensaje de estado en la pantalla. Así es posible observar el
efecto básico de las instrucciones.
Parámetros de interface (ajuste estándar de la balanza):
2400 baudios, even Parity, 7 bits de datos y 1 bit de
parada
Atención:
Debe mantenerse exactamente la puntuación interme-
dia al teclear los programas.
Programa terminal para IBM-PC
1Ø OPEN "coml:24ØØ,E,7,1,CS,CD,DS,RS,LF" AS #1
2Ø IF LOC(1)>Ø THEN PRINT INPUT$(LOC(1),#1);
3Ø K$=INKEY$
:
IF K$< >"" THEN PRINT#1,K$; : PRINT K$;
5Ø GOTO 2Ø
Programa terminal para Epson HX-20
1Ø TITLE "TERM"
2Ø WIDTH2Ø,4
3Ø OPEN"O",#1,"COMØ : (57E1F)"
4Ø OPEN"I",#2,"COMØ : (57E1F)"
5Ø IF LOF (2)>Ø THEN PRINT INPUT$(LOF(2),#2);
6Ø K$=INKEY$:IFK$< >"" THEN PRINT#1,K$; :PRINTK$;
7Ø IF K$=CHR$(13)THEN K$=CHR$(1Ø):PRINT#1,K$; :PRINTK$;
8Ø GOTO 5Ø
Programa terminal para Epson PX-4
1Ø OPEN "O",#1,"COMØ:(C7E1F)"
2Ø OPEN "I",#2,"COMØ:(C7E1F)"
3Ø IF LOC(2) >Ø THEN PRINT INPUT$(LOC(2),#2);
4Ø K$=INKEY$ : IF K$< > "" THEN PRINT#1,K$; : PRINT K$;
5Ø IF K$=CHR$(13) THEN K$=CHR$(1Ø) : PRINT#1,K$; : PRINT K$;
6Ø GOTO 3Ø
38
7.2
Evaluación de los datos de pesada
Para el reproceso del resultado de pesada hay que analizar la cadena
de datos procedente del interface. La cadena de datos, constituida
según el apartado 4.3, puede analizarse en la forma siguiente:
1. Introducción de cadena de datos
2. Análisis de los tres primeros caracteres de la cadena de datos
(p. ej. S//, SD/, SI, SI+, SI–, TA, EL, ET, ///, /D/, ...)
3. Tratamiento del resto de la cadena de datos según la primera parte
Ejemplo de programa en BASIC
Evaluación de la cadena
"S///////23,4 g"
ceros anteriores
Identificación
X$ es la cadena de datos introducida de la balanza
6Ø IDENT$ = LEFT$ (X$, 3)
7Ø IF IDENT$ = "S//" THEN GOSUB 110
otras distinciones de casos enumeradas igual que en punto 2 con IF
11Ø WEIGHT = VAL (MID$ (X$, 3))
12Ø LE = LEN (X$)
13Ø FOR I = LE-1 TO 1 STEP –1
14Ø ST = INSTR(I,X$," ") : IF ST <> Ø THEN I = 1
15Ø NEXT
16Ø UNIT$ = RIGHT$(X$,LE-ST)
Posterior tratamiento de WEIGHT y UNIT
(búsqueda de identificación)
(búsqueda de resultado de pesada)
(búsqueda de unidades de peso, 120...160)
Publicidad
Tabla de contenido
