Convertir a Bits


Alguna vez me preguntaron: ¿Cómo es que la computadora entiende las instrucciones que le damos?, por ejemplo si por el teclado digitamos “Papá” o “Mamá” ¿Cómo sabe el computador que hemos digitado esas palabras?, Entonces empece a explicar que la información que se almacena en el interior del computador es representado en el lenguaje binario y que cada caracter tiene una codificación llamada código ASCII y bla bla bla…Entonces hice esto para poder explicar.

Convertir a Bits

Primero crear una nueva aplicacion de consola.

        static void Main(string[] args)
        {
            ConsoleKeyInfo ki;
            Console.Title = "Donald A. Sullon Porras - v1.0";
            do
            {
                Console.Clear();
                Console.Write("Texto a Mostrar: ");
                String txt = Console.ReadLine();
                Console.WriteLine(new string('=', 24));
                Console.WriteLine("{0}   {1}   {2}", "Caracter", ("Bits").PadRight(8, ' '), "ASCII");
                Console.WriteLine(new string('=', 24));
                foreach (Byte c  in System.Text.ASCIIEncoding.ASCII.GetBytes(txt))
                {
                    Console.WriteLine("{0}   {1}   {2}", Convert.ToChar(c).ToString().PadRight(8, ' '),
                        Convert.ToString(c, 2).PadLeft(8, '0'), c);
                }
                Console.WriteLine("");
                Console.WriteLine("¿Desea continuar(S/N)?...");
                ki = Console.ReadKey();
            }while (ki.Key == ConsoleKey.S);
        }

Y para Visual Basic…

    Sub Main()
        Dim ki As ConsoleKeyInfo
        Console.Title = "Donald A. Sullon Porras - v1.0"
        Do
            Console.Clear()
            Console.Write("Texto a Mostrar: ")
            Dim txt As String = Console.ReadLine
            Dim c As Byte
            Console.WriteLine(New String("=", 24))
            Console.WriteLine("{0}   {1}   {2}", "Caracter", ("Bits").PadRight(8, " "), "ASCII")
            Console.WriteLine(New String("=", 24))
            For Each c In System.Text.ASCIIEncoding.ASCII.GetBytes(txt)
                Console.WriteLine("{0}   {1}   {2}", Convert.ToChar(c).ToString.PadRight(8, " "), _
                Convert.ToString(c, 2).PadLeft(8, "0"), c)
            Next
            Console.WriteLine("")
            Console.WriteLine("¿Desea continuar(S/N)?...")
            ki = Console.ReadKey
        Loop While ki.Key = ConsoleKey.S
    End Sub
Anuncios

2 pensamientos en “Convertir a Bits

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s