Cómo convertir un valor binario en Visual Basic 6

Conocer 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 tiene dígitos de 0 y 1 . Cada lugar en un número binario representa una potencia de 2 . No existe una función integrada para convertir una cadena de números binarios por lo 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 a decimal añadiendo el código:

Public Function ConvBinaryToInteger ( MyBinNumber ByVal As String ) As Long

Dim n As Integer ,

temp Dim As Long

Para n = 1 Para Len ( MyBinNumber )

temp = Temperatura + Val ( Mid ( MyBinNumber , Len ( MyBinNumber ) - n + 1 , 1 ) ) * 2 ^ (n - 1) spanish

Siguiente

ConvBinaryToInteger = temp

End Function

la función tiene cada individuo binario dígitos de derecha a izquierda , lo multiplica por 2 elevado a la potencia adecuada y luego agrega que el valor de la suma acumulativa . Por ejemplo, " 110" se procesa como " 0 * 2 ^ 0 + 1 * 2 ^ 1 + 1 * 2 ^ 2 = 6 . "
3

la tienda del número binario que desea convertir en una cadena con el código :

binstr As string = "110" ;
4

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

resultado Dim As Long
resultado

= ConvBinaryToInteger ( binstr.Text )

la variable " resultado " contiene el valor de la conversión de binario, que en el ejemplo es 6 .
5

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