Discussion :

[bobby-b]

N'étant pas très doué en manipulation de nombres binaires , je fais appel à votre savoir :
J'ai un tableau de byte et je voudrais accéder facilement à chacun des 8 bits que composent ces bytes.

Par exemple : le premier byte de mon tableau est 209, ce qui fait 11010001 en binaire. Il me faudrait un méthode pour savoir facilement que le permier bit de ce byte vaut 1, le suivant 1, le suivant 0 et ainsi de suite ...


Merci.
Bobby-B

[philnext]

tu peux utiliser l'opérateur AND ex :

Code :

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

1
2
3
4
5
if iTemp AND 128 >0
then
  ShowMessage('bon sang !! le 1er bit est à 1')
else
  ShowMessage('damned !! le 1er bit est à 0');

[Pascal Jankowski]

Peut-être que ceci peut t'aider ?

La fonction shl permet un décallage à gauche bit à bit.
Par exemple 1 shl 3 rendra le binaire 1000 soit encore le nombre entier 8.

En combinant l'instruction shl et l'opérateur de conjonction AND , il est possible de construire une opération boolléenne décrite dans la fonction isByteOn ci-dessous.
Cette fonction attend en entrée un nombre entier N. Puis elle retourne TRUE si dans la représentaton binaire de N, le bit situé à la bit_position vaut 1

Code :

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

1
2
3
4
function isByteOn(N: byte; bit_position: integer):boolean;
begin
  result := N and (1 shl bit_position) = 1 shl bit_position;
end;

Exemples
isByteOn(209,7) renverra True --- {1}1010001
isByteOn(209,0) renverra True --- 1101000{1}
isByteOn(209,5) renverra False --- 11{0}10001


La fonction suivante byteToInt te permet de convertir une représentation binaire d'un nombre (sous forme d'une chaîne de caratères) en valeur entière.

Code :

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

1
2
3
4
5
6
7
function byteToInteger(s: string):integer;
var i: integer;
begin
  result := 0;
  for i := 1 to length(s) do
   if s[i] = '1' then result := result + (1 shl (length(s)-i));
end;

Utilisation
byteToInteger('00000110') renverra le nombre entier 6


La fonction suivante integerToByte permet de convertir un nombre entier inférieur ou égal à 255 en une représentation binaire de ce nombre.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
function integerToByte(x: integer):string;
var i: integer;
begin
  result := '';
  if x > 255 then exit;
  for i := 7 downto 0 do
   if x DIV (1 shl i) <> 0
     then begin
            x := x MOD (1 shl i);
            result := result + '1'
          end
     else result := result + '0';
end;

Utilisation
integerToByte(13) renverra '00001101'
integerToByte(1024) renverra une chaîne vide


En espérant que ces quelques fonctions t'aideront.
Cordialement

[bobby-b]

Super Pascal !!

Ta fonction 'isByteOn' est exactement ce qu'il me fallait.
Ca va me faire un gagner un temps fou lors de l'exécution de mon pogramme.
Je garde les autres fonctions dans un coin car elles pourront me servir un jour ou l'autre. 8)

Merci encore,
Bobby-B

[petitcoucou31]

tu peux aussi utiliser les masques sur l'octet qui te permette de modifier un bit sans bouger les autres bits

les masques pour possitionner un bit a 1 avec le OR
$01 => pour le bit1
$02 => pour le bit2
$04 => pour le bit3
$08 => pour le bit4
$10 => pour le bit5
$20 => pour le bit6
$40 => pour le bit7
$80 => pour le bit8
exemple pour position le bit2 a 1 :
valeurOctet := valeurOctet Or $02;

les masques pour possitionner un bit a 0 avec le AND
$FE => pour le bit1
$FD => pour le bit2
$FB => pour le bit3
$F7 => pour le bit4
$EF => pour le bit5
$DF => pour le bit6
$BF => pour le bit7
$7F => pour le bit8
exemple pour position le bit2 a 0 :
valeurOctet := valeurOctet AND $FD;

Pour lire un bit
si (valeurOctet and $01)=1 alors le bit 1 =1 sinon le bit 1 = 0

[bobby-b]

Merci 'petitcoucou31',
Ca va me servir aussi.

Bobby-B

[sjrd]

Attention parce que la fonction isByteOn de Pascal considère que le bit n°0 est celui le plus à droite, le bit n°1, le deuxième en partant de la droite et ainsi de suite. Remarque, cette notation est la bonne. Je dis ça parce que tu avais l'air de dire que pour toi le 1er bit était celui le plus à gauche...