Cómo convertir de hexadecimal a binario en Visual Basic

Visual Basic puede cambiar de una base numérica a otro con un poco de manipulación en algunas líneas cortas de código. Numerosas listas de tablas de conversión numéricas incluidas todas las formas? Decimal, binario, hexadecimal y octal? Están disponibles en la Web con una simple búsqueda. Sin embargo, puede ser útil contar con un convertidor en el equipo. Un proceso de código crea un hexágono de base a la conversión binaria que se ejecuta más rápido que cargar un navegador y la búsqueda de una tabla en la Web.

Instrucciones

1 Abra Visual Basic y haga clic en? File? en el menú principal. Haga clic en? Nuevo proyecto? en el menú desplegable y seleccione? EXE estándar? como un tipo.

2 Haga doble clic en el? Label? herramienta (representado por un? A?) de la caja de herramientas de la izquierda. Haga doble clic en el cuadro de texto (representados por las letras? Ab?). Haga clic y arrastre el cuadro de texto por lo que está al lado de la etiqueta. Utilice el? Properties? lista para cambiar el título de la etiqueta de? Introducir número hexadecimal? y borrar las letras de la leyenda de texto del cuadro de texto.

3 Agregue un botón de comando al formulario haciendo doble clic sobre el botón de la herramienta (un pequeño rectángulo) y cambie el título de esta lectura? Convertir hexadecimal a binario.? Arrastra este botón debajo de los dos elementos creados en el paso 2. Añadir dos etiquetas más de la misma manera, colocándolos debajo del botón de comando y en la misma línea. Cambiar el título de la primera etiqueta de? El equivalente binario es? y borrar las letras de la propiedad de título de la segunda etiqueta.

4 Haga clic en? Ver? en el menú principal y seleccione? Código.? En la ventana de código, escriba lo siguiente:
Private Sub Command1_Click ()
Dim como secuencia HexNbr
Dim DecNbr como número entero
Dim Resultado As String
DecNbr = Val (\ "& H \" & Text1.Text)
Resultado = BinaryNbr (DecNbr)
Hacer mientras que Len (Resultado) <8
Resultado = \ "0 \" & resultado
Lazo
Label3.Caption = Resultado
End Sub

5 Escriba el siguiente código de abajo que en el Paso 4:
Función FirstConv (exp ByVal As Long) As Long
TempNbr estática (0 a 31) como de largo, como número entero n
Si TempNbr (0) = 0 Entonces
TempNbr (0) = 1
Para n = 1 Para 30
TempNbr (n) = TempNbr (n - 1) * 2
Siguiente
TempNbr (31) = & H80000000
Terminara si
FirstConv = TempNbr (exp)
End Function

6 Introduzca estas últimas líneas de código por debajo de la? Función del final? en el Paso 5:
Función BinaryNbr (ByVal calc As Long) As String
Dim TempNbr como secuencia, exp como número entero
TempNbr = cadena de caracteres $ (32, \ "0 \")
Hacer
Si Calc y FirstConv (exp) A continuación,
Mediados $ (TempNbr, 32 - exp, 1) = \ "1 \"
calc calc = Xor FirstConv (exp)
Terminara si
exp = exp + 1
Mientras bucle calc
BinaryNbr = Mid $ (TempNbr, 33 - exp)
End Function

7 Utilice el? F5? clave para ejecutar la aplicación. Introduzca un número en el cuadro blanco al lado? Introduzca un número hexadecimal? y haga clic en? Convertir hexadecimal a binario.? Si ha introducido el código correctamente, podrás ver el resultado aparece en el cuadro vacío al lado de? El resultado es equivalente binario.? Si no es así, vuelva a revisar el código.

Consejos y advertencias

• Si desea mantener esta utilidad de forma permanente, a continuación, compilar el resultado por primera vez de guardar el proyecto y formar con un nombre fácil de recordar, tal vez? Hex-convertidor binario.? A continuación, haga clic en? File? y? Hacer Hex-binario Converter.exe. \ "
• Mientras que usted puede cambiar los nombres de los elementos, como etiquetas o botones de comando en las propiedades de diseño de formulario, también debe cambiar el código para que coincida con los nuevos nombres. Cualquier otra cosa en la codificación debe permanecer exacta a menos que se altera con mucho cuidado todas las apariciones de palabras específicas cambiado.