Convertir de binario a decimal en visual basic

[sayyis]

Nose si alguien me pueda ayudar con esto Convertir de binario a decimal y visebersa esto en visual basic se los agradeceria mucho

[Doctor Luz]

Aquí tienes la misma pregunta para C
http://www.forosdelweb.com/f14/convertir-numero-binario-decimal-c-231176/

A lo mejor lo puedes adaptar a VB

¿Os han puesto los mismos deberes a los dos?

[sayyis]

okis talves puede ke lo puede adaptar solo seria de cambiar algunas cosas

[roortiz]

yo lo tengo hecho en VB6, si te interesa pasame tu email, ademas puedes pasarlo a octal y hexadecimal....

[roortiz]

ya tengo el codigo para pasar de decimal a binario, octal y hexadecimal, solo necesito tu email para enviartelo......

[Seed]

roortiz y porque no lo publicas, seria util para muchos de nosotros =)

Gracias!!!

[roortiz]

bueno el codigo para pasar a Octal y Hexadecimal es simple..., por ejemplo: tomar el numero decimal y mostrar el octal y hexadecimal en un par de etiquetas seria asi:

dim numero as integer

Numero=text1.text
label1.caption=oct(numero)
label2.caption=hex(numero)


La funcion para convertir el numero a binario, la tango en mi casa, ahora estoy en el trabajo asi luego la posteo....

[roortiz]

Esta es la funcion que pasa de decimal a binario

debes usarla asi:
Dim numero as integer
numero=text1.text

label1.caption=bin(numero)


Function Bin(ByVal Numero As Integer) As String
Dim Binario As String
Dim Inicial() As String
Dim Final() As String
Dim Contador As Integer
Dim I As Integer
Dim J As Integer
Dim K As Integer
Do
Binario = Binario & CStr(Numero Mod 2)
Numero = Numero \ 2
Contador = Contador + 1
Loop Until Numero < 1
ReDim Inicial(Contador)
ReDim Final(Contador)
Binario = Trim(Binario)
For I = 1 To Contador
Inicial(I) = Mid$(Binario, I, 1)
Debug.Print Inicial(I)
Next I
Binario = ""
For J = 1 To Contador
Final(J) = Inicial(Contador + 1 - J)
Next J
For K = 1 To Contador
Binario = Binario & Final(K)
Next K
Bin = Binario
End Function

[sayyis]

pues te lo agredesco y pues te trate de mandar un mensaje pero no se si te llegaron o no y pues gracias por ayudarme okis bye

Saludos

[roortiz]

Ya tengo el codigo para pasar de BINARIO a DECIMAL: creo que funciona bien
el formulario debe tener un textbox, un boton, y un label.

Dim Numero As Double
Dim Res As Double

Private Sub Command1_Click()
Label1.Caption = ""
Numero = Val(Text1.Text)
Do
Res = Numero Mod 2
Label1.Caption = Label1.Caption + " " + Str(Res)
Numero = Int(Numero / 2)
Loop Until Numero < 2
If Numero = 1 Then
Label1.Caption = "1 " + StrReverse(Label1.Caption)
Else
Label1.Caption = StrReverse(Label1.Caption)
End If
End Sub


espero que les sirve y que lo usen....

[darver]

Hey que alguien me ayude para hacer la conversion de bases de un numeroÑ
de hexadecimal a binario y viceversa
de octal a binario y etc...........
help!!!!