Josef
|
FRANCA
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 25/03/2008 14:56 hs
Galera, eu estou querendo montar um programa em VB que converte o texto que o usuário digita em um textbom para código binário e mostra em um label. Vocês podem me ajudar? Desde já agradeço a ajuda!! |
|
|
|
|
|
Fábio
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 25/03/2008 16:07 hs
Me mande um email descrevendo melhor o q vc deseja.... trabalho muito com valores binários. |
|
|
|
Fábio
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 27/03/2008 09:03 hs
Respondida por email, apenas para não ficar sem resposta aqui, ok? Private Sub Command1_Click()
Dim ValorBinario As String
Dim ValorRestante As Integer
ValorRestante = Text1.Text
ValorBinario = ""
Do While ValorRestante > 0
ValorBinario = (ValorRestante Mod 2) & ValorBinario
ValorRestante = ValorRestante 2
Loop
Text2.Text = ValorBinario
End Sub
[]´s |
|
|
|
Ama
|
UBERLÂNDIA
MG - BRASIL
|
|
Postada em 31/03/2008 01:14 hs
myHex = Hex$(CLng(Text1))
lenMyHex = Len(myHex)
For conta = 1 To lenMyHex
Letter = Mid$(myHex, conta, 1)
Select Case Letter
Case 0
binario = binario & "0000"
Case 1
binario = binario & "0001"
Case 2
binario = binario & "0010"
Case 3
binario = binario & "0011"
Case 4
binario = binario & "0100"
Case 5
binario = binario & "0101"
Case 6
binario = binario & "0110"
Case 7
binario = binario & "0111"
Case 8
binario = binario & "1000"
Case 9
binario = binario & "1001"
Case "A"
binario = binario & "1010"
Case "B"
binario = binario & "1011"
Case "C"
binario = binario & "1100"
Case "D"
binario = binario & "1101"
Case "E"
binario = binario & "1110"
Case "F"
binario = binario & "1111"
End Select
Next conta
Me.Caption = binario
binario = ""
|
|
|
|
Josef
|
FRANCA
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 01/04/2008 14:36 hs
Muito obrigado!!!!!!!!!!!!!!!!!!!!!!!! Suas dicas me ajudaram bastante!!!!!!!!!!!!!!!!!! |
|
|
|
