Inhaltsverzeichnis
Werbung
Terminalprogramme für Steuerrechner
Untenstehende Hilfsprogramme lassen den entsprechenden Computer als einfa-
ches Terminal arbeiten und ermöglichen dadurch den direkten Dialog mit der
Waage.
Schnittstellenparameter (Standardeinstellung der J-Waage):
2400 Baud, even Parity, 7 Datenbit und 1 Stopbit
Achtung:
Die Interpunktion muss beim Eintippen der Programme genau
eingehalten werden.
Terminalprogramm für 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
Terminalprogramm für 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
Terminalprogramm für 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
Programmbeispiel für bidirektionale Kommunikation
Aufgabe:
Kontrolle von Packungen mit Kleinteilen
Gewicht der Verpackung (Tara)
Stückgewicht der Teile
Anzahl Teile je Packung
Programm in BASIC für 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
Hinweis für Benutzer des Epson HX-20:
Nur der Schnittstellenparameter für die Baudrate (Zeilen 10 und 20) muss
geändert werden:
"COM0:(C7E1F)" ändern in "COM0:(57E1F)"
Anhang
51.50 g
1.58 g
100 Stk.
19
Werbung
Inhaltsverzeichnis
