Discussion :

[phoenixgreg]

Bonjour tout le monde, meilleurs vœux !

j'ai besoin d'informations concernant les manipulation de bits en Delphi (shl, shr, etc ...) :

J'ai en fait une variable (un WORD sur 16 bits donc) avec lequel je dois initialiser quelques valeurs, voici ce que j'ai du faire :

Code :

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

1
2
 
awSlot[0] := (1 shl 11) + 6*60;

En gros du bit0 au bit10 cela correspond à un temps, et du bit11 au bit13 un délai.

Ce que je voulais savoir c'est comment lire ou récupérer ses valeurs, est-ce qu'il faut faire comme cela ? :

Code :

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

1
2
3
4
5
6
7
8
 
for i_cpt := 0 to 16 -1 do
begin
  if (awSlot[ i_cpt]) and (1 shl 11) <> 0) then
  begin
    showmessage(inttostr((awSlot[ i_cpt]) and (1 shl 11))));
  end;
end;

Je ne trouve pas beaucoup d'infos à ce sujet, merci d'avance en tout cas pour vos réponses !

[Andnotor]

shl à l'écriture égal shr à la lecture plus un masque.

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
18
19
20
21
const
  TimeMask   = $7FF;
  DelayMask  = $F;
  DelayShift = 11;
 
var
  Data  :word;
  Time  :word;
  Delay :byte;
 
begin
  Time  := 6 *60;
  Delay := 1;
 
  //Ecriture
  Data := Time +Delay shl DelayShift;
 
  //Lecture
  Time  := Data and TimeMask;
  Delay := (Data shr DelayShift) and DelayMask;
end;

[phoenixgreg]

Réponse rapide, correcte et claire merci beaucoup

[sgmsg]

shl à l'écriture égal shr à la lecture plus un masque.

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
18
19
20
21
const
  TimeMask   = $7FF;
  //DelayMask  = $F;
  DelayShift = 11;

var
  Data  :word;
  Time  :word;
  Delay :byte;

begin
  Time  := 6 *60;
  Delay := 1;

  //Ecriture
  Data := Time +Delay shl DelayShift;

  //Lecture
  Time  := Data and TimeMask;
  Delay := (Data shr DelayShift);// and DelayMask;
end;

Si c'est pas critique tu peux utiliser des mod et div.

Et si ça l'est alors Delaymask ne sert à rien. Le décalage à droite (shr) écrase les données à droite. Ce n'est pas un ror

[Andnotor]

Et si ça l'est alors Delaymask ne sert à rien. Le décalage à droite écrase les données à droite. Ce n'est pas un ror

C'est une question de cohérence. Dès lors que les deux bits de poids fort ne font pas partie de cette donnée, autant les exclure

[LadyWasky]

Bonsoir,



Pour ce qui t'intéresse, à savoir : "En gros du bit0 au bit10 cela correspond à un temps, et du bit11 au bit13 un délai", la réponse d'Andnotor est vraiment la meilleure.

En complément et bon à savoir ça peut etre utile :

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
18
19
20
procedure SetBit(var Value: Integer; const Bit: byte); Register;
asm
  BTS [eax],edx
end;
 
Procedure ClearBit(var Value: Integer; const Bit: byte); Register;
asm
  BTR [eax],edx
end;
 
Procedure ToggleBit(var Value: Integer; const Bit: byte); Register;
asm
  BTC [eax],edx
end;
 
function TestBit(const Value: Integer; const Bit: byte): Boolean; register;
asm
 BT eax,edx
 setb al
end;

[phoenixgreg]

Merci LadyWasky pour le complément,

en effet la réponse d'Andnotor était bonne, il n'y a aucun soucis ^^