Cómo convertir de decimal a binario en Visual Basic

Mediante la creación de un programa de utilidad corta en Visual Basic 6.0 o Visual Basic Express usted puede construir su propio convertidor para cambiar los números decimales equivalentes binarios . Lo único que se requiere es crear un formulario de interfaz con un comando para iniciar el proceso y dos funciones que llevan a cabo la operación. Las funciones se traducen un proceso manual de otra manera laboriosa de trabajar con potencias descendentes de dos y operaciones de resta para llegar a un número binario final. Cosas que necesitará
Visual Basic 6.0 o Visual Basic Express
Mostrar más instrucciones
1

Crear un programa ejecutable de Visual Basic , abra el programa y haga clic en "Archivo . " A continuación, haga clic en " Nuevo proyecto" y selecciona el tipo EXE estándar del proyecto.
2

Coloque un botón en el formulario , haga doble clic en esa herramienta en la caja de herramientas . Escanear hacia abajo el panel " Propiedades" en el lado derecho y cambiar el título del botón de " Convertir de decimal a binario . "

3 Haga doble clic en el botón que ahora debe decir " Convertir de decimal a binario "para abrir la ventana directa de código escrito. Escriba los siguientes comandos entre el " Private Sub Command1_Click ()" y "End Sub " que se ve : DecimalNbr As LongDecimalNbr = InputBox ("Escriba el número decimal a convertir en binario ") MsgBox ( " El equivalente binario es" & BinaryNbr ( DecimalNbr ) )
4

Skip varias líneas después el código de arriba y escriba lo siguiente : Función ExpUp (exp ByVal As Long ) como interino LongStatic ( 0 a 31) como de largo, n Como IntegerIf provisional ( 0 ) = 0 Theninterim ( 0 ) = 1 Para n = 1 Para 30interim (n ) = intermedio (n - 1 ) * 2Nextinterim ( 31 ) = & H80000000End IfExpUp = provisional ( exp) End Function
5

Pasar varias líneas debajo de las líneas anteriores en el código y escriba lo siguiente: Función BinaryNbr ( calc ByVal As Long ) Como StringDim provisional como secuencia, exp Como Integerinterim = cadena de caracteres $ (32, " 0 ") DOIF calc y ExpUp ( exp) ThenMid $ (a cuenta, 32 - exp, 1 ) = " 1 " calc = calc Xor ExpUp ( exp) End Ifexp = exp + 1Loop Mientras calcBinaryNbr = MID $ (a cuenta, 33 - exp) End Function
6 < p> Presione " F5 " para ejecutar la aplicación . Haga clic en el botón "Enter decimal a binario " . Introduzca cualquier número decimal ( entero) y pulse "Return ". Si ha introducido el código de seguridad correctamente , verá el equivalente binario .
7

Guardar el proyecto y el formulario con un nombre fácil de recordar como "Conversión Binario ". A continuación, haga clic en " Archivo" y "Make Conversion.exe binarios . Guardar el resultado en su escritorio para fácil acceso.