Comunidad Game Maker

Saludos.

Ando liado con un problema, a ver si podeis echarme un cable. Resulta que para una peque?a aplicacion necesito realizar conversiones de decimal a binario y viceversa. He creado dos scripts, pero solo me funciona el que realiza las conversiones de decimal a binario, el que hace la conversion contraria no funciona y todavia no se porque.

Os dejo con el primer script(el que funciona):

// argument0 Numero decimal

var bin, binresultinv,binresult;

binresult="";
binresultinv="";
bin=argument0;

while bin>=1
{
   if (bin mod 2 = 0) {binresultinv+="0";}
   else {binresultinv+="1";}
   bin=round(bin/2)
}

for(i=string_length(binresultinv); i>0; i-=1) // Invertimos la cadena segun procedimiento de conversion
{
   binresult+=string_char_at(binresultinv,i);
}

return(binresult)
   

Este es el que me da problemas. Se supone que deberia de convertir una cadena con un numero binario en un numero decimal:

// argument0 numero binario (en formato cadena)

var dec,decresult;

decresult=0;
dec=0;

for(i=string_length(argument0); i>0; i-=1) //La conversion se hace del ultimo digito al primero
{
  dec=real(string_char_at(argument0,i));
  decresult+=dec*power(2,i)
}

return(decresult)

?Podria alguien decirme donde me estoy equivocando?

proba asi a ver... MODIFICOOO NO ANDABA LA ANTERIOR ESTA SI...

// argument0 numero binario (en formato cadena)

var dec,decresult;

decresult=0;

for(i=string_length(argument0)-1; i>0; i-=1) //La conversion se hace del ultimo al primer digito.
{
   decresult+=power(real(string_char_at(argument0,i))*2,(abs(i-(string_length(argument0)))));
}

return(decresult);


PD: Terminame el Cell Fusionnnn!

Je je... gracias, ya funciona :)

A ver si saco otro huequin y le doy ca?a al proyecto.