Ada

Interface graphique en ADA

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Interface graphique en ADA

Neodyme02

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. :??:

Publicité

Neodyme02

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

Fused

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

Neodyme02

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.

Fused

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?

Neodyme02

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...

Fused

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.

Neodyme02

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

Fused

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

Neodyme02

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

Publicité

Fused

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 :

with Jewl.Simple_Windows;
use Jewl.Simple_Windows;
with Jewl.Io; use Jewl.Io;
procedure Belotejwl is
Bienvenue_Casse : Font_Type := Font("Time new Roman",16, True, False);
version_casse : font_type := font("Comic sans MS", 8, false, true);
Bienvenue : Dialog_Type := Dialog(230,200,"Bienvenue", 'B');
Welcome : Label_type := Label(Bienvenue, (10,10), 200, 230, "Bienvenue dans le programme Belote", center, bienvenue_casse);
Start : Button_Type := Button(Bienvenue, (10,100), 200, 60, "Commencer", 'S');
Version : Label_Type := Label(Bienvenue, (10, 70), 200, 20, "Version 0.1 beta.", Center, Version_Casse);
Ask_atout : Dialog_Type := Dialog(230,200,"Atout", 'A');
Ask_atout_label : Label_type := Label(Ask_atout, (10,10), 200, 230, "Quel est l'atout de la partie ?", center);
Valider : Button_Type := Button(Ask_atout, (10,100), 200, 60, "Valider", 'V');
My_Frame : Frame_Type := Frame(230, 580, "Belote", 'Q');
Carte1 : Label_type := Label(My_Frame, (10,10), 100, 400, "Carte 1" );
Coul1 : Combobox_type := Combobox(My_Frame, (10,30), 200, false);
Haut1 : Combobox_Type := Combobox(My_Frame, (10,60), 200, false);
Carte2 : Label_type := Label(My_Frame, (10,100),100, 400, "Carte 2" );
Coul2 : Combobox_type := Combobox(My_Frame, (10,120), 200, false);
Haut2 : Combobox_Type := Combobox(My_Frame, (10,150), 200, False);
Carte3 : Label_type := Label(My_Frame, (10,190), 100, 400, "Carte 3" );
Coul3 : Combobox_type := Combobox(My_Frame, (10,210), 200, false);
Haut3 : Combobox_Type := Combobox(My_Frame, (10,240), 200, False);
Carte4 : Label_type := Label(My_Frame, (10,280), 100, 400, "Carte 4" );
Coul4 : Combobox_type := Combobox(My_Frame, (10,300), 200, false);
Haut4 : Combobox_Type := Combobox(My_Frame, (10,330), 200, False);
Atout_label : Label_type := Label(My_Frame, (10,380), 100, 400, "Atout de la partie" );
Atout : Combobox_type := Combobox(My_Frame, (10,400), 200, false);
Calculer : Button_Type := Button(My_Frame, (10,440), 200, 100, "Calculer les points", 'C');
Points : Integer;
-- ------------------------------------------------- OK --
function Ok return Boolean is
Pas_Double : Boolean:=true;
begin
if (Get_Line(Coul1)=Get_Line(Coul2) and Get_Line(Haut1)=Get_Line(Haut2))
or (Get_Line(Coul1)=Get_Line(Coul3) and Get_Line(Haut1)=Get_Line(Haut3))
or (Get_Line(Coul1)=Get_Line(Coul4) and Get_Line(Haut1)=Get_Line(Haut4))
or (Get_Line(Coul2)=Get_Line(Coul3) and Get_Line(Haut2)=Get_Line(Haut3))
or (Get_Line(Coul2)=Get_Line(Coul4) and Get_Line(Haut2)=Get_Line(Haut4))
or (Get_Line(Coul3)=Get_Line(Coul4) and Get_Line(Haut3)=Get_Line(Haut4))
then pas_double:=false; end if;
return Pas_double;
end;
-- -------------------------------------------------------
-- ---------------------------------------------- REMPLI --
function Rempli return Boolean is
rempli : Boolean:=true;
begin
if Get_Line(Coul1)=0 or Get_Line(Coul2)=0 or Get_Line(Coul3)=0 or Get_Line(Coul4)=0
or get_line(Haut1)=0 or get_line(Haut2)=0 or get_line(Haut3)=0 or get_line(Haut4)=0
then rempli:=false;
end if;
return Rempli;
end;
-- -------------------------------------------------------
-- -------------------------------------------- CALCULE --
procedure Calcule is
begin
Points:=0;
case Get_line(Haut1) is
when 8 => points:=points+11;
when 7 => points:=points+4;
when 6 => points:=points+3;
when 5 => if Get_line(coul1)=Get_line(Atout) then points:=points+20; else points:=points+2; end if;
when 4 => points:=points+10;
when 3 => if Get_line(Coul1)=Get_line(Atout) then points:=points+14; else points:=points+0; end if;
when others => points:=points+0;
end case;
case Get_line(Haut2) is
when 8 => points:=points+11;
when 7 => points:=points+4;
when 6 => points:=points+3;
when 5 => if Get_line(coul2)=Get_line(Atout) then points:=points+20; else points:=points+2; end if;
when 4 => points:=points+10;
when 3 => if Get_line(Coul2)=Get_line(Atout) then points:=points+14; else points:=points+0; end if;
when others => points:=points+0;
end case;
case Get_line(Haut3) is
when 8 => points:=points+11;
when 7 => points:=points+4;
when 6 => points:=points+3;
when 5 => if Get_line(coul3)=Get_line(Atout) then points:=points+20; else points:=points+2; end if;
when 4 => points:=points+10;
when 3 => if Get_line(Coul3)=Get_line(Atout) then points:=points+14; else points:=points+0; end if;
when others => points:=points+0;
end case;
case Get_line(Haut4) is
when 8 => points:=points+11;
when 7 => points:=points+4;
when 6 => points:=points+3;
when 5 => if Get_line(coul4)=Get_line(Atout) then points:=points+20; else points:=points+2; end if;
when 4 => points:=points+10;
when 3 => if Get_line(Coul4)=Get_line(Atout) then points:=points+14; else points:=points+0; end if;
when others => points:=points+0;
end case;
Message("Cette main vaut un total de " &Points &" points." );
end;
-- -------------------------------------------------------
begin
-- ---------------------------------------- INITIALISATIONS --
Set_Text(Coul1, "Carreau" );
Set_Text(Coul1, "Coeur" );
Set_Text(Coul1, "Pique" );
Set_Text(Coul1, "Trèfle" );
Set_Text(Haut1, "7" );
Set_Text(Haut1, "8" );
Set_Text(Haut1, "9" );
Set_Text(Haut1, "10" );
Set_Text(Haut1, "Valet" );
Set_Text(Haut1, "Dame" );
Set_Text(Haut1, "Roi" );
Set_Text(Haut1, "As" );
Set_Text(Coul2, "Carreau" );
Set_Text(Coul2, "Coeur" );
Set_Text(Coul2, "Pique" );
Set_Text(Coul2, "Trèfle" );
Set_Text(Haut2, "7" );
Set_Text(Haut2, "8" );
Set_Text(Haut2, "9" );
Set_Text(Haut2, "10" );
Set_Text(Haut2, "Valet" );
Set_Text(Haut2, "Dame" );
Set_Text(Haut2, "Roi" );
Set_Text(Haut2, "As" );
Set_Text(Coul3, "Carreau" );
Set_Text(Coul3, "Coeur" );
Set_Text(Coul3, "Pique" );
Set_Text(Coul3, "Trèfle" );
Set_Text(Haut3, "7" );
Set_Text(Haut3, "8" );
Set_Text(Haut3, "9" );
Set_Text(Haut3, "10" );
Set_Text(Haut3, "Valet" );
Set_Text(Haut3, "Dame" );
Set_Text(Haut3, "Roi" );
Set_Text(Haut3, "As" );
Set_Text(Coul4, "Carreau" );
Set_Text(Coul4, "Coeur" );
Set_Text(Coul4, "Pique" );
Set_Text(Coul4, "Trèfle" );
Set_Text(Haut4, "7" );
Set_Text(Haut4, "8" );
Set_Text(Haut4, "9" );
Set_Text(Haut4, "10" );
Set_Text(Haut4, "Valet" );
Set_Text(Haut4, "Dame" );
Set_Text(Haut4, "Roi" );
Set_Text(Haut4, "As" );
Set_Text(Atout, "Carreau" );
Set_Text(Atout, "Coeur" );
Set_Text(Atout, "Pique" );
Set_Text(Atout, "Trèfle" );
-- --------------------------------------------------------- BIENVENUE --
Show(Bienvenue, true);
if next_command='S' then show(bienvenue, false); end if;
-- ---------------------------------------------------------
loop
case Next_Command is
when 'Q' => exit;
when 'C' => if Ok then
if Rempli then Calcule;
else Error("Vous n'avez pas rempli tous les champs !" );
end if;
else Error("Vous avez rentré deux fois la même carte !" );
end if;
when others => null;
end case;
end loop;
end;

Fused

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:

Neodyme02

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

bisbo

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

Fused

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!

FORUM HardWare.fr

Programmation

Ada

Interface graphique en ADA

Sujets relatifs
Une interface globale?	[turbo pascal] readkey et mode graphique
Graphique inchangeant	Figer un graphique un peu trop éphémère...(Résolu)
Accéder à un component graphique depuis un server .net remoting.	[resolu] pb créer graphique
Librairie graphique pour jeu de voiture (linux)	[Résolu]Interface marqueur
Projet open source d'un navigateur web en Ada+GtkAda+aws	question interface graphique
Plus de sujets relatifs à : Interface graphique en ADA

Page générée en 0.118 secondes