Micro Systèmes n°20 nov/déc 1981
Micro Systèmes n°20 nov/déc 1981
  • Prix facial : 18 F

  • Parution : n°20 de nov/déc 1981

  • Périodicité : mensuel

  • Editeur : Société Parisienne d'Edition

  • Format : (213 x 271) mm

  • Nombre de pages : 232

  • Taille du fichier PDF : 177 Mo

  • Dans ce numéro : dossier sur les fibres optiques.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 122 - 123  |  Aller à la page   OK
Pages suivantes >
122 123
Fig. 2. - Le programme de mailing. L'emploi d'étiquettes autocollantes permet d'automatiser complètement cette tâche, bien trop souvent routinière que représente l'édition d'adresses. 10 REM * ETIQUETTES * 20 REM * AUTEUR  : MARC AUBRY * 30 REM * SEPTEMBRE 1981 * 40 REM * VERSION TRS BO - MODELE II * 50 CLEAR 500  : DIM Z$(308) 60 REM * PRESENTATION * 70 CLS  : PRINT CHRS(31) BO PRINT a 480, STRING$(38,CHR$(155)) 98 PRINT a 800, STRING$(38,CHR$(155)) 100 PRINT B 652,'* ETIWETTES *' ; 110 PRINT a 11281'Programme d'adresses' ; 120 PRINT a 1288, STRING$(20,CHR$(155)) 130 PRINT CHR$(02) 140 FOR 1=1 TO 2000  : NEXT  : PRINT CHR$(30) 150 PRINT a (2,16), CHR$(128)+STRING$(44,CHR$(1501)+CHR$(129) 160 PRINT a (6,17), STRING$(44,CHR$(150)) 170 PRINT a (17,16), CHR$(131)+STRING$(44,CHR$(150))+CHR$(130) 180 FOR I=1 TO 14 190 PRINT a (2+1,16), CHR$(148) PRINT î (2+1,61), CHR$(148) ; 200 NEXT 210 PRINT a (4131),'ESPACES RESERVES' ; 220 PRINT a (8,22),'CLASSE 5 CARACTERES' ; 230 PRINT a (9,22),'M./Mme/Melle 5 CARACTERES' ; 240 PRINT a (10,22),'PRENOM ET NOM 32 CARACTERES' ; 250 PRINT a (11,22),'ADRESSE 32 CARACTERES' ; 260 PRINT a (12,22),'COMPLEMENT D'ADRESSE 32 CARACTERES' ; 270 PRINT a (13,22),'CODE POSTAL ET VILLE 30 CARACTERES' ; 280 PRINT a (15,22),'TOTAL 136 CARACTERES'  : 290 PRINT a (20,24),'TAPEZ UNE TOUCHE POUR CONTINUER' ; 300 W$=INKEY$  : IF W$=" THEN 300 310 CLS 320 OPEN'R"Ill'ELEVES/TXT'330 FIELD 1, 5 AS Cil, 5 AS Mn, 32 AS NPS, 32 AS AD$, 32 AS COS, 30 AS CV$ 340 IF LOF(1)=0 THEN 390 350 FOR N=1 TO LOF(1) 360 GET 1,N 370 Z$(N)=C1$ 380 NEXT 390 CLOSE 400 REM * MENU * 410 CLS  : PRINT CHRS(31) 420 PRINT a (316),'CREATION 430 PRINT a (5,6),'MODIFICATION 2'440 PRINT î (716),'SUPPRESSION 3'450 PRINT a (916),'AFFICHAGE 4'460 PRINT @ (11,6),'IMPRESSION5'470 PRINT a (13,6),'SORTIE 6'480 PRINT a (17,10),'VOTRE CHOIX'INPUT Cl 490 IF C1=6 THEN END 500 IF C1=4 OR C1=5 THEN GOSUB 970 510 OPEN'R'Ill'ELEVES/TXT'520 FIELD 1, 5 AS Cal 5 AS MM$, 32 AS NPS, 32 AS AD$, 32 AS COS, 30 AS CV$ 530 IF C1=4 THEN 1120 540 IF C1=5 THEN 1310 - 550 REM * ENREGISTREMENT * 560 CLS  : PRINT CHR$(30) 570 IF C1=1 THEN 580ELSE 630 580 IF MEM<=1000 THEN PRINT'ATTENTION, Espace memoire limite a quelques enregistrements...'  : PRINT 590 GOSUB 830 600 N=L0F(1)+1 610 IF LOF(1)=0 THEN N=1 620 PUT 1,N  : Z$(N)=C1$  : GOTO 580 630 IF C1=2 THEN 640ELSE 720 640 INPUT'MODIFICATION (0 OU N)' ; Si 650 IF S$='N'THEN CLOSE  : GOTO 400 660 INPUT'NUMERO D'ENREGISTREMENT A MODIFIER' ; N M. FRANCK PAYER 12 RUE DU PONT 89810 AUXERRE MI » NATHALIE MICHEL APPT B 75 RESIDENCE FABRE WON AUXERRE Melle MARYVOINE CHARLES 152 AVENUE DU GAL LECLERC 18810 TROYES Mme CHRISTINE (ERGOT VILLA'LES ROSES'14 RUE DE LA GARE 18288 BAR SUR AUBE M. ERIC WATBLED 632 RESIDENCE MATHAUX 75018 PARIS Me 1 le SYLVIE DISSARD 12 AVEKE DES BRICHERES 75008 PARIS M. PHILIPPE DARMON ROUTE DE PERRIENY 89888 AUXERRE Mme JOSIANE BOURABA APPARTEMENT 64-6 15 ALLEE DU FOULON 138118 MARSEILLE Fig. I. - Une exécution du programme Etiquettes•. Tout ou simplement une partie du fichier peut être ainsi édité. 122 — MICRO-SYSTEMES Novembre-Décembre 1981
sous-ensemble du fichier. Z$ (N) prend, pour chaque article, la valeur de C 1$ qui représente la classe (N est le numéro d'enregistrement de l'article). Lors de l'affichage ou de l'impression, il suffit de vérifier la validité de Z$(N) pour déterminer si l'adresse doit être éditée, sans avoir à lire l'enregistrement. Z$(N) prend pour valeur 0 lors de la suppression d'un article. Z$(N) correspond à une chaîne de 5 caractères que l'ordinateur compare avec C2$, celui-ci représente la classe que l'utilisateur du programme désire imprimer. La matrice Z$ est de 300 adresses. Ce nombre peut bien sûr être modifié (augmenté ou diminué) selon vos besoins lors de sa déclaration à la ligne 50. En outre, la connaissance des caractères spécifiques à ce programme vous permettront d'adapter facilement ce logiciel. Les instructions de gestion de fichier du TRS 80 sont les suivantes  : — OPEN  : Ouverture du fichier en accès sélectif, numéro et nom du fichier. — FIELD  : Organisation en zones de la mémoire tampon. — CLOSE  : Fermeture du fichier. — LSET  : Remplissage de la mémoire tampon à partir de la gauche. — LOF (X)  : Dernier enregistrement effectué (X représente le numéro du fichier). — PUT  : Ecriture sélective. — GET  : Lecture sélective. Les PRINT @ de l'ensemble du programme permettent d'améliorer la présentation de l'affichage écran et peuvent être remplacés par PRINT ou PRINT TAB. Chaque mémoire tampon de fichier à accès sélectif possède 255 octets capables d'accepter des données sur le TRS 80. Les zones créées par l'instruction FIELD aux lignes 330 et 520 n'occupent, quant à elles, que 136 octets. Il est donc possible d'accroître considérablement la capacité de la disquette en créant deux sous-enregistrements de 127 octets par mémoire tampon, ce qui réduit à peine le nombre total de caractères de chaque adresse. Chaque sous-enregistrement sera alors désigné par le numéro d'enregistrement et un numéro d'ordre 1 ou 2. Il est encore beaucoup plus facile de limiter à 136 octets le nombre total de chaque mémoire tampon en utilisant l'instruction CREATE sous TRS DOS. ■ Marc Al IRRY Novembre-Décembre 1981 670 IF N>L0F(1) THEN GOTO 668 680 IF 1$(N)='0 THEN 660 690 PRINT  : GOSUB 1490 700 GOSUB 830 710 PUT 1,N  : Z$(N)=C1$  : GOTO 640 720 IF C1=3 THEN 730ELSE 820 730 INPUT'SUPPRESSION (0 OU N). ; S$ 740 IF S$='N'THEN CLOSE  : GOTO 400 750 INPUT'NUMERO D'ENREGISTREMENT A SUPPRIMER'  : N 760 IF N>L0F(1) THEN GOTO 750 770 IF Z$(N)='0 THEN 758 780 PRINT  : GOSUB 1490 790 C0$='0'800 LSET C1$=C0$ 810 PUT 1,N  : Z$(N)=C1$  : GOTO 730 820 CLOSE  : GOTO 400 830 INPUT'CLASSE (TAPEZ 0 POUR QUITTER LE MODE ENREGISTREMENT)' ; COS 840 IF C0$='0'THEN CLOSE  : GOTO 400 850 INPUT'M./Mme/Melle (1,2 OU 3)' ; M 860 IF Mn1 THEN M0$='M.'870 IF M=2 THEN Me$='Mme'880 IF M=3 THEN M0$='Melle'890 LINEINPUT'PRENOM ET NOM' ; NOS 900 LINEINPUT `ADRESSE 403 910 LINEINPUT'COMPLEMENT D'ADRESSE' ; DOS 920 LINEINPUT'CODE POSTAL ET VILLE' ; VO$ 930 LSET C1$=C0$  : LSET MM$=M0$ 940 LSET NP$=N0$  : LSET ADS=A0$ 950 LSET CO$=D0$  : LSET CW=V18 960 PRINT  : RETURN 970 REM * MODALITES D'AFFICHAGE OU D'IMPRESSION * 980 CLS  : PRINT CHR$(30) 990 PRINT î (5,10),'ENSEMBLE 1'1000 PRINT 0 (7,10),'CLASSE 2'1818 PRINT 8 (18,16)1'VOTRE CHOIX'INPUT C2 1020 IF C2=2 THEN PRINT A (13,16), "DE QUELLE CLASSE S'AGIT-IL'INPUT C25 1130 A1=LEN(C2$) 1040 A2=5-A1 1151 C2$=C2$+STRING$(A21") 1060 PRINT â (1610)1'TAPEZ SUR LA TOUCHE'HOLD'POUR STOPPER OU REPRENDRE LE DEROULEMENT'1870 PRINT a (161811'TAPEZ SUR LA TOUCHE'S'POUR SORTIR DU MODE AFFICHAGE OU IMPRESSION'10 PRINT î (22,15),'TAPEZ UNE TOUCHE POUR CONTINUER'1098 PRINT CHRS(02) 1111 W$=INKEY$  : IF W$=" THEN 11 1118 RETURN 1120 REM * AFFICHAGE * 1138 CLS 1361 IF Z$(N)<>C2$ THEN 1470 1140 FOR N=1 TO LOF(1) 1378 IF Z$(N)='0'THEN 1470 1158 GET 1,N 1380 LPRINT MMS ; " ; NP$ 1160 IF C2=2 THEN 1170ELSE 1180 1398 LPRINT AD$ 1170 IF 1$(N)<>C2$ THEN 1270 1401 IF CO$=STRING$(32,") THEN 1420 1180 IF Z$(N)='1'THEN 1270 1410 LPRINT COS 1190 PRINT N ; 'CLASSE' ; C1$ 1428 LPRINT CV$  : LPRINT CHRS(10) 1200 PRINT MMS ; " ; NPS 1430 LPRINT CHR$(11) 1218 PRINT AD$ 1448 IF Ca=STRING$(321") THEN LPRINT CHR$(10) 1220 IF CO$=STRING$(321") THEN 1248 1450 W$=INKEY$  : IF W$='S'THEN 1460ELSE 1470 1230 PRINT COS 1468 CLOSE  : GOTO 480 1240 PRINT CV$  : PRINT  : PRINT 1470 NEXT N  : CLOSE 1258 W$=INKEY$  : IF WS='S'THEN 1260ELSE 1278 1480 GOTO 480 1261 CLOSE  : GOTO 400 1498 GET 11N 1278 NEXT N  : CLOSE 1588 PRINT'CLASSE' ; GiS 1288 PRINT TAB(15)'TAPEZ UNE TOUCHE POUR CONTINUER'1510 PRINT MM ; " ; NPS 1298 W$=INKEY$  : IF W$=" THEN 1291 1520 PRINT AD$ 1301 GOTO 400 1530 IF CO$=STRING$(321") THEN 1550 1310 REM * IMPRESSION * 1540 PRINT COS 1320 CLS  : LPRINT CHR$(27) CHRS(14) 1550 PRINT CV$ 1338 FOR N=1 TO LOF(1) 1560 IF C1=3 THEN PRINT'(Article supprime...)'1340 GET 1,N 1578 PRINT 1350 IF C2=2 THEN 1360ELSE 1378 1581 RETURN MICRO-SYSTEMES — 123



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