Interface graphique en ADA

Interface graphique en ADA - Ada - Programmation

Marsh Posté le 19-01-2006 à 11:21:42    

Voila, j'aimerais bien pouvoir faire des interface graphique avec ADA. Je sait qu'il existe Adagraph et GTKada mais je n'arrive pas a installer, Ni l'un ni l'autre. :??:

Reply

Marsh Posté le 19-01-2006 à 11:21:42   

Reply

Marsh Posté le 19-01-2006 à 13:35:50    

J'oubliait, j'ai windowx XP et j'ai installer Adagide qui marche sans problème avec le compilateur GNAT3.15.

Reply

Marsh Posté le 22-01-2006 à 15:43:51    

C'est parfait, ça, si tu sais utiliser les packages, télécharge le package jwel.
 
Tu trouvera facilement sur mister Google,
 
Par ailleurs, ton sujet avait déjà été traité ici, fais une p'tite recherche avant la prochaine fois ;)
 
Le sujet ici

Reply

Marsh Posté le 22-01-2006 à 23:19:33    

Non mais en fait, j'aimerais bien trouver quelqu'un qui puisse m'expliquer clairement, parce que je suis mauvais, comment on installe tout ca et comment on s'en sert avec adagide.

Reply

Marsh Posté le 22-01-2006 à 23:26:20    

Clairement il n'y a rien à installer, tu dois tout d'abord te procurer le package jwel, ce sont des fichiers .ada, .adb ...
 
Ce sont des procédures et des types déjà écrit, tu les utilisera juste comme tu utilise la fonction: put("bonjour" ) par exemple.
 
La fonction put est dans le package ada.text_io; que tu appelle au début de tes programmes en général je suppose.
 
La ça sera pareil, tu mettra un use ada.jwel ou un truc comme ça et dans ton code tu appelera des fonctions de ce package.
 
Jusque là tu comprends?
 
Sais tu utiliser des packages?

Reply

Marsh Posté le 23-01-2006 à 15:04:18    

Oui oui oui, jusque la, il y a pas de problème. Je sait qu'il faut donner les packet au début d'un programme.
 
Donc, la, j'ai telecharger le derniere version de jewl (la1.6).
 
Dans le zip, il y a des exemples. mais quand j'essaye de compiler, il me dis qu'il trouve pas le fichier jewl.ads
 
alors du coup, j'ai regarder un peu ce que j'avait dans l'archive et j'ai vu qu'il y avait un dossier source et dans ce dossier, il y avait le truc jewl.ads.
Alors je l'ai copier dans le repertoire ou était enregistrer l'exemple. Et la, MIRACLE, il a compiller !!!!!!!
 
Donc, j'ai essayer de faire build, mais la, c le compilateur (soit GNAT) qui râââââle, il dis qu'il trouve pas le fichier jewl.adb, il met :gnatmake:"jewl.adb" not found.
 
Je sait, qu'il existe une commande gnatmake qu'on peut utiliser avec l'invité de commande. C'est peut etre ca...

Reply

Marsh Posté le 23-01-2006 à 23:22:13    

Décompresse toute ton archive dans un dossier avec tous ces fichiers sinon il va gueuler à chaque fois que tu vas appeler un fichier différent.
 
Si la compilation marche il n'y a pas de raisons que la construction ne fonctionne pas...
 
Sert toi des exemples après pour utiliser les fonction de jewel :)
Ca devrait t'avancer pas mal ça.

Reply

Marsh Posté le 24-01-2006 à 00:49:45    

Non mais le problème c'est que meme les exemples, j'arrive pas a les construire !!! En plus, il demande le fichier jew.adb mais je le trouve pas

Reply

Marsh Posté le 24-01-2006 à 17:54:21    

Euh... c'est bizarre, peut être que ton archive est imcomplète.
 
Télécharge une autre version pour voir, des fois ça vient de pas grand chose ;)

Reply

Marsh Posté le 24-01-2006 à 20:08:44    

uéééééééééééé ca marche. J'ai fait un gnatmake dans l'invité de commande sur jewel-io.adb et ca a marcher !!!

Reply

Marsh Posté le 24-01-2006 à 20:08:44   

Reply

Marsh Posté le 25-01-2006 à 10:21:08    

Ok! ben c'est bien comme ça alors :)
 
J'ai un petit exemple d'un programme de simulation d'un jeu de belote (rien de bien merveilleux qu'on nous avait demandé de faire).
Recopie le et execute le, ça peut te donner une idée du genre de trucs de base qu'on peut faire, désolé mais il est pas commenté, je pense que tu comprendra :)
C'est un pote qui l'a écrit.
 

Code :
  1. with Jewl.Simple_Windows;
  2. use  Jewl.Simple_Windows;
  3. with Jewl.Io; use Jewl.Io;
  5. procedure Belotejwl is
  6.    
  8.    Bienvenue_Casse : Font_Type := Font("Time new Roman",16, True, False);
  9.    version_casse : font_type := font("Comic sans MS", 8, false, true);
  11.    Bienvenue : Dialog_Type := Dialog(230,200,"Bienvenue", 'B');
  12.    Welcome : Label_type := Label(Bienvenue, (10,10), 200, 230, "Bienvenue dans le programme Belote", center, bienvenue_casse);
  13.    Start : Button_Type := Button(Bienvenue, (10,100), 200, 60, "Commencer", 'S');
  14.    Version : Label_Type := Label(Bienvenue, (10, 70), 200, 20, "Version 0.1 beta.", Center, Version_Casse);
  15.  
  16.    Ask_atout : Dialog_Type := Dialog(230,200,"Atout", 'A');
  17.    Ask_atout_label : Label_type := Label(Ask_atout, (10,10), 200, 230, "Quel est l'atout de la partie ?", center);
  18.    Valider : Button_Type := Button(Ask_atout, (10,100), 200, 60, "Valider", 'V');
  20.    My_Frame : Frame_Type  := Frame(230, 580, "Belote", 'Q');
  21.  
  22.    Carte1 : Label_type := Label(My_Frame, (10,10), 100, 400, "Carte 1" );
  23.    Coul1 : Combobox_type := Combobox(My_Frame, (10,30), 200, false);
  24.    Haut1 : Combobox_Type := Combobox(My_Frame, (10,60), 200, false);
  25.  
  26.    Carte2 : Label_type := Label(My_Frame, (10,100),100, 400, "Carte 2" );
  27.    Coul2 : Combobox_type := Combobox(My_Frame, (10,120), 200, false);
  28.    Haut2 : Combobox_Type := Combobox(My_Frame, (10,150), 200, False);
  29.  
  30.    Carte3 : Label_type := Label(My_Frame, (10,190), 100, 400, "Carte 3" );
  31.    Coul3 : Combobox_type := Combobox(My_Frame, (10,210), 200, false);
  32.    Haut3 : Combobox_Type := Combobox(My_Frame, (10,240), 200, False);
  33.  
  34.    Carte4 : Label_type := Label(My_Frame, (10,280), 100, 400, "Carte 4" );
  35.    Coul4 : Combobox_type := Combobox(My_Frame, (10,300), 200, false);
  36.    Haut4 : Combobox_Type := Combobox(My_Frame, (10,330), 200, False);
  37.  
  38.    Atout_label : Label_type := Label(My_Frame, (10,380), 100, 400, "Atout de la partie" );
  39.    Atout : Combobox_type := Combobox(My_Frame, (10,400), 200, false);
  40.  
  41.    Calculer : Button_Type := Button(My_Frame, (10,440), 200, 100, "Calculer les points", 'C');
  42.  
  44.    Points : Integer;
  45.  
  46. -- ------------------------------------------------- OK --
  47.    function Ok return Boolean is
  48.      
  49.       Pas_Double : Boolean:=true;
  50.    
  51.    begin
  52.       if (Get_Line(Coul1)=Get_Line(Coul2) and Get_Line(Haut1)=Get_Line(Haut2))
  53.             or (Get_Line(Coul1)=Get_Line(Coul3) and Get_Line(Haut1)=Get_Line(Haut3))
  54.             or (Get_Line(Coul1)=Get_Line(Coul4) and Get_Line(Haut1)=Get_Line(Haut4))
  55.             or (Get_Line(Coul2)=Get_Line(Coul3) and Get_Line(Haut2)=Get_Line(Haut3))
  56.             or (Get_Line(Coul2)=Get_Line(Coul4) and Get_Line(Haut2)=Get_Line(Haut4))
  57.             or (Get_Line(Coul3)=Get_Line(Coul4) and Get_Line(Haut3)=Get_Line(Haut4))
  58.                 then pas_double:=false; end if;
  59.       return Pas_double;
  60.    end;
  61. -- -------------------------------------------------------   
  63. -- ---------------------------------------------- REMPLI --
  64.    function Rempli return Boolean is
  65.      
  66.       rempli : Boolean:=true;
  67.    
  68.    begin
  69.       if Get_Line(Coul1)=0 or Get_Line(Coul2)=0 or Get_Line(Coul3)=0 or Get_Line(Coul4)=0
  70.          or get_line(Haut1)=0 or get_line(Haut2)=0 or get_line(Haut3)=0 or get_line(Haut4)=0 
  71.          then rempli:=false;
  72.       end if;
  73.       return Rempli;
  74.    end;
  75. -- ------------------------------------------------------- 
  76.    
  77. -- -------------------------------------------- CALCULE --
  78.    procedure Calcule is
  79.      
  80.    begin
  81.       Points:=0;
  82.      
  83.       case Get_line(Haut1) is
  84.          when 8 => points:=points+11;
  85.          when 7 => points:=points+4;
  86.          when 6 => points:=points+3;
  87.          when 5 => if Get_line(coul1)=Get_line(Atout) then points:=points+20; else points:=points+2; end if;
  88.          when 4 => points:=points+10;
  89.          when 3 => if Get_line(Coul1)=Get_line(Atout) then points:=points+14; else points:=points+0; end if;
  90.          when others => points:=points+0;
  91.       end case;
  92.      
  93.       case Get_line(Haut2) is
  94.          when 8 => points:=points+11;
  95.          when 7 => points:=points+4;
  96.          when 6 => points:=points+3;
  97.          when 5 => if Get_line(coul2)=Get_line(Atout) then points:=points+20; else points:=points+2; end if;
  98.          when 4 => points:=points+10;
  99.          when 3 => if Get_line(Coul2)=Get_line(Atout) then points:=points+14; else points:=points+0; end if;
  100.          when others => points:=points+0;
  101.       end case;
  102.      
  103.       case Get_line(Haut3) is
  104.          when 8 => points:=points+11;
  105.          when 7 => points:=points+4;
  106.          when 6 => points:=points+3;
  107.          when 5 => if Get_line(coul3)=Get_line(Atout) then points:=points+20; else points:=points+2; end if;
  108.          when 4 => points:=points+10;
  109.          when 3 => if Get_line(Coul3)=Get_line(Atout) then points:=points+14; else points:=points+0; end if;
  110.          when others => points:=points+0;
  111.       end case;
  112.      
  113.       case Get_line(Haut4) is
  114.          when 8 => points:=points+11;
  115.          when 7 => points:=points+4;
  116.          when 6 => points:=points+3;
  117.          when 5 => if Get_line(coul4)=Get_line(Atout) then points:=points+20; else points:=points+2; end if;
  118.          when 4 => points:=points+10;
  119.          when 3 => if Get_line(Coul4)=Get_line(Atout) then points:=points+14; else points:=points+0; end if;
  120.          when others => points:=points+0;
  121.       end case;
  122.      
  123.       Message("Cette main vaut un total de " &Points &" points." );
  124.    end;
  125. -- ------------------------------------------------------- 
  128. begin
  129.  
  130. -- ---------------------------------------- INITIALISATIONS --
  131.    Set_Text(Coul1, "Carreau" );
  132.    Set_Text(Coul1, "Coeur" );
  133.    Set_Text(Coul1, "Pique" );
  134.    Set_Text(Coul1, "Trèfle" );
  135.  
  136.    Set_Text(Haut1, "7" );
  137.    Set_Text(Haut1, "8" );
  138.    Set_Text(Haut1, "9" );
  139.    Set_Text(Haut1, "10" );
  140.    Set_Text(Haut1, "Valet" );
  141.    Set_Text(Haut1, "Dame" );
  142.    Set_Text(Haut1, "Roi" );
  143.    Set_Text(Haut1, "As" );
  144.  
  145.    Set_Text(Coul2, "Carreau" );
  146.    Set_Text(Coul2, "Coeur" );
  147.    Set_Text(Coul2, "Pique" );
  148.    Set_Text(Coul2, "Trèfle" );
  149.  
  150.    Set_Text(Haut2, "7" );
  151.    Set_Text(Haut2, "8" );
  152.    Set_Text(Haut2, "9" );
  153.    Set_Text(Haut2, "10" );
  154.    Set_Text(Haut2, "Valet" );
  155.    Set_Text(Haut2, "Dame" );
  156.    Set_Text(Haut2, "Roi" );
  157.    Set_Text(Haut2, "As" );
  158.  
  159.    Set_Text(Coul3, "Carreau" );
  160.    Set_Text(Coul3, "Coeur" );
  161.    Set_Text(Coul3, "Pique" );
  162.    Set_Text(Coul3, "Trèfle" );
  164.    Set_Text(Haut3, "7" );
  165.    Set_Text(Haut3, "8" );
  166.    Set_Text(Haut3, "9" );
  167.    Set_Text(Haut3, "10" );
  168.    Set_Text(Haut3, "Valet" );
  169.    Set_Text(Haut3, "Dame" );
  170.    Set_Text(Haut3, "Roi" );
  171.    Set_Text(Haut3, "As" );
  172.  
  173.    Set_Text(Coul4, "Carreau" );
  174.    Set_Text(Coul4, "Coeur" );
  175.    Set_Text(Coul4, "Pique" );
  176.    Set_Text(Coul4, "Trèfle" );
  177.  
  178.    Set_Text(Haut4, "7" );
  179.    Set_Text(Haut4, "8" );
  180.    Set_Text(Haut4, "9" );
  181.    Set_Text(Haut4, "10" );
  182.    Set_Text(Haut4, "Valet" );
  183.    Set_Text(Haut4, "Dame" );
  184.    Set_Text(Haut4, "Roi" );
  185.    Set_Text(Haut4, "As" );
  186.  
  187.    Set_Text(Atout, "Carreau" );
  188.    Set_Text(Atout, "Coeur" );
  189.    Set_Text(Atout, "Pique" );
  190.    Set_Text(Atout, "Trèfle" );
  191. -- --------------------------------------------------------- BIENVENUE --
  193.    Show(Bienvenue, true);
  194.    if next_command='S' then show(bienvenue, false); end if;
  196.    -- ---------------------------------------------------------
  197.  
  198.  
  199.    loop
  200.       case Next_Command is
  201.          when 'Q' => exit;
  202.          when 'C' => if Ok then
  203.                if Rempli then Calcule;
  204.                else Error("Vous n'avez pas rempli tous les champs !" );
  205.                end if;
  206.             else Error("Vous avez rentré deux fois la même carte !" );
  207.             end if;
  208.          when others => null;
  209.       end case;
  210.    end loop;
  211. end;

Reply

Marsh Posté le 25-01-2006 à 10:23:52    

Euh si il ne s'execute pas àpres le message d'intro, modifie "true" par un "false" dans:
 
-- ----------------------------- BIENVENUE --
Show(Bienvenue, true);
if next_command='S' then show(bienvenue, false);
end if;
-- ------------------------------------------
 
   :hello:

Reply

Marsh Posté le 25-01-2006 à 19:16:18    

Ah ui merci!!! justement je cherchait des petits exemples pour comprendre un peu le truc.

Reply

Marsh Posté le 19-03-2006 à 17:39:25    

salut! Neodyme02
 
maintenant t'es dejà un pro pour l'utilisation de la bibliotheque graphique Jewl, veux tu me donner des explications
je viens de telecharger jewl que j'ai installé sur ma machine, Je voudrais programmer le sudoku sur Ada avec un bon graphisme.
 
dis moi .


Message édité par bisbo le 19-03-2006 à 19:38:01
Reply

Marsh Posté le 19-03-2006 à 18:12:35    

lol bisbo tu me demande de l'aide et quand je te répond ça me met que tu m'as mis en ignore liste!

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed