Visual Basic podem mudar de uma base numérica para outro com um pouco de manipulação em algumas linhas curtas de código. Várias listas de tabelas de conversão numérica incluindo todas as formas --- decimal , binário, hexadecimal e octal --- estão disponíveis na Web com uma simples pesquisa . No entanto , pode ser útil dispor de um conversor no seu computador . Um processo de código cria um feitiço básico para conversão de binário que executa mais rápido do que carregar um navegador e em busca de uma mesa na web. Coisas que você precisa
Visual Basic 6.0
Show Mais instruções
1

Abra o Visual Basic e clique em " Arquivo" no menu principal. Clique em " New Project " no menu drop-down e selecione " Standard EXE " como um tipo.
2

Dê um duplo clique na ferramenta "Rótulo" ( representado por um "A") a partir de a caixa de ferramentas do lado esquerdo. Dê um clique duplo na caixa de texto ( representado pelas letras "AB" ) . Clique e arraste a caixa de texto para que ele fica ao lado do Label. Use a lista de "Propriedades" para mudar a legenda do rótulo para "Enter Número Hex" e apagar as letras na legenda de texto da caixa de texto.
3

Adicionar um botão de comando para o formulário , clicando duas vezes na ferramenta Button ( um pequeno retângulo ) e altere o caput deste ler "Converter Hex para binário . " Arraste este botão abaixo os dois itens que você criou no passo 2. Adicionar mais duas etiquetas a mesma forma , colocando-os por baixo do botão de comando e na mesma linha . Alterar a legenda do primeiro rótulo para " O equivalente binário é" e apagar as letras na propriedade caption do segundo Label.
4

Clique em " Exibir" no menu principal e selecione " Código . " Na janela de código , digite o seguinte : Private Sub Command1_Click () Dim HexNbr Como StringDim DecNbr Como IntegerDim Resultado Como StringDecNbr = Val ( " & H " & Text1.Text ) Resultado = BinaryNbr ( DecNbr ) Do While Len (resultado) < 8Result = "0" & ResultLoopLabel3.Caption = ResultEnd Sub
5 Tipo

no seguinte código abaixo que no Passo 4: Função FirstConv (ByVal exp as Long ) Como LongStatic TempNbr ( 0 a 31 ) As Long , n Como IntegerIf TempNbr ( 0 ) = 0 ThenTempNbr ( 0 ) = 1For n = 1 Para 30TempNbr ( n ) = TempNbr ( n - 1 ) * Função 2NextTempNbr ( 31 ) = & H80000000End IfFirstConv = TempNbr ( exp ) Fim

6

Entre essas linhas de código abaixo do último " End Function " no Passo 5: Função BinaryNbr (ByVal calc as Long ) Como StringDim TempNbr as String , exp Como IntegerTempNbr = String $ ( 32, " 0 ") doif calc e FirstConv (exp) ThenMid $ ( TempNbr , 32 - exp, 1) = "1" calc = calc Xor FirstConv (exp ) Fim Ifexp = exp + 1Loop Enquanto calcBinaryNbr = Mid $ ( TempNbr , 33 - exp) End Function < br >
7

Use a tecla "F5" para executar o aplicativo . Digite um número na caixa em branco ao lado de " Digite um número hexadecimal " e clique em " Converter Hex para binário . " Se você digitou o código corretamente , você vai ver o resultado aparecer na caixa vazia ao lado de " O resultado equivalente binário é . " Se não, verifique novamente o código.