AYUDA URGENTE

ANA
18 de Junio del 2006
NECESIT AYUDA!TENGO Q ACE U POGRMA PASED DECIMAL ABINO.
GRACAS

acemel
18 de Junio del 2006
pues creo q para pasar a binario no hay conversion directa como para octal o hexadecimal.
esta es la parte del codigo de mi calculadora q hace eso

Function decbin()
Dim resto As String
Dim cociente As Integer
numero = Val(cadena)
Do While numero > 0
resto = numero Mod 2
cociente = Val(numero / 2)
numero = cociente
Text1.Text = resto + Text1.Text
Loop
If Text1.Text = "" Then Text1.Text = 0
End Function