Inhaltsverzeichnis
Werbung
6. Programme zum Einstieg
6.1 Kommunikation mit der Waage
Untenstehende Hilfsprogramme lassen einen Computer als einfaches
Terminal arbeiten. Mit ihrer Hilfe kann man über die Schnittstelle
Steuerbefehle zur Waage senden und auf dem Bildschirm Wägeresul-
tat und Zustandsmeldung anzeigen. So wird es möglich, die
grundsätzliche Wirkungsweise der Befehle zu beobachten.
Schnittstellenparameter (Standardeinstellung der BB-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
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Ø
Terminalprogramm für 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Ø
Terminalprogramm für 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Ø
6.2 Auswerten der Wägedaten
Für die Weiterverarbeitung des Wägeresultates muss der Datenstring
aus der Schnittstelle analysiert werden. Der nach Abschnitt 4.2 aufge-
baute Datenstring kann wie folgt untersucht werden:
1. Datenstring einlesen
2. Erste drei Zeichen des Datenstring untersuchen
(z.B. S//, SD/, SI, SI+, SI–, TA, EL, ET, ///, /D/, ...)
3. Restlichen Datenstring abhängig vom ersten Teil verarbeiten
Programmbeispiel in BASIC
Auswertung des Strings
"S///////23,4g"
Vornullen
Identifikation
X$ ist der eingelesene Datenstring von der Waage
6Ø IDENT$ = LEFT$ (X$, 3)
7Ø IF IDENT$ = "S//" THEN GOSUB 110
weitere Fallunterscheidungen wie unter Punkt 2 aufgezählt mit 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)
weitere Verarbeitung von WEIGHT und UNIT$
21
(Identifikation suchen)
(Wägeresultat suchen)
(Gewichtseinheit suchen, 120...160)
Werbung
Inhaltsverzeichnis
