Bonjour,

je suis arrivée au TP de la bataille navale est j'ai un petit problème d'affichage des symboles :

j'aimerai avoir les mêmes symboles que la capture suivante (coeur, Smiley et flèches) :

mais je me retrouve avec des ? dans des carrés.

Que dois-je changer dans ma configuration pour que cela marche ?

Je programme avec GNAT 2019 et GPS.

-
Edité par Ryumizuhi 28 juin 2019 à 14:22:44

Bonsoir,

Tu avance vite dit donc

Pourrais-tu envoyer un bout de code de la partie qui pause problème (là où tu fait l'affichage du status) ?

Tu utilise des string et caractères simple ou étendu (étendu dans le sens Wide_Character, Wide_String) ?

Voici un petit example utilisant des Wide_Characters :

with Ada.Wide_Text_IO;

procedure Main is
   use Ada.Wide_Text_IO;
begin
   Put_Line ("Heart: " & Wide_Character'Val (16#2665#));
   Put_Line ("Smiley: " & Wide_Character'Val (16#263B#));
end Main;

Bonjour,

voici le code de Put_Status ainsi que les entête du fichier :

with Ada.Text_IO;                   use Ada.Text_IO;
with P_Variables;                   use P_Variables;
with P_Navire.list;                 use P_Navire.list;
with Ada.Strings.Unbounded;         use Ada.Strings.Unbounded;
with Ada.Integer_Text_IO;

procedure Put_Status (Navire : T_Navire'Class; Pos : T_Position := Gauche) is
      X : Natural;
      Y : constant Natural := 15;
   begin
      if Pos = Gauche
         then x := 0;
         else x := 39;
      end if;
      
      Set_Background (White);
      Print ("      " & To_String (Navire.Nom), Black, X, Y);
      Set_Foreground (Light_Red); Goto_XY (X, Y + 1);
      Put ("   " & Character'Val (2) & " "); Put_Point (Navire.Coque);
      Set_Foreground (Green); Goto_XY (X, Y + 2);
      Put ("   " & Character'Val (3) & " "); Put_Point (Navire.Equipage);
      Goto_XY (X, Y + 3); Put ("Puis:") ; Put_Point (Navire.Puissance);
      Goto_XY (X, Y + 4); Put ("Att :") ; Put_Point (Navire.Attaque);
      Goto_XY (X, Y + 5); Put ("Cuir:") ; Put_Point (Navire.Cuirasse);
      Goto_XY (X, Y + 6); Put ("Def :") ; Put_Point (Navire.Defense);
      Goto_XY (X, Y + 7); Put ("Vit :") ; Put_Point (Navire.Vitesse);      
end Put_Status;
   

J'ai également fait un test en faisant une boucle pour afficher tout les caractères et j'ai la même chose pour une bonne partie des cinquante premiers  caractères.

j'ai essayer le code que tu m'a transmis dans ton message mais voici ce que cela donne :

 Comment faire en sorte que cela m'affiche le symbole et pas son code ?

procedure Put_Status (Navire : T_Navire'Class; Pos : T_Position := Gauche) is
      X : Natural;
      Y : constant Natural := 15;
   begin
      if Pos = Gauche
         then x := 0;
         else x := 39;
      end if;
      
      Set_Background (White);
      Print ("      " & To_String (Navire.Nom), Black, X, Y);
      Set_Foreground (Light_Red); Goto_XY (X, Y + 1);
      Ada.Wide_Text_IO.Put ("   " & Wide_Character'Val (16#2665#) & " "); Put_Point (Navire.Coque);
      Set_Foreground (Green); Goto_XY (X, Y + 2);
      Ada.Wide_Text_IO.Put ("   " & Wide_Character'Val (16#263B#) & " "); Put_Point (Navire.Equipage);
      Goto_XY (X, Y + 3); Put ("Puis:") ; Put_Point (Navire.Puissance);
      Goto_XY (X, Y + 4); Put ("Att :") ; Put_Point (Navire.Attaque);
      Goto_XY (X, Y + 5); Put ("Cuir:") ; Put_Point (Navire.Cuirasse);
      Goto_XY (X, Y + 6); Put ("Def :") ; Put_Point (Navire.Defense);
      Goto_XY (X, Y + 7); Put ("Vit :") ; Put_Point (Navire.Vitesse);      
   end Put_Status;

Hello,

Je ne fait pas de Ada, mais ce ne serais tout simplement pas ton terminal qui n'aurais pas la police pour afficher les emoji ?

Tu as essayer sur une console linux ?

Salut,

je suis sur windows avec un .exe à lancer. Je ne sais pas convertir mon code (ou les paramètres de GPS) pour avoir un programme qui se lit sur une console Linux.