Visual Basic 6.0
Ver Más instrucciones
1
Abra Visual Basic y haga clic en "Archivo" 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 la herramienta "Etiqueta" ( 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 la lista "Propiedades " para cambiar el título de la etiqueta de " Introducir número Hex" y borrar las letras en el título de texto del cuadro de texto .
3
Agregar un botón de comando a la formar haciendo doble clic en la herramienta de botón (un pequeño rectángulo) y cambiar el título de este tipo lea "Convertir hexadecimal a binario . " Arrastre este botón debajo de los dos elementos que ha creado en el Paso 2 . Agregue 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 () HexNbr As StringDim DecNbr IntegerDim Como resultado como StringDecNbr = Val ("& H " & Text1.Text ) Resultado = BinaryNbr ( DecNbr ) Do While Len (Resultado) < 8Result = " 0 " y ResultLoopLabel3.Caption = ResultEnd Sub
5
Escriba el siguiente código de abajo que en el Paso 4 : Función FirstConv (exp ByVal As Long ) Como LongStatic TempNbr ( 0 a 31 ) As Long , n Como IntegerIf TempNbr ( 0 ) = 0 ThenTempNbr ( 0 ) = 1 Para n = 1 Para 30TempNbr (n ) = TempNbr (n - 1 ) * 2NextTempNbr ( 31 ) = & H80000000End IfFirstConv = TempNbr ( exp) End Function
6
Introduce las últimas líneas de código por debajo de la " End Function " en el paso 5 : Función BinaryNbr ( calc ByVal As Long ) Como StringDim TempNbr As String , exp Como IntegerTempNbr = cadena de caracteres $ (32, " 0 ") DOIF calc Y FirstConv ( exp) ThenMid $ ( TempNbr , 32 - exp, 1 ) = " 1 " calc = calc Xor FirstConv ( exp) End Ifexp = exp + 1Loop Mientras calcBinaryNbr = MID $ ( TempNbr , 33 - exp) End Function
Página 7
Utilice la tecla " F5 " para ejecutar la aplicación . Introduzca un número en el cuadro en blanco al lado de " Introduzca un número Hex " y haga clic en " Convertir hexadecimal a binario . " Si ha introducido el código correctamente , podrás ver el resultado aparece en el cuadro en blanco al lado de " El resultado equivalente binario es . " Si no es así , vuelva a revisar el código.