Dónde se metió?

[[duilioisola]]

En booleano:

Código PHP:

1 and 1 = 1
1 and 0 = 0
0 and 1 = 0
0 and 0 = 0 


1 or 1 = 1
1 or 0 = 1
0 or 1 = 1
0 or 0 = 0

Dado un byte A (8 bits) y otro B, "A and B" resulta de realizar la función "and" con cada par de bits.
Dado un byte A (8 bits) y otro B, "A or B" resulta de realizar la función "or" con cada par de bits.

Si quieres encender un bit, puedes hacer un byte B, con solo el bit deseado en 1 y realizar "A and B":

A = 0101 0000
B = 0010 0100
    ---------
    0111 0000

Si quieres apagar un bit puedes realizar un byte B con todos los bits encendidos excepto el que quieres apagar:

A = 0101 0000
B = 1110 1111
    ---------
    0100 0000

[[duilioisola]]

En Delphi

Código Delphi [-]
function EncenderBit (b, bit : byte) : byte;
var
   suma : byte;
begin
   case bit of
   1 : suma :=   1; // que es 0000 0001 en binario
   2 : suma :=   2; // que es 0000 0010 en binario
   3 : suma :=   4; // que es 0000 0100 en binario
   4 : suma :=   8; // que es 0000 1000 en binario
   5 : suma :=  16; // que es 0001 0000 en binario
   6 : suma :=  32; // que es 0010 0000 en binario
   7 : suma :=  64; // que es 0100 0000 en binario
   8 : suma := 128; // que es 1000 0000 en binario
   end;
   Result := b or suma;
end;

function ApagarBit (b, bit : byte) : byte;
var
   suma : byte;
begin
   case bit of
   1 : suma := 254; // que es 1111 1110 en binario
   2 : suma := 253; // que es 1111 1101 en binario
   3 : suma := 251; // que es 1111 1011 en binario
   4 : suma := 247; // que es 1111 0111 en binario
   5 : suma := 239; // que es 1110 1111 en binario
   6 : suma := 223; // que es 1101 1111 en binario
   7 : suma := 191; // que es 1011 1111 en binario
   8 : suma := 127; // que es 0111 1111 en binario
   end;
   Result := b and suma;
end;