[RESOLU] ReadBit... Bit & Octets

[Progi1984]

Bonjour,

J'aurais besoin de lire tous les bits d'un octet.

Donc, pour lire mon octet, je fais

Code : Tout sélectionner

octet.b = ReadByte(FileID)

Mais comment faire pour lire les bits de mon octet ?

[Lna]

Code : Tout sélectionner

a.b=%10110010

For c=0 To 7
  Debug a & 1
  a>>1
Next c

@ peluche

[Flype]

et pour reprendre l'exemple de LNA,

une macro ReadBit(byte, offset) :

Code : Tout sélectionner

Macro ReadBit(byte, offset)
  ( ( (byte) >> (offset) ) & 1 )
EndMacro

For offset = 0 To 7
  Debug ReadBit(%10110010, offset)
Next 

[Progi1984]

Nickel ! Merci les gens