home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 572 / xgrafic2 / demos / gesdisk.pas < prev    next >
Pascal/Delphi Source File  |  1994-07-21  |  6KB  |  177 lines
  1. {UN PROGRAMME NON FINI}
  2. {MAIS QUI PERMET DE MONTRER L'UTILISATION DES FONCTIONS DE XGRAPHIC}
  3.  
  4. program GESDISK;
  5.  
  6. USES crt,dos, XGRAPHIC;
  7.  
  8.  
  9. var an,mois,jour,jrsem,h,m,s,c : word;
  10.     chan,chmois,chjour,chh,chm,chs : string;
  11.     passage, boucle : integer;
  12.     consult, impress : integer;
  13.     nom : string;
  14.     nume, erreur,n : integer;
  15.     ch : string;
  16.  
  17. {déclaration des variables contenant les informations saisies}
  18. var numero : string[6];
  19.     format : string[1];
  20.     typ : string;
  21.     libelle : string[35];
  22.     descrip : string[40];
  23.     systeme : string[20];
  24.     confirm : string;
  25.  
  26.  
  27. BEGIN
  28.  
  29.   modevga480;
  30.   initsouris;
  31.   affichepcx('gesdisk.pcx');
  32.   choisirpolice(2,6);
  33.   cadre3d(180,60,450,125,1);
  34.   icone(190,70,440,115,7,16,15,' GESTION DES DISQUETTES');
  35.   cadre3d(200,280,440,390,7);
  36.   choisirpolice(0,3);
  37.   texte3d(235,290,16,15,'GESDISK');
  38.   line3d(207,315,433,315,16,15);
  39.   choisirpolice(0,1);
  40.   EffetChaine(210,10,15,'DOMINIQUE DELAIRE');
  41.   EffetChaine(105,20,15,'Réalisé avec XGRAPHIC pour turbo pascal');
  42.   EffetChaine(260,30,15,'(C) 1994');
  43.   choisirpolice(2,5);
  44.   GetDate(An, Mois, Jour, Jrsem);
  45.   str(an,chan);
  46.   str(mois,chmois);
  47.   str(jour,chjour);
  48.   EffetChaine(60,218,11,chjour+'/'+chmois+'/'+chan);
  49.   gettime(h,m,s,c);
  50.   str(h,chh);
  51.   str(m,chm);
  52.   str(s,chs);
  53.   EffetChaine(450,218,11,chh+':'+chm+':'+chs);
  54.   choisirpolice(0,1);
  55.   texte(250,330,5,'VOTRE NOM, s.v.p.');
  56.   nom := saisiechaine3din(10,270,360,16,14);
  57.   affichesouris;
  58.   boucle := 0;
  59.   passage := 0;
  60.   while boucle = 0
  61.   do begin
  62.      if passage = 0
  63.      then begin
  64.         cachesouris;
  65.         efface;
  66.         fenetre3d(10,10,630,400,1,16,11,'* GESTION DES DISQUETTES *       Utilisé par '+nom+' le '+chjour+'/'+chmois+'/'+chan);
  67.         panneau3d(530,410,630,450,9);
  68.         panneau3din(535,415,625,445,14);
  69.         panneau3d(30,50,130,80,16);
  70.         panneau3d(140,50,240,80,16);
  71.         panneau3d(250,50,350,80,16);
  72.         choisirpolice(2,5);
  73.         menu3d(360,50,460,80,1,15,'CONSULTATION');
  74.         menu3d(470,50,570,80,1,15,' IMPRESSION');
  75.         texte(52,60,15,'CREATION');
  76.         texte(147,60,15,'MODIFICATION');
  77.         texte(257,60,15,'SUPPRESSION');
  78.         choisirpolice(0,1);
  79.         icone(580,50,610,80,8,11,1,'?');
  80.         panneau3d(40,120,600,380,7);
  81.         panneau3din(50,130,590,370,7);
  82.         line3d(51,150,589,150,16,15);
  83.         panneau3d(530,410,630,450,9);
  84.         panneau3din(535,415,625,445,14);
  85.         choisirpolice(2,5);
  86.         texte(540,422,16,'RETOUR DOS');
  87.         ScrollObjetHoriz(530,410,630,450,20,0,16);
  88.         panneau3d(530,410,630,450,9);
  89.         panneau3din(535,415,625,445,14);
  90.         texte(545,422,16,'DOS SHELL');
  91.         ScrollObjetHoriz(530,410,630,450,140,0,16);
  92.         choisirpolice(0,1);
  93.  
  94.         affichesouris;
  95.         passage := 1;
  96.      end;
  97.  
  98.       { SI L'UTILISATEUR SELECTIONNE L'OPTION CREATION}
  99.       if clickobjet(30,50,130,80) = 1
  100.       then begin
  101.           texte(90,140,1,'** S A I S I E   D " U N   N O U V E A U   T I T R E **');
  102.           texte3d(70,170,16,15,'NUMERO DISQUETTE :');
  103.           texte3d(70,200,16,15,'             NOM :');
  104.           texte3d(70,230,16,15,'     DESCRIPTION :');
  105.           texte3d(70,260,16,15,'          FORMAT :');
  106.           texte3d(70,270,1,11,'         (0 = 3p½)');
  107.           texte3d(70,280,1,11,'         (1 = 5p¼)');
  108.           texte3d(70,300,16,15,'         SYSTEME :');
  109.           texte3d(70,330,16,15,'            TYPE :');
  110.           texte3d(250,320,1,11,'0:SGBD 1:Bureautique 2:Santé 3:Education');
  111.           texte3d(250,330,1,11,'4:Graphisme 5:Jeu 6:Programmation 7:Divers');
  112.           numero := '';
  113.           while (numero = '')
  114.           do begin
  115.             numero := saisiechaine3d(6,220,165,7,16);
  116.           end;
  117.  
  118.           libelle := saisiechaine3din(35,220,195,1,15);
  119.           descrip := saisiechaine3din(40,220,225,1,15);
  120.           format := '';
  121.           while (format <> '0') and (format <> '1')
  122.           do begin
  123.             format := saisiechaine3din(1,220,255,1,15);
  124.           end;
  125.           systeme := saisiechaine3din(20,220,295,1,15);
  126.           typ := '12';
  127.           while (typ <> '0') and (typ <> '1') and (typ <> '2') and (typ <> '3')
  128.             and (typ <> '4') and (typ <> '5') and (typ <> '6') and (typ <> '7')
  129.           do begin
  130.              typ := saisiechaine3din(1,220,325,1,15);
  131.           end;
  132.           texte3d(360,350,16,15,'Confirmation (O/N) :');
  133.           confirm := '';
  134.           while (confirm <> 'O') and (confirm <> 'N') and (confirm <> 'o') and (confirm <> 'n')
  135.           do begin
  136.             confirm := saisiechaine3din(1,530,345,7,1);
  137.           end;
  138.  
  139.         passage := 0;
  140.       end;
  141.  
  142.      if clickobjet(360,50,460,80) = 1
  143.      then begin
  144.         affoption3d(1,360,50,460,80,7,16,'PAR N°');
  145.         affoption3d(2,360,50,460,80,7,16,'PAR NOM');
  146.         affoption3d(3,360,50,460,80,7,16,'PAR TYPE');
  147.         if Attseloption(3,360,50,460,80) = 0
  148.         then passage := 0;
  149.      end;
  150.  
  151.      if clickobjet(470,50,570,80) = 1
  152.      then begin
  153.         affoption3d(1,470,50,570,80,7,16,'PAR N°');
  154.         affoption3d(2,470,50,570,80,7,16,'PAR NOM');
  155.         affoption3d(3,470,50,570,80,7,16,'PAR TYPE');
  156.         if attseloption(3,470,50,570,80) = 0
  157.         then passage := 0;
  158.      end;
  159.  
  160.  
  161.      if (fermeturefenetre3d(10,10,630,400,16) = 1) or (clickobjet(20,410,120,450) = 1)
  162.      then begin
  163.          finmodegraphique;
  164.          halt;
  165.      end;
  166.   end;
  167.  
  168.  
  169. END.
  170.  
  171.  
  172.  
  173.  
  174.  
  175.  
  176.  
  177.