PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 25 → Converter Decimal em Binário (Convert Decimal to binary)
Converter Decimal em Binário (Convert Decimal to binary)
Débuté par JOSE ELIELSON SILVA, 23 juil. 2015 11:31 - Aucune réponse
Membre enregistré
14 messages
Popularité : +5 (7 votes)
Posté le 23 juillet 2015 - 11:31
// by Jose Elielson
// converter dec -> bin
x is int = edit_decimal
r is int = 0
y is int = 0
b is string = ""

IF x > 1

LOOP
y = IntegerPart(x/2)

r = x - (y*2)

b = NumToString(r) + b

IF y = 1 THEN
b = "1" + b
BREAK
END
x = y
END
ELSE
b = NumToString(x)
END

Info(b)