Discussion :

[pdgnr]

Bonjour à tous.
Comment faire dans delphi pour intervenir au niveau du bit ?
Par exemple :
J'ai un octet A et je veux mettre à jour son bit n°3 à l'aide d'un octet B qui peut prendre la valeur 0 ou 1. Bien sûr les bits 0 à 2 et 4 à 7 de A ne doivent absolument pas être affectés par l'opération.

Merci d'avance,

Robert

[tourlourou]

Code :

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

1
2
3
if b>0
 then a:=a or 8  
 else a:=a and (255-8);

à vérifier...

[Jayceblaster]

tu peux faire un masque....
Exemple

Code :

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

1
2
3
4
5
 
  si  A = 00001101
  et B = 11110111
  et la tu fais: A and B
  et si C est le résultat de l'opération tu as: C=00000101

Tu as fais passé le bit 3 à 0

[denokan]

bon pour commencer une petit routine bien pratique

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
function BinToInt(valeur : String) : Integer;
// convertit une valeur binaire en sa représentation entière
var
  i : Integer;
begin
  Result:=0;
  for i:=Length(valeur) downto 1 do
    if (valeur[i] = '1') then
      Result:=Result + Round(Power(2, Length(valeur) - i));
end;

à priori il faut commencer par mettre tous les bits autres que 3 à 1 :

Code :

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

1
2
 
C := B or BinToInt(00000100);

ensuite tu combines le résultat avec ta variable A :

Code :

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

1
2
 
A := A and C;

[TicTacToe]

je ferais comme Tourlourou
(si j'ai bien compris, B vaut est la valeur de bit qu'il faut affecter au bit de rang N de A...)
mais j'ai l'impression que tout le monde n'a pas compris la même chose, et l'autre version c'est combiner avec le meme bit respectif de B...
je m'en tiens à ce que j'ai cru comprendre

Code :

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

1
2
3
4
NoRang := 3;
if B = 0
  then A := A and ( High( [Type de A] ) - ( 1 shl NoRang )  )
  else A := A or ( 1 shl NoRang );

Attention au bit de signe !

[tourlourou]

joli et général !
là, tu alignes les 3 croix, TicTacToe...

[OutOfRange]

Bonjour

Code :

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

1
2
3
if b>0
then a:=a or 8  
else a:=a and (255-8);

Sauf que la valeur 8 représente le bit de poids 4 et non 3...
Car si 2^3=8, il ne faut pas oublier que 2^0=1
Je dirais donc plutôt

Code :

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

1
2
3
if b>0
then a:=a or 4  
else a:=a and (255-4);

Sauf erreur... car on est le soir, donc après une journée de dur labeur

Bon, sans rancune, c'était juste pour le fun

[TicTacToe]

heu... je voudrais pas me méler, mais je crois que malgré sa dure journée (je sais pas ),

Etant donné que dans l'énoncé de départ, il est bien décrit que les bit vont de 0 à 7, le n°3 correspond bien comme tu le cites OutOfRange
à
2^3 = 8 et non 3 comme tu dis dans ton code. (qui correspond au bit N°2).

1 = 0000 0001 -> bit N°0
2 = 0000 0010 -> bit N°1
4 = 0000 0100 -> bit N°2
8 = 0000 1000 -> bit N°3
16 = 0001 0000 -> bit N°4
etc...

[OutOfRange]

Oups
Mea culpa
La journée aurait été encore + dure que je ne le pensais
Je vais devoir m'astreindre à relire 1024 fois les posts avant de me ridiculiser à nouveau...
Bonne prog

[pdgnr]

Merci à tous,
et désolé de ne pas avoir répondu + tôt. J'avais oublié d'activer la notification et je croyais n'avoir aucune réponse.

Cordialement,

Robert