Como converter Decimal para Binário em Visual Basic
Como converter Decimal para Binário em Visual Basic
Com a criação de um programa utilitário curto em Visual Basic 6.0 ou Visual Basic Express você pode construir seu próprio conversor para alterar os números decimais para equivalentes binários. Tudo o que é necessário é a criação de uma forma de interface com um comando para iniciar o processo e duas funções que a realização da operação . As funções de traduzir um processo manual de outra forma laboriosa de trabalhar com descendente potências de dois e subtracção operações para se chegar a um número binário final . Coisas que você precisa
Criar um programa executável no Visual Basic , abrindo o programa e clique em "Arquivo . " Em seguida, clique em " New Project" e escolha o tipo EXE padrão de projeto.
Coloque um botão no formulário , clicando duas vezes nessa ferramenta na caixa de ferramentas . Digitalizar para baixo a "Propriedades" painel do lado direito e alterar a legenda do botão para "Converter Decimal para Binário ".
Dê um duplo clique no botão que agora deve ler " converter Decimal para Binário " para abrir a janela de gravação de código direta. Digite os seguintes comandos entre o " Private Sub Command1_Click () " e " End Sub " o que você vê : Dim DecimalNbr Como LongDecimalNbr = InputBox ( "Digite o número decimal para converter para binário " ) MsgBox (" O equivalente binário é" & BinaryNbr ( DecimalNbr ) )
Ir várias linhas após o código acima e digite o seguinte: ExpUp Função ( ByVal exp as Long ) Como LongStatic interino ( 0 a 31 ) As Long , n Como IntegerIf interino (0) = 0 Theninterim (0) = n = 1 1Para Para 30interim (n ) = interina (n - 1) * 2Nextinterim (31) = & H80000000End IfExpUp = interino Função ( exp) Fim
5 < p > Ir várias linhas abaixo as linhas acima no código e digite o seguinte: Função BinaryNbr (ByVal calc as Long ) Como StringDim interino as String , exp Como Integerinterim = String $ ( 32, "0") doif Calc e ExpUp (exp) ThenMid $ ( interino , 32 - exp, 1) = "1" calc = calc Xor ExpUp (exp ) Fim Ifexp = exp + 1Loop Enquanto calcBinaryNbr = Mid $ ( interino , 33 - exp) End Function
6 < p> Pressione " F5" para executar o aplicativo . Clique no botão "Enter decimal para binário " . Digite qualquer número decimal (inteiro) e pressione "Return ". Se você digitou o código acima corretamente , você verá o equivalente binário .
Salve o projeto eo formulário com um nome fácil de lembrar , como " Binary Conversão ". Em seguida, clique em "Arquivo" e "Make Binary Conversion.exe . Salve o resultado em seu desktop para fácil acesso.