Conversão numérica (decimal, hexadecimal, octal e binário)

A pedido de um colega estou inciando este tópico...
O Desafio é conversão numérica






1 - Decimal para Binário

2 - decimal para hexadecimal

3 - Decimal para Octal




4 - Hexadecimal para Decimal

5 - Hexadecimal para Binário

6 - Hexadecimal para octal




7 - Binário para Hexadecimal

8 - Binário para Decimal

9 - binario para octal

10 - octal para binario

11 - octal para Hexadecimal

12 - octal para Decimal



Será um ótimo exercício.

Site para ajuda:
http://www.dicasdeprogramacao.com.br/as-10-conversoes-numericas-mais-utilizadas-na-computacao/

Ao ir fazendo, favor postar o exemplo e indicar o cálculo para que eu marque em vermelho.
Ajuda para testes nas funções desenvolvidas são bem vindas.

Para inciar, feito por mim
Conversão de Binário para Hexadecimal (Testado)
>> Baseia-se em uma tabela de conversão
    Na caixa texto Binário digite: 100011011  e observe
Decimal para Binário (A testar)


https://dl.dropboxusercontent.com/u/26441349/frmConversao.rar


Cumprimentos.

De Hexa para Binário:
Na caixa texto Hexadecimal digite: 11B e observe

https://dl.dropboxusercontent.com/u/26441349/frmConversao_1.rar

Cumprimentos.

Maravilha Mestre...
Vou refazer o exemplo aqui.

Obrigado!

Com as conversões:



1 - Decimal para Binário

2 - decimal para hexadecimal

3 - Decimal para Octal




4 - Hexadecimal para Decimal

5 - Hexadecimal para Binário

6 - Hexadecimal para octal




7 - Binário para Hexadecimal

8 - Binário para Decimal

9 - binario para octal

https://dl.dropboxusercontent.com/u/26441349/frmConversao_2.rar

Assim que terminar de Octal para ......
Vamos tentar isto Mestre!!

Obrigado

Function ConvDeDecimal(ValorDecimal As Double, NovaBase As Byte) As String
'Função criada por Alexandre Neves
Dim ValorResto As Double, ValorQuociente As Integer
If NovaBase > 16 Then MsgBox "Esta função só admite conversão até à base hexadecimal (16).": Exit Function
ConvDeDecimal = ""
Calcula:
ValorResto = Resto(ValorDecimal, CDbl(NovaBase))
Select Case ValorResto
Case 15
ConvDeDecimal = "F" & ConvDeDecimal
Case 14
ConvDeDecimal = "E" & ConvDeDecimal
Case 13
ConvDeDecimal = "D" & ConvDeDecimal
Case 12
ConvDeDecimal = "C" & ConvDeDecimal
Case 11
ConvDeDecimal = "B" & ConvDeDecimal
Case 10
ConvDeDecimal = "A" & ConvDeDecimal
Case Else
ConvDeDecimal = ValorResto & ConvDeDecimal
End Select
ValorQuociente = Quociente(ValorDecimal, CDbl(NovaBase))
If ValorQuociente > 0 Then
ValorDecimal = ValorQuociente
GoTo Calcula
End If
End Function

Function ConvParaDecimal(strValor As String, BaseOrigem As Byte) As Double
'Função criada por Alexandre Neves
Dim ValorBase As Byte, Posicao As Byte, I As Integer
ConvParaDecimal = 0: Posicao = 0
For I = Len(strValor) To 1 Step -1
Select Case Mid(strValor, I, 1)
Case "F"
ValorBase = 15
Case "E"
ValorBase = 14
Case "D"
ValorBase = 13
Case "C"
ValorBase = 12
Case "B"
ValorBase = 11
Case "A"
ValorBase = 10
Case Else
ValorBase = Mid(strValor, I, 1)
End Select
ConvParaDecimal = ConvParaDecimal + ValorBase * BaseOrigem ^ Posicao
Posicao = Posicao + 1
Next
End Function

Boas Avelino, irei modificar...

Cumprimentos.

Boas Grande Alexandre..

as duas funções, perdoe-me a ignorância converte

De Decimal para?
E de que para decimal?

não compreendi muito bem

Abraços

Boa noite, Grande Hary
Convertem de e para a base que se pretenda: 2, 3, 4, ... até 16 (hexadecimal)
Abraço,

Então o código acima serve ao propósito que se originou o tópico correto?
Executa as conversões citadas no primeiro post?


Aproveitando a deixa do Mestre Alexandre, link sobre sistema de numeração:

http://www.matematicamuitofacil.com/naodecimais.html

Cumprimentos.

Como posso converter um valor binário para o caractere correspondente?

Boa tarde, ismaelruperto
tem de saber para que tipo de código pretende converter (base 3, 4, ..., 16)