Micro Systèmes n°29 mars 1983
Micro Systèmes n°29 mars 1983
  • Prix facial : 20 F

  • Parution : n°29 de mars 1983

  • Périodicité : mensuel

  • Editeur : Société Parisienne d'Edition

  • Format : (203 x 271) mm

  • Nombre de pages : 206

  • Taille du fichier PDF : 168 Mo

  • Dans ce numéro : Forth... un langage sans programmes.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 146 - 147  |  Aller à la page   OK
Pages suivantes >
146 147
CREATION DE FICHIER I. SUPPRESSION DE FICHIER MODIFICATION DE FICHIER AFFICHAGE CONTENUS F1CHIERS 4 *** UTILISATION e** 5 SORTIE 6 VOTRE CHOIX ? 4 - FICHIER NO 1 - UNITE DISQUE NOM FICHIER A - TELEPHONES ABREVIATION FICHEPAR NOMBRE RUBRIQUES 2 - FICHIER NO 3 - UNUE DISQUE NOM FICHIER C - ELEVES B2-83 RBREVIRTION FICHECCC NOMBRE RUBRIQUES RUBRIQUE NO 1  : NOM ET ADRESSE RUBRIQUE NO 2  : TELEPHONE• - - - LONGUEUR - LONGUEUR 50 RUBRIQUE NO 1  : NOM ET PRENOM 20 RUBRIQUE NO 2  : CLASSE LONGUEUR  : 60 - LONGUEUR  : 5 - FICHIER NO 2 - UNITE DISQUE NOM FICHIER ABREVIPTION FICHEBBB NOMBRE RUBRIQUES E ADRESSES - FICHIER NO 6 - UNITE DISQUE NQM FICHIER D - BIBLIOTHEQUE PEIEVIATION FICHBIBL NOMBRE RUBRIQUES 4 RUERI0jE NE  : PRENOM ET NOM RUBRIQUE 2  : ADRESSE RUBRIQUE NI 3 COMPLEMENT D'ADRESSE RJBRIQUE NO 4  : CODE posTntRUBRIQUE NO 5 VILLE 9LBRIQUE NO E TELEPHONE - LONGUEUR - LONGUEUR - LONGUEUR - LONGUEUR - LONGUEUR - LONGUEUR 40 40 40 S RUBRIQUE NO 1  : GENRE RUBRIQUE NO 2  : AUTEUR RUBRIQUE NO 3  : TITRE RUBRIQUE NO 4  : COLLECTION - LONGUEUR  : - LONGUEUR  : - LONGUEUR  : - LONGUEUR 20 15 TAPER UNE TOUCHE POUR CONTINUER 15 30 40 30 Fig. 2. — Affichage de la structure des fichiers. Pour chacun d'entre eux, sont précisés le nom et l'abréviation employée pour appeler ce fichier, le nombre de rubriques et leur structure. MODE CREATION === CREATION DE FICHIER SUPPRESSION DE FICHIER 2 MODIFICATION DE FICHIER AFFICHAGE CONTENUS FICHIERS...4 *** UTILISATION *** 5 SORTIE 6 VOTRE CHOIX ? 5 1 FICHIER A — TELEPHONES FICHIER B — ADRESSES FICHIER C — ELEVES 82-83 6 FICHIER D BIBLIOTHEQUE VOTRE CHOIX ? 1 CREATION D'ARTICLES 1 SUPPRESSION D'ARTICLES 2 MODIFICATION D'ARTICLES 3 AFFICHAGE 4 IMPRESSION 5 SORTIE 6 VOTRE CHOIX ? 1 === MODE CREATION === VOULEZ—VOUS QUITTER LE MODE (0/N) ? N - ARTICLE NO 48 - NOM ET ADRESSE JACQUES HENRI — TOULOUSE TELEPHONE 56 85 12 === MODE CREATION === VOULEZ—VOUS QUITTER LE MODE (0/N) ? 0 CREATION D'ARTICLES 1 SUPPRESSION D'ARTICLES 2 MODIFICATION D'ARTICLES 3 AFFICHAGE 4 IMPRESSION 5 SORTIE 6 VOTRE CHOIX ? 6 CREATION DE FICHIER 1 SUPPRESSION DE FICHIER MODIFICATION DE FICHIER AFFICHAGE CONTENUS FICH ERS 4 *** UTILISATION *** 5 SORTIE 6 VOTRE CHOIX ? 6 READY VOULEZ—VOUS QUITTER LE MODE (0/N) ? N ARTICLE NO 47 NOM ET ADRESSE JEAN DUPONT — PARIXSON TELEPHONE 56 45 14 Fig. 3. — Une session de travail dans laquelle sont introduits de nouveaux enregistrements. 146 — MICRO-SYSTEMES Mars 1983
peut par exemple éditer tous les articles ayant le même code postal ou sélectionner seulement l'un d'eux sur un autre critère. L'impression des articles a volontairement été réduite au maximum. L'utilisateur adaptera le programme en fonction de ses besoins et du matériel dont il dispose. 6 — Sortie Sortie du programme et fermeture de tous les fichiers. Le programme Ce logiciel, dont le listing est présenté figure 4, a été conçu sur TRS-80 modèle III. 11 est parfaitement possible de l'utiliser sur tous les systèmes Microsoft CP/M, à condition de supprimer (ou modifier) les instructions PRINT g et CLS qui sont spécifiques au TRS et ne concernent que l'affichage. La structure du programme est la suivante  : Lignes  : 5- 280 Présentation et initialisations. 400- 520 Menu principal. 600- 650 Création fichiers. 800- 930 Suppression fichiers 1200- 1445 Modification fichiers. 1500- 1595 Utilisation fichiers. 1600- 1680 Sous-menu. 1700- 1725 Création articles. 1800- 1875 Suppression articles. 1900- 2040 Modification articles. 2000- 2040 Affichage articles. 2100- 2135 Impression articles. 3980- 4120 Enregistrement fichiers. 4300- 4375 Lecture fichiers. 5000- 5040 Enregistrement articles. 5100- 5260 Critère de lecture articles. 12800-12820 Sortie utilisation. 1 2980-1 3030 Sortie de mode. 13500-13530 Sortie du programme. Toutes les instructions PRINT @ du programme servent à agrémenter sa présentation et peuvent être supprimées. N'oubliez pas, lors de l'exécution, de répondre à la question « How many files » ? Il convient de déclarer un fichier de plus que le nombre utilisé  : le fichier numéro 1 répertorié sous la forme « FICHPPAL/TXT » renferme toutes les déclarations préalables effectuées par l'utilisateur. ■ Marc AUBRY Fig. 4. — Le listing du programme PROCREFICHE. 5 REM *****-1,***t****-F******t.****t*,+***4 10 REM ***** PROCREFICHE ***** 20 REM * LOGICIEL DE CREPTION ET D'EXPLOITATION FICHIER= 30 REM * AUTEUR  : MARC AUBRY  : +  : 40 REM 44444***>F4**+4***i444*1• *>F444+++44i414* 50 REM * PRESENTPTION * 60 CLS  : PRINT CHR$(23) 70 PRINT 8 128, STRING$(7.1,CHR$(140)) 90 PRINT 8 460, "4 PROCREFICHE +:" 105 PRINT 8 768, STRING$(31,ChR$(140) 110 FOR I=1 TO 1500  : NEYT. 200 REM *********44****4+*44*i+44'+***4******44 210 REM *  : INITIPLISPTIONS * 220 CLEPR 1500  : DEFINT P—Z 240 OPEN "R",17"FICHPPPL/TX1:1" 250 FIELD 1,1 AS A1$,1 AS AS 81$,à PS 82$, 2 AS P3$ 260 FOR I=0 TO S 270 FIELD 1,I*22+44 AS DD$720 AS 83$(1+1),:'AS A4$(1+1) 280 NEXT 400 REM 4***+4444444***+44**444*444444444444+4 410 REM 4 MENU PRINCIPAL * 420 CLS  : PRINT CHR$(23) 430 PRINT 8 64, STRING$(71,CHR$(140)) 440 PRINT 8 192, "CREPTION DE FICHIER 1" 450 PRINT 8 256, "SUPPRESSION DE FICHIER 460 PRINT 8  : 20, "MODIFICATION DE FICHIER 7" 470 PRINT 8 384, "AFFICHAGE CONTENUS FICHIERS 4" 480 PRINT 8 448, " 444 UTILISATION +** 5" 490 PRINT 8 512, "SORTIE E" 495 PRINT 8 768, STRING$(31,CHR$(140)) 500 PRINT 8 656, "VOTRE CHOIX"1  : INPUT R1  : CLS 510 ON R1 GOTO 620,820,121`0,1420,1530,13520 520 GOTO 420 600 REMrf:*:>}: ; +  : 4  : 54.:* ›F  : 610 REM *  : CREPTION DE FICHIER *  : 620 PRINT "=== MODE CREPTION ===" 625 GOSUB 13000  : IF Re="o" THEN 4:0 630 C1=L0F(1)+1  : PRINT  : PRINT "- FICHIER NO" ; Cl ; "-" 650 GOSUB 4000  : CLS  : GOTO 620 800 REM **1.444********4,1.*****4******4.+*+4**4+4 810 REM *  : SUPPRESSION DE FICHIER *  : 8.,20 PRINT "=== MODE SUPPRESSION ===" 830 GOSUB 13000  : IF R$="0" THEN 420 840 INPUT "NUMERO DU FICHIER A SUPPRIMER" ; Ci 850 IF C1>L0F(1) THEN 920 860 GET 1,C1  : IF P1$="0" THEN 91.0 870 PRINT  : PRINT TP8(5) "FICHIER NO" ; Ci 880 PRINT 81$  : PRINT 890 PRINT TPB(5) "44444 FICHIER SUPPRIME ****+" 900 FOR I=1 TO 1:'00  : NEXT  : LSET P1$="0" Mars 1983 MICRO-SYSTEMES — 147 PROG RAMMES



Autres parutions de ce magazine  voir tous les numéros


Liens vers cette page
Couverture seule :


Couverture avec texte parution au-dessus :


Couverture avec texte parution en dessous :


Micro Systèmes numéro 29 mars 1983 Page 1Micro Systèmes numéro 29 mars 1983 Page 2-3Micro Systèmes numéro 29 mars 1983 Page 4-5Micro Systèmes numéro 29 mars 1983 Page 6-7Micro Systèmes numéro 29 mars 1983 Page 8-9Micro Systèmes numéro 29 mars 1983 Page 10-11Micro Systèmes numéro 29 mars 1983 Page 12-13Micro Systèmes numéro 29 mars 1983 Page 14-15Micro Systèmes numéro 29 mars 1983 Page 16-17Micro Systèmes numéro 29 mars 1983 Page 18-19Micro Systèmes numéro 29 mars 1983 Page 20-21Micro Systèmes numéro 29 mars 1983 Page 22-23Micro Systèmes numéro 29 mars 1983 Page 24-25Micro Systèmes numéro 29 mars 1983 Page 26-27Micro Systèmes numéro 29 mars 1983 Page 28-29Micro Systèmes numéro 29 mars 1983 Page 30-31Micro Systèmes numéro 29 mars 1983 Page 32-33Micro Systèmes numéro 29 mars 1983 Page 34-35Micro Systèmes numéro 29 mars 1983 Page 36-37Micro Systèmes numéro 29 mars 1983 Page 38-39Micro Systèmes numéro 29 mars 1983 Page 40-41Micro Systèmes numéro 29 mars 1983 Page 42-43Micro Systèmes numéro 29 mars 1983 Page 44-45Micro Systèmes numéro 29 mars 1983 Page 46-47Micro Systèmes numéro 29 mars 1983 Page 48-49Micro Systèmes numéro 29 mars 1983 Page 50-51Micro Systèmes numéro 29 mars 1983 Page 52-53Micro Systèmes numéro 29 mars 1983 Page 54-55Micro Systèmes numéro 29 mars 1983 Page 56-57Micro Systèmes numéro 29 mars 1983 Page 58-59Micro Systèmes numéro 29 mars 1983 Page 60-61Micro Systèmes numéro 29 mars 1983 Page 62-63Micro Systèmes numéro 29 mars 1983 Page 64-65Micro Systèmes numéro 29 mars 1983 Page 66-67Micro Systèmes numéro 29 mars 1983 Page 68-69Micro Systèmes numéro 29 mars 1983 Page 70-71Micro Systèmes numéro 29 mars 1983 Page 72-73Micro Systèmes numéro 29 mars 1983 Page 74-75Micro Systèmes numéro 29 mars 1983 Page 76-77Micro Systèmes numéro 29 mars 1983 Page 78-79Micro Systèmes numéro 29 mars 1983 Page 80-81Micro Systèmes numéro 29 mars 1983 Page 82-83Micro Systèmes numéro 29 mars 1983 Page 84-85Micro Systèmes numéro 29 mars 1983 Page 86-87Micro Systèmes numéro 29 mars 1983 Page 88-89Micro Systèmes numéro 29 mars 1983 Page 90-91Micro Systèmes numéro 29 mars 1983 Page 92-93Micro Systèmes numéro 29 mars 1983 Page 94-95Micro Systèmes numéro 29 mars 1983 Page 96-97Micro Systèmes numéro 29 mars 1983 Page 98-99Micro Systèmes numéro 29 mars 1983 Page 100-101Micro Systèmes numéro 29 mars 1983 Page 102-103Micro Systèmes numéro 29 mars 1983 Page 104-105Micro Systèmes numéro 29 mars 1983 Page 106-107Micro Systèmes numéro 29 mars 1983 Page 108-109Micro Systèmes numéro 29 mars 1983 Page 110-111Micro Systèmes numéro 29 mars 1983 Page 112-113Micro Systèmes numéro 29 mars 1983 Page 114-115Micro Systèmes numéro 29 mars 1983 Page 116-117Micro Systèmes numéro 29 mars 1983 Page 118-119Micro Systèmes numéro 29 mars 1983 Page 120-121Micro Systèmes numéro 29 mars 1983 Page 122-123Micro Systèmes numéro 29 mars 1983 Page 124-125Micro Systèmes numéro 29 mars 1983 Page 126-127Micro Systèmes numéro 29 mars 1983 Page 128-129Micro Systèmes numéro 29 mars 1983 Page 130-131Micro Systèmes numéro 29 mars 1983 Page 132-133Micro Systèmes numéro 29 mars 1983 Page 134-135Micro Systèmes numéro 29 mars 1983 Page 136-137Micro Systèmes numéro 29 mars 1983 Page 138-139Micro Systèmes numéro 29 mars 1983 Page 140-141Micro Systèmes numéro 29 mars 1983 Page 142-143Micro Systèmes numéro 29 mars 1983 Page 144-145Micro Systèmes numéro 29 mars 1983 Page 146-147Micro Systèmes numéro 29 mars 1983 Page 148-149Micro Systèmes numéro 29 mars 1983 Page 150-151Micro Systèmes numéro 29 mars 1983 Page 152-153Micro Systèmes numéro 29 mars 1983 Page 154-155Micro Systèmes numéro 29 mars 1983 Page 156-157Micro Systèmes numéro 29 mars 1983 Page 158-159Micro Systèmes numéro 29 mars 1983 Page 160-161Micro Systèmes numéro 29 mars 1983 Page 162-163Micro Systèmes numéro 29 mars 1983 Page 164-165Micro Systèmes numéro 29 mars 1983 Page 166-167Micro Systèmes numéro 29 mars 1983 Page 168-169Micro Systèmes numéro 29 mars 1983 Page 170-171Micro Systèmes numéro 29 mars 1983 Page 172-173Micro Systèmes numéro 29 mars 1983 Page 174-175Micro Systèmes numéro 29 mars 1983 Page 176-177Micro Systèmes numéro 29 mars 1983 Page 178-179Micro Systèmes numéro 29 mars 1983 Page 180-181Micro Systèmes numéro 29 mars 1983 Page 182-183Micro Systèmes numéro 29 mars 1983 Page 184-185Micro Systèmes numéro 29 mars 1983 Page 186-187Micro Systèmes numéro 29 mars 1983 Page 188-189Micro Systèmes numéro 29 mars 1983 Page 190-191Micro Systèmes numéro 29 mars 1983 Page 192-193Micro Systèmes numéro 29 mars 1983 Page 194-195Micro Systèmes numéro 29 mars 1983 Page 196-197Micro Systèmes numéro 29 mars 1983 Page 198-199Micro Systèmes numéro 29 mars 1983 Page 200-201Micro Systèmes numéro 29 mars 1983 Page 202-203Micro Systèmes numéro 29 mars 1983 Page 204-205Micro Systèmes numéro 29 mars 1983 Page 206