Visual Basic 6.0Proyecto: Binario a Decimal en Visual Basic 6.0

Proyecto: Binario a Decimal en Visual Basic 6.0

-

- Advertisment -

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)

binario_a_decimal

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

5 COMENTARIOS

  1. si el usuario mediante casillas de verificacion escrbe el numero 0 o 1 como haces el codigo para transformar los ocho numero a decimal
    algo como el usuario coloca las casillas de verificacion en este orden 01010001y da resultado el numero 81 no puedo hacer el codigo para el boton convertir

DEJA UNA RESPUESTA

Por favor ingrese su comentario!
Por favor ingrese su nombre aquí

Últimas Noticias

WordPress – Crear BBCODE o shortcode personalizados

Los BBCODES o "shortcode" son esas funciones que tiene Wordpress y que se usan con corchetes, que generalmente te...

WordPress – Enviar título de la página o campo oculto, en Contact Form 7

Problema: Tengo un cliente que tiene una web con muchos productos y en todas sus páginas usa el mismo formulario...

Laravel – Modo Debug según IP

En algunos casos se necesita el modo DEBUG según IP, por ejemplo cuando estamos en producción y tenemos un...

Reemplazar URLs cuando cambias de dominio en WordPress (también de http a https)

Cuando haces un cambio de dominio por alguna razón (antes te llamabas www.viejodominio.com y ahora www.nuevodominio.com) si bien ya...
- Advertisement -

Como ejecutar comandos Artisan desde consola Git

Voy a suponer que ya tienen instalado el composer y php de manera global y un proyecto en Laravel....

Ejecutar Composer y/o PHP de manera Global en Windows

Si por alguna razón al instalar Composer este no funciona desde cualquier ruta estando en linea de comandos (ya...

Debe leer

- Advertisement -

También podría gustarteRELACIONADA
Recomendada para usted