Programas de terminal para ordenador de mando
Los programas auxiliares de abajo permiten al ordenador correspondiente
trabajar como simple terminal y, por lo tanto, el diálogo externo con la balanza.
Parámetros de interface (ajuste estándar de la balanza J):
2400 baudios, paridad par 7 bits de datos y 1 bit de parada
Atención:
La puntuación ha de hacerse rigurosamente al teclear los progra-
mas.
Programa de terminal para 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
Programa de terminal para 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
Programa de terminal para 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
Ejemplo de programa para comunicación bidireccional
Tarea:
Control de envases con pequeñas piezas
Peso del envase (tara)
Peso unitario de las piezas
Número de piezas por envase
Programa en BASIC para 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
Nota para usuarios de Epson HX-20:
Sólo hay que modificar el parámetro de interface para la velocidad en baudios
(renglones 10 y 20):
"COM0:(C7E1F)" cambiarlo a "COM0:(57E1F)"
Conjunto de instrucciones
51,50 g
1,58 g
100 pes
19