★ CODING ★ CLASSEURS WEKA ★ Comment exploiter toutes les ressources et augmenter les performances de votre AMSTRAD CPC ★

4/1.2.05 - Gestion de donnéesCoding Classeurs Weka
4/0 - Langages du CPC

4/1 - Locomotive BASIC : Définitions et rappels de base

4/1.2 Version 1.0 sur CPC 464 : Mots clés et leur utilisation

V. Gestion de données
DATA < une ou plusieurs constantes >

Définit des données constantes à l'intérieur d'un programme. Ces données seront lues par la commande « READ » et le pointeur de données pourra être réajusté par la commande « RESTORE ».

Reportez-vous à ces commandes pour avoir plus de détails.

Les données sont séparées par le caractère « virgule ».

Remarque :

Si une donnée alphanumérique comporte un ou plusieurs des signes suivants : Virgule ou séparateur « : », elle doit être obligatoirement encadrée de doubles côtes dans un « DATA ».

10 READ A$, B$, C$
20 DATA "Fonction : Supprime"
30 DATA "Le caractere le plus a droite, et repositionne"
40 DATA "Le curseur en début de ligne"

UtilisationVous voulez créer un masque de saisie qui comporte n libellés. Appelons ces libellés li (avec i compris entre 1 et n). Ils doivent être affichés aux coordonnées X1 i, Y1 i et le remplissage des champs associés doit se faire aux coordonnées X2I, Y2I.

Au lieu de répéter n fois les séquences

LOCATE X1I, Y2I : PRINT LI 'Affichage d'un libelle et
LOCATE X2I, Y2I : INPUT Cl 'Entree d'un champ

Vous pourrez faire :

110 CLS
120 READ NL 'Nombre de libelles
130 DIM C$[NL] 'Dimensionnement tableau des champs
140 FOR I=1 TO NL
150 READ Y1, X1, L1$ 'Lecture pos libelles et libelles
160 LOCATE X1, Y1 : PRINT Ll$ 'Affichage libelles
170 NEXT I
180 FOR I=1 TO NL
190 READ Y2, X2
200 LOCATE X2, Y2 : INPUT C$[l] 'Lecture des champs
210 NEXT I
220 'Traitement
230 DATA 4
240 DATA 1,5,Nom,2,5,Prénom,3,5,Age,4,5,Adresse
250 DATA 1,13,2,13,3,13,4,13

Autre utilisationDans un jeu d'aventures où l'opérateur peut entrer ses commandes sous

la forme « VERBE SUJET » (par exemple : « RAMASSER BATON »), vous voulez définir le dictionnaire des mots (verbes, sujets) qui seront interprétables par la machine :

100 READ NV 'Nombre de verbes dans le dictionnaire
110 DIM VE$(NV) 'Dimensionnement du tableau des verbes
120 FOR I=1 TO NV
130 READ VE$(I)
140 NEXT I
150 READ NS 'Nombre de sujets dans le dictionnaire
160 DIM SU$(NS) 'Dimensionnement du tableau des sujets
170 FOR I = 1 TO NS
180 READ SU$(I)
190 NEXT I
1000 DATA NV 'Déclaration du nombre de verbes
1010 DATA libelles des verbes
1020 DATA NS 'Déclaration du nombre de sujets
1030 DATA libelles des sujets

READ < libellé de la ou des variable(s) à lire >

Lit une ou plusieurs donnée(s) à partir du pointeur de lecture. Ces données seront stockées dans les variables spécifiées. La commande « READ » est associée aux commandes « DATA » et « RESTORE ». Pour plus de détails, reportez-vous à ces commandes.

UtilisationVoir la commande « DATA ».
RESTORE [< N° de ligne >]

Force le pointeur de prochaine donnée à lire

  • sur la première déclaration « DATA » si « RESTORE » est utilisé sans argument,
  • à la ligne spécifiée si « RESTORE » est utilisé avec argument.
UtilisationVous écrivez un programme musical qui comporte N morceaux. Un menu

permet d'exécuter un des morceaux. Les données (pour activer l'ordre « SOUND ») sont écrites sous forme de « DATA ».

Le programme pourra avoir la structure suivante :

1000 'Affichage du menu
1010 'et choix d'un morceau
1020 'Soit « M » ce morceau
2000 FOR I=1 TO N
2010 READ LIGNE(I) 'N° de ligne ou commence chaque morceau
2020 NEXT I
2030 RESTORE LIGNE(M) 'Pos. du pointeur de donnees
2040 READ NN 'Nombre de notes dans le morceau
2050 FOR I=1 TO NN
2060 'Activation de l'ordre SOUND
2070 NEXT I
2080 GOTO 1000 'Retour au menu
3000 DATA définition des N° de lignes de début de notes
3010 DATA nombre de notes morceau 1
3020 DATA notes du morceau 1
3030 DATA nombre de notes morceau 2
3040 DATA notes du morceau 2
3050 etc.

Page précédente : 4/1.2.04 - Manipulation de chaînes de caractères
Je participe au site:

» Vous avez remarqué une erreur dans ce texte ?
» Aidez-nous à améliorer cette page : en nous contactant via le forum ou par email.

CPCrulez[Content Management System] v8.732-desktop/c
Page créée en 476 millisecondes et consultée 1105 fois

L'Amstrad CPC est une machine 8 bits à base d'un Z80 à 4MHz. Le premier de la gamme fut le CPC 464 en 1984, équipé d'un lecteur de cassettes intégré il se plaçait en concurrent  du Commodore C64 beaucoup plus compliqué à utiliser et plus cher. Ce fut un réel succès et sorti cette même années le CPC 664 équipé d'un lecteur de disquettes trois pouces intégré. Sa vie fut de courte durée puisqu'en 1985 il fut remplacé par le CPC 6128 qui était plus compact, plus soigné et surtout qui avait 128Ko de RAM au lieu de 64Ko.