Descrição:
Como converter um valor decimal para binário?
Solução:
Para fazer esta conversão, deve-se dividir o valor por 2, pegar o resto da divisão (será sempre 0 ou 1) e concatenar este dígito ao número binário, sempre à esquerda. Repita este processo até que o valor original seja menor que 2.
No vbScript, o operador que calcula o resto de uma divisão é o Mod. Veja abaixo um exemplo de script:
meu_valor = InputBox(“Digite o valor desejado em decimal:”)
valor_binario = “”
while meu_valor >= 2
valor_binario = (meu_valor Mod 2) & valor_binario
meu_valor = int(meu_valor / 2)
wend
valor_binario = meu_valor & valor_binario
MsgBox valor_binario
