Conversion de Bases numericas

[darver]

Necesito hacer funciones para convertir los numeros a las distintas bases.
alguien sabe como¿

[orharo2003]

Yo hice a binario,hexadecimal y al reves.

No es complicado, de hecho hay funciones que ya hacen esto.

Si no mal recuerdo está la función hex() x ejemplo: [vbs]

hex(15) te regresa F

en Jscript hay otra más pero se utiliza desde el lado del cliente y es toString() en asp net lo usas ya sin broncas desde el server.

Hay te va un ejemplo:[javascript]

<SCRIPT LANGUAGE="VBScript">

function prompt(sPrompt,sTitle,sDefault)
prompt = inputbox(sPrompt, sTitle, sDefault)
end function

</SCRIPT>

<SCRIPT LANGUAGE="Javascript">
var s;
var s1;
var msg;

s = prompt("Enter a number or a string:", "", "");
s1 = parseFloat(s);

if (isNaN(s1))
msg = "You entered a string."
else
msg = "You entered " + s1 + " which in binary is " + s1.toString(2);

alert(msg)

</SCRIPT>

El truco : s1.toString(2);

ahi pones la base, por ejemplo si pones 16 te convertirá a base 16.

Pero puedes hacer tu tu propia conversión solo entender, yo te podría ayudar a hexadecimal y binaria sin usar funciones.

[orharo2003]

Viendo mis apuntes pruebate este, te convierte de binario a decimal con validaciones.
Adpatalo a tus necesidades.


<script language="vbscript">
'alumno Orlando Rios
' materia Ensamblador
' fecha : 13-02-2002
option explicit

function convierte()

dim contador,digito,exponente,acomulador
acomulador=0
exponente=1
contador=len(binario.value)
if(contador=0) then
alert("Ingrese un valor binario")
exit function
end if

while(contador>=1)
digito=mid(binario.value,contador,1)
if(not(isnumeric(digito)))then
msgbox "La expresión [" & binario.value & "] no es válida ---> " & digito & " <---"&chr(13)&"No ingrese letras ní caracteres especiales."&chr(13)&"Ingrese únicamente valores numericos (0 y 1)",16+vbsystemmodal,"Error"
binario.select
exit function
end if
if(digito<>1 and digito<>0)then
msgbox "La expresión ( " & binario.value & " ) no es válida ---> " & digito & " <---"&chr(13)&"Ingrese únicamente valores binarios (0 y 1)",16+vbsystemmodal,"Error"
binario.select
exit function
end if
if(digito=1)then
acomulador=acomulador+exponente
end if
exponente=exponente*2
contador=contador-1
wend
msgbox "La conversión de " & binario.value & " a decimal es : <<" & acomulador&" >>",vbinformation,""
end function
function hola(texto)
msgbox texto
end function
</script><input name="binario"><input type="button" value="Convertir Binario a Decimal" onclick="convierte()">