Magazine Pom's : la collection

.
•
Cette procédure Pascal permet de
saisir et de modifier un tableau de
chiffres avec le nombre de lignes et
de colonnes et tous les libellés horizontaux
et verticaux que ['on désire.
Cette saisie peut s'intégrer à n'importe
quel programme susceptible
d'en tirer profit (statistiques, geslion
... ), soit généralement toute application
similaire à Visicalc, mais réclamant
un traitement précis
(régression, analyse factorielle, alleul
matriciel, saisies de mouvements de
stock. .. J.
Le processus de saisie/modification
ressemble à celui de Visicalc. On déplace
le curseur d'une case à une
autre dans les quatre directions el
['écran est une fenêtre qui suit le curseur
sur le tableau. Les "flèches"
permettent le déplacement el la barre
d'espacement sert de bascule entre le
sens vertical et le sens horizontaL
Toutefois, contrairement à Visicalc, la
fenêtre passe "brutalement" d'une
page à une autre.
Intégration
à d'autres programmes
Pour la réaliser, il suffit de changer
les CONST MAXUGTB (nombre de
lignes) et MAXCOLTB (nombre de
colonnes) en tête de programme et
de modifier éventuellement le type
des nombres du tableau T AB. Les
pa.ramètres à fournir pour l'appel de
la saisie sont :
Nombre maximum de colonnes :
MAXCOL (inférieur ou égal à MAX­
COLTS)
Nombre maximum de lignes : MAX­
LlG (inférieur ou égal à MAXLIGTB)
Nombre de colonnes par page :
PASCOl
Nombre de lignes par page : PASLIG
Largeur des libellés verticaux : LAR­
LlBV
Largeur des colonnes : LARGCOL
Tableau des libellés horizontaux : LH
Tableau des libellés verticaux : LV
Tableau d'entiers (long integer) : TB
(à saisir et modifier). N'oubliez pas
de remettre ce tableau à zéro en cas
de premier remplissage, ce que fait
INlT dans mon programme.
Pom's n" 9
Saisie multipage en Pascal
A noter qu'il faut que MAXCOL soit
un multiple de PASCOL et MAXLIG
un multiple de PASUG.
Remarques sur les
procédures habituelles
J'ai utilisé les procédures habituelles
déjà publiées par Pom's, auxquelles
j'ai ajouté :
• PROCEDURE EXPlO(P INTEGER;
VAR RESJNT);
Retoume RES qui a pour valeur 10 à
la puissance P.
• PROCEDURE VAL(S:STRING;VAR
VALEUR INTI;
Transforme une chaîne en un nombre
entier (même fonction que le
VAL de l'Applesoftl. Attention, il n'y
a pas de contrôle sur l'appartenance
de C à [0.:9J.
J'aurais préféré utiliser des fonctions
à la place de ces deux procédures,
ERGUN - Mode Inverse
Sortie pa, GRAFTEXT (p. 7)
Michel Lafon
mais elles m'ont refusé des INTE­
GER [N] comme résultaI.
• PROCEDURE EMPIlE(CCHAR;
VAR S5TRING);
Empile le caractère C dans la chaîne
S.
• PROCEDURE SWITCH(VAR 5
BOOlEANI;
Met S à "!rue" si S est "false" et réciproquement.
Description des
différentes procédures
PRlNlVERT : affiche < ou 6. suivant
que les flèches assurent un déplacement
horizontal ou vertical.
SAISINT(lMAXINTEGER; VAR N;
INTEGER;VAR CAR:CHAR) : fait la
saisie d'un entier et contrôle qu'il ne
dépasse pas la largeur des colonnes.
Retourne cet entier (N) et CAR qui
contient la touche tapée après le
nombre (flèches, espace, ou F).
SAISIPAGE(PREMCOl,DERCOl,
PREMLIG,DERLIG;lNTEGER) : procède
à la saisie de la page commençant
à la colonne PREMCOL, ligne
PREMUG, et finissant à la colonne
DERCOL, ligne DERLIG. Cette procédure
appelle successivement
SAUTE et SAlSINT. On en sort si
l'on touche un bord ou si l'on appuie
sur F.
CADRE : affiche le cadre de saisie et
ses libellés horizontaux et verticaux.
SAUTE : aiguille sur BAS, HAUT,
GAUCHE, DROITE. Bascule également
VERT si on a appuyé sur "espace".
BAS,HAUT,GAUCHE,DROITE : modifient
X et Y, paramètres utilisés
dans SAlS1PAGE pour positionner le
curseur, ainsi que les numéros de
lignes et de colonnes (NL et NC).
PAGEGAUCHE à PAGEBAS : modifient
les paramètres PREMLlG, DER­
LlG, PREMCOL et DERCOL. Informent
également si l'on a touché l'un
des bords du tableau (BORD est mis
à "!rue").
CORPS SAISIMUL TIPAGE : appelle
les autres - procédures jusqu'à ce
qu'on ait appuyé sur F.
41