Lire plusieurs bits consécutifs dans un octet.

Bonjour à tous,
Savez vous comment faire ceci :

J'ai un octet de 8 bits : "00010000" (=>16).
Je voudrais extraire les 2 bits que j'ai soulignés c'est à dire "01" (=>1) .

J'ai choisi les bits 5 et 6 en partant de la droite mais la fonction devra pouvoir extraire plusieurs bits consécutifs quelque soit leurs positions dans l'octet.

Merci beaucoup pour votre aide.

J'ai trouvé :

Dim MyByte as Byte = 16
MyByte = CByte(MyByte << 2 >> 6)

Typiquement pour faire ce genre de choses, on décale d'abord vers la droite de façon à ce que les bits voulus soient en position de bits de poids faible, et ensuite on fait un "ET" binaire avec un masque qui a juste les bits voulus à 1, ce qui a pour effet de mettre à 0 tous les autres bits.

Donc dans ton cas, c'est comme ça :

Code:

---

MyByte = CByte((MyByte >> 4) And 3)

---

(ici le masque est 3 = b00000011)

Si tu veux généraliser, pour prendre length bits à partir de la position offset (en comptant depuis la droite en partant de 0, donc dans ton scénario c'est 2 bits à partir du 5), tu peux utiliser une méthode comme ça :

Code:

---

1 2 3 4 5 6 7 8

Private Shared Function GetBits(b As Byte, offset As Integer, length As Integer) As Byte Dim shift As Integer = offset - length + 1 If shift < 0 OrElse length > 8 OrElse offset > 7 Then Throw New ArgumentOutOfRangeException() End If Dim mask As Byte = CByte(&Hff >> (8 - length)) Return CByte(mask And (b >> shift)) End Function

---

Merci beaucoup Tomlev :ccool: