Proyecto: Binario a Decimal en Visual Basic 6.0

Mini proyecto para convertir un Numero binario en decimal programado en Visual Basic 6.0, si deseas lo inverso, es decir de Decimal a Binario aquí el tema: Proyecto: Decimal a Binario en Visual Basic 6.0 y si adicionalmente  necesitas más información sobre conversión de Decimal a Binario de manera manual aquí hay tema al respecto: Convertir Decimales a Binarios de forma manual.

El código fuente se basa en extraer el ultimo carácter del numero binario y multiplicarlo por 1, luego el siguiente carácter y multiplicarlo por 2, y así sucesivamente multiplicándolo por una constante x 2 (1,2,4,8,16,32), es decir, comienza en 1 y se multiplica sucesivamente por 2 (ver el tema de conversión para entender mejor)

Para El código fuente de este proyecto pega 1 Textbox (txtValor), 1 label (lblResultado), 1 botón (cmdEjecutar), y pega el siguiente código

Option Explicit
Private Sub cmdEjecutar_Click()
    lblResultado.Caption = "" 'Seteamos el Resultado a vacio
    Dim Numero As String 'Declaramos la Variable que manejará el numero como cadena
    Numero = txtValor.Text 'le damos el valor del textbox a la variable string
    Dim Total As Long 'Acumulador
    Dim Constante, Temp As Integer 'Constante que irá cambiando en x 2
    Constante = 1 'Iniciamos la contantes en 1 (ver tabla de conversiones)

    Do
        Temp = Val(Right(Numero, 1)) 'obtengo el primer numero de la derecha
        Numero = Left(Numero, Len(Numero) - 1) ' Al binario le quito el ultimo digito
        Total = Total + (Temp * Constante) 'El primer digito que saqué de la derecho lo multiplico con la constante
        Constante = Constante * 2 ' la constante será 1,2,4,8,16,32, etc. es decir, x 2
    Loop Until Len(Numero) = 0 'Seguimos haciendo la operación hasta la cadena binario se quede sin digitos

    lblResultado.Caption = Total

End Sub

Aquí el proyecto listo para descargar junto como el archivo compilado:

Archivos adjuntos

Binario a Decimal Visual Basic (3263 downloads )