Discussion :

[BasicZX81]

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.

[BasicZX81]

J'ai trouvé :

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

[tomlev]

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 :

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

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 :

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

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

[BasicZX81]

Merci beaucoup Tomlev