Cómo convertir un número binario al tipo Real

[kbaby]

Hola !! Que tal... cuanto tiempo sin pasarme =D eso es bueno, es porque progreso sin problems.
Tengo una duda para vosotros jejejeje... a ver la suelto...

Quisiera un codigo, o bueno saber como a salido ese "codigo" para hacer una conversion de binario a un numero real ^^ Utilizando edits o tabla... me da igual ^^

No se si me explico pero bueno graaaaaacias.

PD1: Cambiad el titulo que no sabia cual ponedle.

[ixMike]

Hola

Según mi ayuda de Delphi:

Empezado por Ayuda de Delphi

A 6-byte (48-bit) Real number is divided into three fields:

1 39 8
[s| f | e ]
msb lsb msb lsb

The value v of the number is determined by the following:

if 0 < e <= 255, then v = (-1)s * 2(e-129) * (1.f).
if e = 0, then v = 0.

The Real type can't store denormals, NaNs, and infinities. Denormals become zero when stored in a Real, and NaNs and infinities produce an overflow error if an attempt is made to store them in a Real.

Según esto, el primer bit es para el signo, los siguiente 39 son la mantisa, y los últimos 8 el exponente.

Si recuerdo bien lo que me enseñaron en clase de informática, el valor del número sería f·10^(e-129) (escrito en notación científica).

En trucomanía tienes un par de trucos para pasar Integer<->Binario:
http://www.q3.nu/trucomania/truco.cgi?122&esp
http://www.q3.nu/trucomania/truco.cgi?187&esp

Lo que no sé cómo hacer es extraer esos 39 bits (cuarenta tomando el signo) por separado para pasarlos a binario, y después hacerlo con los otros 8

¿Alguien que aporte cómo, o que me corrija si me equivoco?

[kbaby]

Buaaaah a llorar xD yo se hacerlo con cuentas ^^

Mike cambie de blog xD www.lavidaesbella.motime.com xD por si te interesa ^^

Te gusto mi felicitacion?

Jjajaja tengo otra pregunta ya de contenido informatico ^^ me he bajado el todo en uno v8... y son 2 dvd de 8 gb cada uno por lo visto. ¿Como lo grabo? Si mi dvd tiene 4,7 GB !!! XD

[ixMike]

Hay DVDs de 8'5 GB e incluso de 17 GB (doble capa, doble cara). Y sí, me llegó la felicitación gracias.

[kbaby]

¿No hay manera de poderlo hacer en DVD normales? Jajajaja.

[kbaby]

¿Podrías hacerme un favor? He visto los codigo de: http://www.q3.nu/trucomania/truco.cgi?122&esp pero vamos... ni idea de como usarlos porque hay "comandos" que no he estudiado aún. Si podrías hacerme un programa a través de ese codigo y yo lo veo, lo estudio y lo aprendo. =) Uno sencillito. Jajaja

PD: Soy pesado (por eso digo que si estoy en un foro, temblad )

[ixMike]

No utliza ningún "comando" extraño, tan sólo es el código de una función recursiva (bueno, hay muchas, distintas formas de hacer lo mismo) a la que se pasas un integer y te devuelve un string que es el número en binario.

Si no entiendes lo que hace exactamente después de examinarla, pues entonces déjala para un futuro. Utiliza algunos operadores un tanto atípicos, al menos para mí (vale, ni yo entiendo el código ).

Y para que no me digan nada por ahí, te digo que en Delphi no hay "comandos", pero sí funciones, métodos, tipos, objetos, eventos, operadores...


A todo esto... ¿qué es lo que quieres hacer exactamente?

[kbaby]

Quiero un programa que haga esto, lo necesito locamente para mañana a las 8:30... así que imagínate xD jajaja.

[ixMike]

¡Será posible! Deberías haber empezado un poco antes, ¿no?

A ver qué te parece esto (no sé si funciona correctamente):

Código Delphi [-]
Function RealToBin(R: Real): String;
type
  TBReal = record
    B1, B2, B3, B4, B5, B6: Byte; //una estructura que ocupa lo mismo que un Real y puedes accederla byte a byte
   end;
  PBReal = ^TBReal; //Puntero a ese tipo
var
  V: PBReal;
  S: String;
begin
  V:=@R;
  S:=IntToBin(V^.B1, 8) + IntToBin(V^.B2, 8) + IntToBin(V^.B3, 8) + 
     IntToBin(V^.B4, 8) + IntToBin(V^.B5, 8) + IntToBin(V^.B6, 8);
  Result:=S;
end;

Espero que te sirva (mira a ver si puedes hacerlo tú con un puntero a una matriz, en vez de a una estructura ).

Salu2.

[kbaby]

Pero.. todo esto donde lo meto? En un button, en el fondo del programa... ¿donde? :S Soy un no-va-to xD con todas sus letras.

[[egostar]]

Empezado por kbaby

Quiero un programa que haga esto, lo necesito locamente para mañana a las 8:30... así que imagínate xD jajaja.

Empezado por kbaby

Pero.. todo esto donde lo meto? En un button, en el fondo del programa... ¿donde? :S Soy un no-va-to xD con todas sus letras.

Hola amigo kbaby, como se que tienes potencial y que no te da miedo entrarle a los golpes, pienso que puedes solucionar esa duda existencial que tienes, prueba las opciones que se te ocurran y decide donde estará mejor

Salud OS

[kbaby]

Es que no entiendo nada de lo que hay en el codigo, tenemos un nivel muy bajo, lo ultimo que dimos fue el: if, for y copy

Imagínate.

Por cierto... egostar... ¿tu jugabas a habbo?

[[egostar]]

Empezado por kbaby

Es que no entiendo nada de lo que hay en el codigo, tenemos un nivel muy bajo, lo ultimo que dimos fue el: if, for y copy

Imagínate.

Es que es una funcion que puedes llamar desde cualquier parte de tu forma, ya sea un boton o un evento, la puedes llamar de esta manera

Código Delphi [-]
VariableString := RealToBin(19.25);

Empezado por kbaby

Por cierto... egostar... ¿tu jugabas a habbo?

Pues no amigo kbaby ni lo conozco, cuando era joven como tú no existia ni siquiera la computadora, las TV eran blanco y negro, no existian los controles remotos, jugaba con carritos de madera y soldaditos de plomo.....

Salud OS

[kbaby]

Mejor lo dejo... no tengo ni idea de que es
VariableString := RealToBin(19.25);

Es que en ese juego había un egostar :P por eso me sonaba jujuju.

Gracias por la ayuda.

[ixMike]

Empezado por kbaby

Mejor lo dejo... no tengo ni idea de que es
VariableString := RealToBin(19.25);

¿Estás seguro de que eres el mismo kbaby que con el que yo traté hace unas semanas? Porque me parece que entonces sabías mas

VariableString es una variable de tipo string, a la que se asigna el valor que retorna la función RealToBin (creada por mí) cuando le pasas el parámetro 19'25. RealToBin la puedes poner en varios sitios; te recomiendo en implementation.


Ahora tengo que pedir disculpas por un pequeño despiste que he tenido, te he dado la función inversa a la que buscabas :

Empezado por kbaby

hacer una conversion de binario a un numero real

Esto lo que hace es coger un número real y pasarla a binario ^^

¿Estás seguro de que el número tiene que ser real? Porque con un entero la cosa queda muy fácil, pero con un real... mucho nivel para alumnos que sólo han visto if, for y copy.


Bueno, entonces consideremos el caso binario a entero. En los enlaces que te he puesto al principio hay una función que lo hace, pero vamos a pasar de ella, y vas a hacer tú mismo el método .

Para empezar, ¿cómo vas a recibir ese número binario? Seguramente lo escribirás en un edit, bueno, eso se espera. Ok.

Olvidémonos por un momento de la informática y dime: ¿sabes convertir un número en binario a decimal? Es decir, ¿sabes que 1010101010 es 682? Espero que sí : vas recoriendo los dígitos binario, de derecha a izquierda, sumando potencias de base 2.

Vale, ahora, ¿cómo aplicar este sistema en tu código Delphi? Veamos:

-Recorrer los carácteres de derecha a izquierda: El texto del edit se guarda en su propiedad Text, de tipo string. Si has estudiado sabrás que se pueden acceder a los distintos carácteres de un string como si de una matriz de Char se tratara. Así, para leer el 3er carácter harás:

Código Delphi [-]
const
  Cadena = 'ABCDEF';
var
  TercerCaracter: Char;
begin
  TercerCaracter:=Cadena[3];
  //TercerCaracter ahora debe valer "C"
end;

A diferencia de otros tipos o lenguajes, en Delphi el string comienza en el carácter 1, y no en el 0.

Pero, para recorrer de derecha a izquierda, ¿cómo hacerlo? Necesitarás un bucle (por la repetición) y saber cuántos carácteres tienes en el edit. Para lo segundo tienes la función Lenght (mira en la ayuda de Delphi para aprender cómo se usa, aunque es muy muy simple). Así, para recorrer todos los carácteres del edit haremos:

Código Delphi [-]
var
  n: integer;
begin
  for n:=Length(Edit1.Text) downto 1 do
    begin
    //Código
    end;
end;

Vale, ahora ya sólo queda calcular el número en sí. Pues con todo lo que sabemos, lo único que falta saber es cómo calcular una potencia; la función Power de la unit math nos lo da.

Toma, el código que tanto ansiabas:

Código Delphi [-]
var
  n, Numero: Integer;
begin
  Numero:=0; //Damos un valor inicial al número
  for n:=Lenght(Edit1.Text) downto 1 do
    begin
      If Edit1.Text[n]='1' then //Si el número es un uno
       Inc(Numero, Power(2, Length(Edit1.Text)-n));
    end;
ShowMessage('El binario '+Edit1.Text' equivale al número entero '+IntToStr(Numero));
end;

Espero que esté lo suficientemente claro. Cualquier función que no sepas para qué sirve, puedes buscarla en la ayuda de Delphi. Y recuerda añadir math a la uses.


Salu2.

[kbaby]

Dios! Que pasanda de escribir. Pues sí soy el mismo kbaby con mucho sueño pero bueno xD y con pocas ganas porque estoy estudiando a petrarca a la vez así que imagínate... =) Petrarca, fray luis de leon ... etc

La funcion Length si la he visto, por lo demás.. nothing de nothing xD. Voy a intentar ir captando pasito a pasito , lo que me has escrito.



Volveré... xD

PD: Nosotros no estudiamos, simplemente vamos viendo "funciones" poco a poco, como te comenté, primero el for, luego if, luego copy... etc etc xD
PD2: Lo que quiero es pasar de un nº binario (10101010101010) a un numero normal (real supongo) por ejemplo 69 :P

[kbaby]

Me he atrancado aquí:

const
Cadena = 'ABCDEF';
var
TercerCaracter: Char;
begin
TercerCaracter:=Cadena[3];
//TercerCaracter ahora debe valer "C"
end;


ABCDEF ... supongo que ese código ira en un button... pero como voy a poner en ese button ABCDEF xD

PD: Soy... principiante (mas por debajo)

PD2: He leído el código completo y e ido transladando todo a lo que yo sé y me atranqué en:
If Edit1.Text[n]='1' then //Si el número es un uno
Inc(Numero, Power(2, Length(Edit1.Text)-n));

Edit1.Text[n] -> No lo he visto nunca después de text añadir [n] ... T_T

[ixMike]

Empezado por kbaby

ABCDEF ... supongo que ese código ira en un button... pero como voy a poner en ese button ABCDEF xD

"ABCDEF" es sólo una constante que he declarado como ejemplo.

Empezado por kbaby

PD: Soy... principiante (mas por debajo)

Ni eso, eres un alumno

Empezado por kbaby

Edit1.Text[n] -> No lo he visto nunca después de text añadir [n]

No es cuestión de Text, sino de cualquier variable o propiedad o función de tipo String, puedes acceder al caracter n como ya te he explicado.

Dile a tu profesor(a) que os enseñe un poco más de lo básico antes de empezar con nuevas funciones


Salu2, y que vaya bien con la literatura

[kbaby]

Al fin termine literatura xD Voy a intentar hacer eso de binario a decimal de esta forma.

Guardare la longitud del binario en una variable cantidad
Hare un for para que se repita tantas veces como esa cantidad

1. Pero aquí está la cuestion: ¿cómo le digo a ese for, que tiene que ir sumando 1+2+4+8...) "Me explico mal xD"
2. Y cuando aparezca un 0 en el binario... pues cojeré un IF y si sale 0, le diré que pasé de él, que lo discrimine. (Cómo hacer eso es otro gran logro) xD.

[ixMike]

Volvamos a ver mi código:

Código Delphi [-]
var
  n, Numero: Integer;
begin
  Numero:=0; //Damos un valor inicial al número
  for n:=Lenght(Edit1.Text) downto 1 do
    begin
      If Edit1.Text[n]='1' then //Si el número es un uno
       Inc(Numero, Power(2, Length(Edit1.Text)-n));
    end;
ShowMessage('El binario '+Edit1.Text' equivale al número entero '+IntToStr(Numero));
end;

Lenght(Edit1.Text) es lo que tú quieres llamar cantidad, pero si así te aclaras mejor, pues entonces hazlo

If Edit1.Text[n]='1' then significa "si el carácter n es uno entonces...". Así es como discrimino al cero.

La función Inc incrementa la variable Numero en la cantidad que se le dice en el segundo parámetro. Estas dos líneas hacen lo mismo:

Código Delphi [-]
Inc(Numero, 2);
Numero:=Numero + 2;

Lo que hago es incrementarlo la potencia de dos, teniendo en cuenta que el exponente es el orden del carácter leído, comenzando por la derecha y desde cero. Si te fijas, cantidad - n ya hace esto (al principio vale 0, y al final cantidad - 1)

A ver si de esta forma te aclaras más:

Código Delphi [-]
var
  n, Cantidad, Numero: Integer;
begin
  Numero:=0; //Damos un valor inicial al número
  Cantidad:=Lenght(Edit1.Text); //Indicamos la cantidad
  for n:=Cantidad downto 1 do
    begin
      If Edit1.Text[n]='1' then //Si el número es un uno
       Numero:=Numero + Power(2, Cantidad - n);
    end;
ShowMessage('El binario '+Edit1.Text' equivale al número entero '+IntToStr(Numero)); //Mostramos un mensaje con los datos
end;

¿Mejor así?

Salu2.