Programação  
 
Conhecimento computador >> Programação >> Programação Visual Basics >> 
Como converter Hex para binários no Visual Basic
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.

Anterior :

Próximo : No
  Os artigos relacionados
·Como conectar VB Com Informix 
·Como acessar o FlexGrid em VB6 
·Como incluir JavaScript Entre Vb.NET 
·Como Salvar Lista Caixa itens a uma matriz 
·Como fazer um jogo Clicando Com Visual Basic 
·Como renomear um arquivo no Visual Basic 2005 
·Valor de retorno da Função VBA 
·Como acessar uma consulta VB 
·Como construir um Temporizador eletrônico 
·Como converter uma carta em um número em Visual Basic …
  Artigos em destaque
·Como verificar o intervalo de datas em COBOL 
·IDL Técnicas de Programação 
·Como importar um banco de dados MySQL 
·Como remover duplicatas de uma seqüência em Python 
·Como abrir um arquivo em C + + para leitura 
·O que é Struts Plugin 
·Como acessar relatórios em VB 
·Como utilizar as funções em QBasic 
·Noções básicas de Sistemas Embarcados em C 
·Como usar FBML Tags 
Cop e direita © Conhecimento computador http://ptcomputador.com Todos os Direitos Reservados