ubiquitour.com

Cómo convertir Decimal a binario en Visual Basic

Mediante la creación de un programa corto en Visual Basic 6.0 o Visual Basic Express usted puede construir su propio convertidor para cambiar los números decimales a binarios equivalentes. Todo lo 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 traducen un manual si no laborioso proceso de trabajar con potencias descendentes de dos y resta las operaciones para llegar a un número binario final.

Instrucciones

1 ¿Crear un programa ejecutable en Visual Basic abre el programa y haciendo clic en? ¿Archivo.? ¿Haga clic en? ¿Nuevo proyecto? y el tipo EXE estándar proyecto.

2 Coloque un botón en el formulario haciendo doble clic en la herramienta del cuadro de herramientas. ¿Escanear hacia abajo el? ¿Propiedades? ¿panel en el lado derecho y cambie el título del botón a? ¿Convertir Decimal a binario.?

3 ¿Haga doble clic en el botón que debe leer ahora? ¿Convertir de Decimal a binario? para abrir la ventana de código de escritura directa. ¿Escriba los siguientes comandos entre el? ¿Private Sub Command1_Click()? ¿y? ¿End Sub? que ver:Dim DecimalNbr como tiempoDecimalNbr = InputBox (\"Enter el número decimal a convertir a binary\")MsgBox (\"The equivalente binario es \" & BinaryNbr(DecimalNbr))

4 Saltar varias líneas después del código anterior y escriba lo siguiente:Función ExpUp (ByVal exp tiempo) todo el tiempoProvisional de estática (0 a 31) como larga, n As IntegerSi interim(0) = 0 ThenInterim(0) = 1Para n = 1 a 30Interim(n) = interino (n - 1) * 2SiguienteInterim(31) = & H80000000End IfExpUp = interim(exp)End Function

5 Saltar varias líneas debajo de estas líneas en el código y escriba esto:Función BinaryNbr(ByVal calc As Long) As StringDim provisional As String, exp As Integerintermedio = String$ (32, \"0\")HacerSi calc y ExpUp(exp) luegoMID$ (interino, 32 - exp, 1) = \"1\"Calc = calc Xor ExpUp(exp)End IfEXP = exp + 1Bucle mientras calcBinaryNbr = Mid$ (provisional, 33 - exp)End Function

6 ¿Prensa? ¿F5? para ejecutar la aplicación. ¿Haga clic en el? ¿Introduzca el decimal a binario? botón. ¿Introduzca cualquier número decimal (entero) y la prensa? ¿Volver.? Si ha introducido correctamente el código anterior, verá el equivalente binario.

7 ¿Guardar el proyecto y la forma con un nombre fácil de recordar como? ¿Conversión binario.? ¿Haga clic en? ¿Archivo? ¿y? Hacer el binario Conversion.exe. Guarde el resultado en el escritorio para fácil acceso.

Consejos y advertencias

  • Para uso permanente, viste a la aplicación dando la forma de un nombre en el panel de propiedades del formulario. ¿Agregar más texto a la forma mediante un? ¿Etiqueta? herramienta para mantener información sobre las conversiones de binarias cómo se hacen. Añadir etiquetas y cuadro de texto herramientas al formulario para solicitar el número decimal y mostrar el resultado en lugar del simple InputBox y MsgBox en el paso tres.
  • Visual Basic, como otros lenguajes de programación de computadoras, es completamente intolerante de caracteres faltantes o errores tipográficos. Si esta utilidad no funciona correctamente, luego vuelva a revisar el código que escribiste.