Micro Systèmes n°95 mars 1989
Micro Systèmes n°95 mars 1989
  • Prix facial : 30 F

  • Parution : n°95 de mars 1989

  • Périodicité : mensuel

  • Editeur : Société Parisienne d'Edition

  • Format : (203 x 271) mm

  • Nombre de pages : 200

  • Taille du fichier PDF : 163 Mo

  • Dans ce numéro : RNIS, l'avenir des réseaux.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 182 - 183  |  Aller à la page   OK
Pages suivantes >
182 183
Listing de LIST.PAS. page (Cette procédure permet de saisir le nom du fichier à lister. Orocedure SaisieNomFichier (ar NomFichier : string ; var ESC : boolean begin I SaisieNomFichier) TextColor(7 ! ; manuel:=true : write(1113. Nom du fichier à lister (RETURN pour abandonner ! : clreol ; ISY-) readln(NomFichier) ; I4V+} if NomFichier= then ESC:=true else ESC:=false ; end ; SaisieNomFichier Cette fonction retourne un booléen QUI indique si le fichier demande existe ou non. Function Exist(NomFichier : string1 : boolean ; var trouve : SearchRec ; begin (Exist t FindFirst(NomFichier.AnyFile.trouve1 ; if DosError=0 then Exist:=true else Exist:=false ; end ; (Exist Partie principale du programme. beqin list) îextColor(7) ; TextBackground(0) : ESC : =false ; sortir : =false ; resaisir : =false : if paramcount=0 then manuel:=true else manuel:=false : repeat if manuel then beun ulrScr ; gotoxy(27,1 ! : writeln (LIST : listing d un source ! : gotoxy(27,2) ; writeln1 : writeln ; PartC1s ; SaisieNomFichier NomFichier,ESC1 ; endeise NomFichier:=paramstr(1) ; p:=pos(.',NomFichier) ; if p=0 then NomFichier:=NomFichier+ExtFichier ; for n:=I to length(NomFichier ! do NomFichierTra:=UpCase(NomFichierEnli ; if not ESC then if not exist ! NomFichier ! then if manuel then erreurl(resaisiri else begin erreur2 ; hait : end else begin if manuel then begin resaisirf=false : Nouvelles instructions du Turbo Pascal 4.0 Le programme LIST.PAS utilise de nouvelles instructions fournies par le Turbo Pascal 4.0. En voici la liste : — GETDATE permet de connaître la date du système (année, mois, jour, jour de la semaine). — GETTIME permet de connaître l'heure du système (heure, minutes, secondes, 100e de secondes). — FINDFIRST recherche le premier fichier correspondant aux nom et attribut demandés. Si un fichier est trouvé, la variable système DO- SERROR retourne la valeur 0, sinon elle retourne un code d'erreur. Mode d'emploi de List Une fois le programme saisi puis compilé sur disque, on obtient un fichier nommé LIST.EXE qu'il suffit d'appeler depuis le prompt du DOS. Si un nom est passé en paramètre, le fichier correspondant est recherché par le programme puis listé ; dans le cas contraire, le nom est demandé à l'utilisateur. Le nom du fichier peut contenir son chemin d'accès, par exemple : LIST C:/SOURCES/ES- SAI.PAS Si le nom du fichier ne comprend pas d'exten- 182 — MICRO-SYSTEMES Mars 1989
LIEting de LISI.F14S, page 4. wrIteln ; writelnUPositionnez votre imprimante en début de pale, writeln (puis appuyez sur 117J.i ; writeln ; writeln (ESC pour sortir, ? pet ch:=readkey : untel ch in [#11,#27] ; ii ch.427 tnen sortir:=true else sorti » : =ialse ; end ; - not sortir then begin DateL:.date : TimeL:=time ; 1+ manuel then FartEls ; writeln, - Listing de.NomFichier) ; writeln, En cours... writein Appuyez sur une touche pour arrêter., ; , F1,-hki ! ter.NomFichier ; sp,t,tb,4 F1,h4Listerbul-fi, es.tiFIch,4_Ister- :,.vite,Lst,Chainelnit) ; clmoteurl.:=, :.nnoteorF:=U ; , T,ge:=1 ; d not sortir then elle mot sortir, and not EOFFichiLister ! do begin 1+ keyoressed tnen becjin writeA13, i4rret du listing, 040,) repent ch:=readke.y ; untel ch in [1 :.o,'N, n] ; writWoCasech ; 14 ch in l 0. o] arret qemande te., b.ein sortir:=true ; write#13, wrret ou listing, ClrEol ; wnte, Lst.Chainelnit) : endeise begin 9.toy,l.where, CirEol ; end : end 1 1+ evpressed : =1=e Pegu, t+ Compteurh".0 then begin LigneEis:. Le qateL, à +limeL : strpage,ligne ; iigne:= Listing de +NomFichier page +ligne ; 11,opoligne-,. +esoaces+espaces+espaces,I.LongMax-length(LigneNisP+Lignebis ; writelrH_st.119ne, ; writein(Lstl end : readfr, FichkLister,tignel writelrH_st,.1ignei ; Comptert:=CompteurL41 :r,ompteurP:=CompteurP,1 ; wr,t,.#1 : ligne, CompteurL : if EompteurP=MaLignes then beqin st. p.cie, l me, : ligne:=Nomficnier+. page +lire+ Suite... ; ligne:=copvespaces+espaces+espaces,I.LongMax-lengthllignei)+1igne ; writeln, Lt : write, Lst.ligne ; write(Lst,Itli ; C,ompteurP:=(, ; page:=page41 ; end ; sion, la constante ExtFichier lui est automatique- ment ajoutée. Cette constante est initialisée avec «.PAS » dans le listing présenté mais elle peut être modifiée ; pou cela, il suffit de remplacer la déclaration dans le programme puis de re- compiler celui-ci. Elle peut, par exemple, avoir la forme suivante ExtFichier = «.0 » ; si l'utilisateur liste principalement des sources écrits en langageC. Il est possible d'interrompre le listing en appuyant sur une touche quelconque. Pour reprendre, il suffit de répondre « N » à la question « Arrêt du listing ? », si- non répondre « O ». r A la fin de son travail, l'imprimante se trouve au début d'une nouvelle feuille, ce qui permet de réaliser plusieurs listings sans avoir à repositionner le papier à chaque fois. Ce programme est prévu pour des feuilles de 11 pouces ; pour une utilisation avec des feuilles de 12pouces, il faut modifier la déclaration de la constante MaxLignes comme suit : MaxLignes = 89 ; On obtient donc 89 lignes par page avec des feuilles de 12 pouces. N.B. ; Le listing joint dans le dossier est réalisé par le programme LIST PAS. Mars 1989 MICRO-SYSTEMES — 183



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