PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → Converter Binário para Decimal (Convert Binary to Decimal)
Converter Binário para Decimal (Convert Binary to Decimal)
Iniciado por JOSE ELIELSON SILVA, jul., 23 2015 1:12 PM - Sem resposta
Membro registado
14 mensagems
Popularité : +5 (7 votes)
Publicado em julho, 23 2015 - 1:12 PM
// José Elielson
// Binario -> Decimal

// observacao
// colocar o inputmask no Exit do Edit
// edit_binario..InputMask = "regexp:[0-1]{0,16}"


b is string = edit_binario

i is int = 0

k is int = 0

y is int = 0

x is int = 0

j is int = Length(NoSpace(b))

FOR i = j TO 1 STEP -1

y = Val(Middle(b,i,1))

IF y = 1 THEN
x = x + (2^(k))
END

k++
END

Info(x)