Cómo convertir un valor binario en Visual Basic 6

Saber cómo convertir números binarios a su equivalente decimal es una habilidad importante para aprender cuando se codifica en un lenguaje de programación como Visual Basic 6 (VB6). A diferencia del sistema decimal que tiene dígitos del 0 al 9, el sistema binario sólo se dispone de cifras para 0 y 1. Cada lugar en un número binario representa una potencia de 2. No hay una función integrada para convertir una cadena número binario para que debe crear una función que calcula de forma manual.

Instrucciones

1 Abra el archivo de código fuente VB6 en un editor como Microsoft Visual Basic 6.

2 Crear una función que convierte un número binario en forma decimal añadiendo el código:

Función pública ConvBinaryToInteger (ByVal MyBinNumber As String) As Long

Dim n como número entero,

temp Dim As Long

Para n = 1 Para Len (MyBinNumber)

Temp = Temp + Val(Mid(MyBinNumber, Len(MyBinNumber) - n + 1, 1))* 2 ^ (n - 1)

Siguiente

ConvBinaryToInteger = Temperatura

End Function

La función toma cada dígito binario individuo de derecha a izquierda, lo multiplica por 2 elevado a la potencia apropiada y luego añade que el valor a la suma acumulativa. Por ejemplo, "110" se procesa como "0

2 ^ 0 + 1 + 2 ^ 1 1 * 2 ^ 2 = 6."

3 Almacenar el número binario que desea convertir en una cadena añadiendo el código:

Dim binstr As String = "110";

4 Llame a la función para convertir un valor binario, agregando el código:

Como resultado Dim largo

resultado = ConvBinaryToInteger (binstr.Text)

La variable "número" contiene el valor de la conversión binaria, que en el ejemplo es 6.

5 Guarde el archivo VB6, compilar y ejecutar el programa para convertir el valor binario.