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 a binarios equivalentes. Todo lo que se requiere es crear un formulario de interfaz con un solo comando para iniciar el proceso y dos funciones que llevan a cabo la operación. Las funciones de traducir un proceso manual de otra manera laboriosa de trabajar con potencias descendentes de dos y resta operaciones para llegar a un número binario final.
Instrucciones
1 Crear un programa ejecutable en Visual Basic abriendo el programa y haciendo clic en? Archivo.? A continuación, haga clic en? Nuevo proyecto? y elegir el tipo EXE estándar del proyecto.
2 Coloque un botón en el formulario haciendo doble clic en esa herramienta en la caja de herramientas. Analiza por la? Properties? panel en el lado derecho y cambiar el título del botón de? Convertir decimal a binario.?
3 Haga doble clic en el botón que debería leer ahora? Convertir decimal a binario? para abrir la ventana directa de escribir código. Escriba los siguientes comandos entre el? Private Sub Command1_Click ()? y? End Sub? que se ve:
Dim DecimalNbr As Long
DecimalNbr = InputBox (\ "Introduzca el número decimal para convertir a \ binario")
MsgBox (\ "El equivalente binario es \" & BinaryNbr (DecimalNbr))
4 Saltar varias líneas después de que el código anterior y escriba lo siguiente:
Función ExpUp (exp ByVal As Long) As Long
provisional estática (0 a 31) como de largo, como número entero n
Si provisional (0) = 0 Entonces
provisional (0) = 1
Para n = 1 Para 30
provisional (n) = provisional (n - 1) * 2
Siguiente
provisional (31) = & H80000000
Terminara si
ExpUp = provisional (exp)
End Function
5 Saltar varias líneas por debajo de las líneas anteriores en el código y entrar en esto:
Función BinaryNbr (ByVal calc As Long) As String
Dim como secuencia intermedia, exp como número entero
provisionales = cadena de caracteres $ (32, \ "0 \")
Hacer
Si Calc y ExpUp (exp) A continuación,
Mediados $ (interina, 32 - exp, 1) = \ "1 \"
calc calc = Xor ExpUp (exp)
Terminara si
exp = exp + 1
Mientras bucle calc
BinaryNbr = Mid $ (interina, 33 - exp)
End Function
6 Pulse? F5? para ejecutar la aplicación. Haga clic en el? Introduzca decimal a binario? botón. Introduzca cualquier número decimal (entero) y pulse? Volver.? Si ha introducido el código de seguridad correctamente, verá el equivalente binario.
7 Guarde el proyecto y la forma con un nombre fácil de recordar como? Conversión binario.? A continuación, haga clic en? File? y? Hacer binario Conversion.exe. Guardar el resultado en su escritorio para facilitar el acceso.
Consejos y advertencias
- Para uso permanente, vestir a la aplicación dando la forma de un nombre en el panel de propiedades del formulario. Añadir más texto al formulario mediante el uso de un? Label? herramienta para almacenar información acerca de cómo se hacen las conversiones de binario. Añadir etiquetas y las herramientas de cuadro de texto al formulario para solicitar el número decimal y mostrar el resultado en lugar de la sencilla InputBox y MsgBox en el Paso Tres.
- Visual Basic, al igual que otros lenguajes de programación, es completamente intolerante con los errores tipográficos o caracteres que faltan. Si esta utilidad no se ejecuta correctamente, a continuación, volver a comprobar el código que ha introducido.