Saber como converter números binários para o seu equivalente decimal é uma habilidade importante para aprender quando a codificação em uma linguagem de programação como Visual Basic 6 ( VB6 ) . Ao contrário do sistema decimal que tem dígitos de 0 a 9 , o sistema binário só tem dígitos de 0 e 1 . Cada lugar em um número binário representa uma potência de 2. Não há nenhuma função embutida para converter uma seqüência de números binários que você deve criar uma função que calcula -lo manualmente. Instruções
1

Abra o arquivo de origem VB6 em um editor como o Microsoft Visual Basic 6.
2

Crie uma função que irá converter um número binário em forma decimal , acrescentando o código :

ConvBinaryToInteger Função Pública ( ByVal MyBinNumber as String ) As Long

Dim n as Integer ,

Dim Temp as Long

Para n = 1 To Len ( MyBinNumber )

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

Próxima

ConvBinaryToInteger = Temp

End Function

a função leva cada dígito binário indivíduo da direita para a esquerda, multiplica por 2 elevado à potência adequada e , em seguida, acrescenta que o valor para o soma cumulativa . Por exemplo, " 110" é processado como " 0 * 2 ^ 0 + 1 * 2 ^ 1 + 1 * 2 ^ 2 = 6. "
3

Armazene o número binário que você deseja converter em uma string , adicionando o código :

Dim binstr as String = " 110" ;
4

Chame a função para converter um valor binário, adicionando o código:

Dim resultado as Long

resultado = ConvBinaryToInteger ( binstr.Text )

o "resultado " variável contém o valor da conversão binário, que no exemplo é 6.

5

Salve o arquivo VB6, compilar e executar o programa para converter o valor binário .