Discussion :

[Invité]

Bonjour,
J'ai écrit récemment un fonction pour convertir un décimal en hexadécimal.
Je pensais utiliser la même technique pour convertir un décimal en binaire, mais ça n'a pas l'air de le faire.

Voici ma fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
function To_bbyte(The_Byte : in byte) return T_Byte is
      Last : Positive := 8;
      Value : integer := Integer(The_Byte);
      Bbyte : T_Byte := (others => False);
      Rest : Integer;
   begin
      loop
         Rest := (value rem 2);
         Bbyte(Last) := boolean'Val(Rest);
         value := value - rest;
         Last := Last - 1;
         exit when (value rem 2) = 0;
      end loop;
      Bbyte(Last) := boolean'Val(value/2);
      return Bbyte;
   end To_Bbyte;

Pardon, je suis un peu crevé.

[jc-miranda]

Avec les types Byte et T_Byte définis comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
   type Byte is mod 256;
   type T_Byte is array (1 .. 8) of Boolean;

Je coderai ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
   function To_Bbyte(Value : in Byte) return T_Byte is
      Bbyte : T_Byte;
      Tmp   : Byte   := Value;
   begin
      for I in reverse Bbyte'Range loop
         Bbyte (I) := Boolean'Val (Tmp rem 2);
         Tmp := Tmp / 2;
      end loop;      
      return Bbyte;
   end To_Bbyte;

[Invité]

Bonjour jc-miranda, merci pour ta réponse.
J'avais fait ceci entre temps :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
function To_bbyte(The_Byte : in byte) return T_Byte is
      Last : Positive := 8;
      Value : integer := Integer(The_Byte);
      Bbyte : T_Byte := (others => False);
      Rest : Integer;
   begin
      loop
         rest := (value rem 2);
         value := (Value/2);
         Bbyte(Last) := boolean'Val(Rest);
         exit when Value = 0;
         Last := Last - 1;
      end loop;
      return Bbyte;
   end To_Bbyte;

3 lignes de plus.