Skip to content
This repository has been archived by the owner on May 17, 2024. It is now read-only.

Commit

Permalink
Correction du stack qui augmente à l'infini à force d'utiliser le prog
Browse files Browse the repository at this point in the history
  • Loading branch information
@Feelzor
Feelzor committed Jan 26, 2019
1 parent 21dd623 commit 852c810
Show file tree
Hide file tree
Showing 2 changed files with 28 additions and 32 deletions.
59 changes: 27 additions & 32 deletions p_vue_graph.adb
View file
Original file line number Diff line number Diff line change
Expand Up @@ -115,31 +115,33 @@ package body p_vue_graph is
-- {} => {affiche la fenêtre d'accueil}
fenetre : TR_Fenetre;
begin
fenetre := debutFenetre("Accueil", 500, 600);
for i in 3..7 loop
ajouterBouton(fenetre, Integer'image(i)(2..2), Integer'image(i)(2..2), 75+(75*(i-3)), 300, 50, 50);
changerTailleTexte(fenetre, Integer'image(i)(2..2), FL_MEDIUM_SIZE);
changerStyleTexte(fenetre, Integer'image(i)(2..2), FL_BOLD_STYLE);
while not fermerFenetre loop
fenetre := debutFenetre("Accueil", 500, 600);
for i in 3..7 loop
ajouterBouton(fenetre, Integer'image(i)(2..2), Integer'image(i)(2..2), 75+(75*(i-3)), 300, 50, 50);
changerTailleTexte(fenetre, Integer'image(i)(2..2), FL_MEDIUM_SIZE);
changerStyleTexte(fenetre, Integer'image(i)(2..2), FL_BOLD_STYLE);
end loop;
contigue := false;
nbCasesSolution := 3;
changerCouleurTexte(fenetre, "3", FL_DOGERBLUE);
ajouterBouton(fenetre, "jeu", "Jouer au jeu", 35, 430, 200, 50);
ajouterBouton(fenetre, "Solution", "Afficher Solutions", 265, 430, 200, 50);
ajouterBouton(fenetre, "Fermer", "Quitter", 200, 580, 100, 50);
ajouterBouton(fenetre, "Contigue", "Non", 200, 375, 50, 30);
ajouterBouton(fenetre, "Info", "Informations", 335, 505, 130, 50);
ajouterBouton(fenetre, "Scoreboard", "Scoreboard", 185, 505, 130, 50);
ajouterBouton(fenetre, "Online", "En ligne", 35, 505, 130, 50);
ajouterTexte(fenetre, "TexTContigue : ", "Seulement contigue : ", 50, 375, 150, 30);
ajouterTexte(fenetre, "Textintro", "Bienvenue dans le programme du carre de Subirachs", 50, 100, 400, 30);
ajouterTexte(fenetre, "Textintro2", "Sur cet ecran, vous pouvez choisir le nombre d'elements d'une", 50, 130, 400, 30);
ajouterTexte(fenetre, "Textintro3", "solution, et choisir de ne consulter que les solutions contigues. ", 50, 160, 400, 30);
ajouterTexte(fenetre, "Textintro4", "Bon jeu ! ", 220, 210, 120, 30);
changerStyleTexte(fenetre, "Contigue", FL_BOLD_STYLE);
finFenetre(fenetre);
montrerFenetre(fenetre);
appuiBoutonAccueil(attendreBouton(fenetre), fenetre);
end loop;
contigue := false;
nbCasesSolution := 3;
changerCouleurTexte(fenetre, "3", FL_DOGERBLUE);
ajouterBouton(fenetre, "jeu", "Jouer au jeu", 35, 430, 200, 50);
ajouterBouton(fenetre, "Solution", "Afficher Solutions", 265, 430, 200, 50);
ajouterBouton(fenetre, "Fermer", "Quitter", 200, 580, 100, 50);
ajouterBouton(fenetre, "Contigue", "Non", 200, 375, 50, 30);
ajouterBouton(fenetre, "Info", "Informations", 335, 505, 130, 50);
ajouterBouton(fenetre, "Scoreboard", "Scoreboard", 185, 505, 130, 50);
ajouterBouton(fenetre, "Online", "En ligne", 35, 505, 130, 50);
ajouterTexte(fenetre, "TexTContigue : ", "Seulement contigue : ", 50, 375, 150, 30);
ajouterTexte(fenetre, "Textintro", "Bienvenue dans le programme du carre de Subirachs", 50, 100, 400, 30);
ajouterTexte(fenetre, "Textintro2", "Sur cet ecran, vous pouvez choisir le nombre d'elements d'une", 50, 130, 400, 30);
ajouterTexte(fenetre, "Textintro3", "solution, et choisir de ne consulter que les solutions contigues. ", 50, 160, 400, 30);
ajouterTexte(fenetre, "Textintro4", "Bon jeu ! ", 220, 210, 120, 30);
changerStyleTexte(fenetre, "Contigue", FL_BOLD_STYLE);
finFenetre(fenetre);
montrerFenetre(fenetre);
appuiBoutonAccueil(attendreBouton(fenetre), fenetre);
end fenetreAccueil;

procedure ouvreFenetreSolutions(nomFichier: in string; fenetre: TR_Fenetre) is
Expand Down Expand Up @@ -290,7 +292,6 @@ package body p_vue_graph is
montrerFenetre(fenetre);
if attendreBouton(fenetre) = "valider" then
cacherFenetre(fenetre);
fenetreAccueil;
end if;
end fenetreScores;

Expand All @@ -305,7 +306,6 @@ package body p_vue_graph is
montrerFenetre(fenetre);
if attendreBouton(fenetre) /= "00" then
cacherFenetre(fenetre);
fenetreAccueil;
end if;
end fenetreInfo;

Expand Down Expand Up @@ -358,7 +358,6 @@ package body p_vue_graph is
statutErreur := -1;
if not envoyerMessage(channel, creerMessageStatut(trim(pseudoClient, BOTH), SEND_NAME)) then
cacherFenetre(fenetre);
fenetreAccueil;
return;
end if;
end if;
Expand All @@ -368,7 +367,6 @@ package body p_vue_graph is
nbEssai := nbEssai + 1;
if nbEssai = 10 then
cacherFenetre(fenetre);
fenetreAccueil;
return;
end if;
end loop;
Expand Down Expand Up @@ -424,6 +422,7 @@ package body p_vue_graph is
debutJeu(contigue, 60.0);
fenetreJeu;
elsif elem = "Fermer" then -- ferme le programme
fermerFenetre := true;
cacherFenetre(fenetre);
chrono.fermer;
chronoJeu.fermer;
Expand Down Expand Up @@ -466,7 +465,6 @@ package body p_vue_graph is
elsif elem = "retour" then -- retour à l'accueil
cacherFenetre(fenetre);
close(fichierSolution);
fenetreAccueil;
elsif elem = "aller" or elem = "ChampNum" then -- saut à une solution via son numéro
begin
combinaisonVoulue := Integer'value(ConsulterContenu(fenetre, "ChampNum"));
Expand Down Expand Up @@ -573,12 +571,10 @@ package body p_vue_graph is
chrono.stop;
cacherFenetre(fenetre);
jeuOuvert := false;
fenetreAccueil;
else
chronoJeu.stop;
finJeu(true);
cacherFenetre(fenetre);
fenetreAccueil;
end if;
elsif elem'length = 3 -- Appui sur un bouton de la grille BXX, avec XX la valeur de la case
and elem(elem'first) = 'B'
Expand All @@ -600,7 +596,6 @@ package body p_vue_graph is
jeuOuvert := false;
chronoJeu.stop;
end if;
fenetreAccueil;
else -- Action invalide
appuiBoutonJeu(attendreBouton(fenetre), fenetre);
end if;
Expand Down
1 change: 1 addition & 0 deletions p_vue_graph.ads
View file
Original file line number Diff line number Diff line change
Expand Up @@ -18,6 +18,7 @@ package p_vue_graph is
casesClic: string(1..14);
ancienneCoul: FL_Color := FL_COL1;
chronoJeu: T_ActualisationJeu;
fermerFenetre: boolean := false;

procedure ajouterBoutonInvisible (f: in out TR_Fenetre; nomElement : in String;
x, y : in Natural; largeur, hauteur : in Positive);
Expand Down

0 comments on commit 852c810

Please sign in to comment.