Ada

Saisie des touches F1 à F12

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Saisie des touches F1 à F12

Profil supprimé

Bonjour,
Je cherche à utiliser les touches telles que F1..F12

j'ai essayé avec la procedure Get_Immediate (Item : out Character; Available : out Boolean); et la procedure Look_Ahead (Item : out Character; End_Of_Line : out Boolean); mais je n'y parviend pas.

j'utilise Gnat et suis sur Linux.

mon code de test ::=

Code :

with Ada.Text_Io;
use Ada.Text_Io;
with Ada.Integer_Text_Io; -- Pour afficher character'pos(Char);
use Ada.Integer_Text_Io;
procedure Main is
   Char : Character;
   Real_String : String(1..4) := (others => Ascii.Nul);
   Last_char : Natural := 1;
   Avaible : Boolean;
 
begin
      Text_Io.Skip_Line;
      Get_Immediate(Char,avaible);
      Put(Integer'Image(Character'Pos(Char)));
      if Avaible then
         Real_String(Last_char) := Char;
         loop
            Last_Char := Last_Char + 1;
            Get_Immediate(Char,avaible);
            Put(Integer'Image(Character'Pos(Char)));
            Real_String(Last_Char) := Char;
            exit when not Avaible;
         end loop;
      end if;
end Main;

Publicité

Profil supprimé

J'aurais aimé utiliser Get_Immediate (Item : out Character; Available : out Boolean); dans un algo élégant mais bon, je m'en sort avec une serie de case en cascade et Get_Immediate (Item : out Character); pour l'utilisation des touche F1 à F6

Code :

when Character'Val(27) =>
                     Get_Immediate(Char);
                     case Char is
                        when Character'Val(91) =>
                           Get_Immediate(Char);
                           case Char is
                              when Character'Val(91) =>
                                 Get_Immediate(Char);
                                 case Char is
                                    when Character'Val(65) =>
                                       Mode := Gestion_De_Production;
                                    when Character'Val(66) =>
                                       Mode := Caisse;
                                    when Character'Val(67) =>
                                       Mode := Previsionnel;
                                    when Character'Val(68) =>
                                       Mode := Echeancier;
                                    when Character'Val(69) =>
                                       Mode := Reel;
 
                                    when others =>
                                       Put(Ascii.Bel);
                                 end case;
                              when Character'Val(49) =>
                                 Get_Immediate(Char);
                                 case Char is
                                    when Character'Val(55) =>
                                       Mode := Connection_Reseau;
                                    when others =>
                                       Put(Ascii.Bel);
                                 end case;
                              when others => -- echeppement de 3 caracteres;
                                 Put(Ascii.Bel);
                           end case;
                        when others =>
                           Put(Ascii.Bel);
                     end case;

Message édité par Profil supprimé le 30-12-2006 à 11:44:20

apprentitux

Pourquoi tu veux utiliser de telles procedures ?
Les touches F* ne renvoient pas de caractères en général...

Profil supprimé

le "scancode" si je peux m'exprimer ainsi, des touches F1 à F6 est sur plusieurs caracteres

Sur ma Gnu/Linux Debian les touches F1 à F5 sont sur 4 caracteres et F6 sur 5
Sur Windows XP les touche F1 à F6 sont sur 2 caracteres

Ce sont en fait, sur Gnu/Linux Debian, des sequences d'échappement

Message cité 1 fois
Message édité par Profil supprimé le 30-12-2006 à 21:27:26

apprentitux

Les scancodes ne sont pas des caractères mais les codes des touches.
Tu ne les récupères pas avec les sous-programmes d'entrées-sortie de Ada.Text_io !

Profil supprimé

Comment faire alors ?

Profil supprimé

donc "geter" des char ça marche.

FORUM HardWare.fr

Programmation

Ada

Saisie des touches F1 à F12

Sujets relatifs
Flash : texte de saisie (urgent et facile)	[c++] Hook "anti-rebond" et problème touches ALT
saisie de nombre	Formulaire \| champ en surbrillance si erreur de saisie
Calcule de somme saisie et moyenne.	Saisie "cachée" en ksh
Touches mortes en CLI	cherche un petit editeur de html dans une zone de saisie
Comment générer un lien créé selon la saisie d'un formulaire	Formulaires de saisie avec beaucoup de champs?
Plus de sujets relatifs à : Saisie des touches F1 à F12

Page générée en 0.067 secondes