Cap. 5.- Trabajando con Bits

En este capítulo vamos a trabajar a nivel de bits, como sabemos un byte esta compuesto de 8 bits asi por ejemplo el número 255 en decimal esta representado por 11111111 en binario

Fig. 1  Convirtiendo números a bits.

En la Figura observamos Objetos  Shape de color blanco y rojo que simbolizan los bits, a continuación se muestra el código que genera este lo que se esta observando:

void __fastcall TForm1::Button1Click(TObject *Sender)

{   int value=Edit1->Text.ToInt();

    if(value<=255 && value>=0)

    {   int Val[8];

        for(int i=0;i<8;i++)

        {   Val[i]=value%2;

            value/=2;

        }

        if (Val[7]==1) Shape1->Brush->Color = clRed;

        else Shape1->Brush->Color = clWhite;

        if (Val[6]==1) Shape2->Brush->Color = clRed;

        else Shape2->Brush->Color = clWhite;

        if (Val[5]==1) Shape3->Brush->Color = clRed;

        else Shape3->Brush->Color = clWhite;

        if (Val[4]==1) Shape4->Brush->Color = clRed;

        else Shape4->Brush->Color = clWhite;

        if (Val[3]==1) Shape5->Brush->Color = clRed;

        else Shape5->Brush->Color = clWhite;

        if (Val[2]==1) Shape6->Brush->Color = clRed;

        else Shape6->Brush->Color = clWhite;

        if (Val[1]==1) Shape7->Brush->Color = clRed;

        else Shape7->Brush->Color = clWhite;

        if (Val[0]==1) Shape8->Brush->Color = clRed;

        else Shape8->Brush->Color = clWhite;

    }

}

se pide hacer lo contrario hacer click en los circulos y habilitar y deshabilitar el bit de tal manera que se refleje en la caja de texto.

En el siguiente capítulo se muestra lo que continúa en la practica

El Docente.