Table des Matières
Publicité
7.
Programme de prise en main
7.1
Communication avec la balance
Les programmes utilitaires ci-dessous permettent à l'ordinateur de
travailler en tant que terminal simple. Grâce à eux on peut, via
l'interface, envoyer des instr. de commande à la balance, et afficher sur
l'écran le résultat de pesée et le message d'état. Il devient ainsi possible
d'observer l'action fondamentale exercée par les instructions.
Paramètres d'interface (réglage standard de la balance):
2400 bauds, parité paire, 7 bits de données et 1 bit
d'arrêt
Attention:
Lorsqu'on entre ces programmes, il faut respecter scru-
puleusement les signes de ponctuation.
Programme de terminal pour 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Ø
Programme de terminal pour 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Ø
Programme de terminal pour 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
Exploitation des données de pesée
Pour le traitement ultérieur du résultat de pesée, la chaîne de données
provenant de l'interface doit être analysée. Pour analyser la chaîne de
données créée au chapitre 4.3, on peut procéder comme suit:
1. Charger et lire la chaîne de caractères
2. Analyser les trois premiers caractères de la chaîne de caractères
(par ex. S//, SD/, SI, SI+, SI–, TA, EL, ET, ///, /D/, ...)
3. Modifier la chaîne de caractères restante indépendamment de la
première partie
Exemple de programme en BASIC
Exploitation de la chaîne de données
"S///////23,4 g"
Zéros préliminaires
Identification
X$ est la chaîne de caractères lue par la balance
6Ø IDENT$ = LEFT$(X$, 3)
7Ø IF IDENT$ = "S//" THEN GOSUB 110
Autres cas comme énumérés au point 2, avec 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)
Poursuite du traitement de WEIGHT et UNIT
(Recherche de l'identification)
(Recherche du résultat de pesée)
(Recherche de l'unité de poids, 120...160)
Publicité
Table des Matières
