da DECIMALE a BINARIO

[leadergl]

raga come si fa, in Visual Basic, a convertire un numero decimale in binario e viceversa??

thanks

[cionci]

Non ti avevo dato un algoritmo per covertire da qualsiasi base a qualsiasi base ?

[a2000]

magari ispirato da questo:


Function f_CnvBase(n1$, b1, b2)
aaa$ = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"

If b1 < 2 Or b1 > 62 Then f_CnvBase = "bad first base": Exit Function
n = 0
For k = 1 To Len(n1$)
a1 = InStr(aaa$, Mid$(n1$, k, 1)) - 1
If a1 < 0 Or a1 >= b1 Then f_CnvBase = "bad format number": Exit Function
n = n * b1 + a1
Next k

If b2 < 2 Or b2 > 62 Then f_CnvBase = "bad second base": Exit Function
Do While n > 0
a2 = n Mod b2
n = Int(n / b2)
n2$ = Mid$(aaa$, a2 + 1, 1) & n2$
Loop
f_CnvBase = n2$

End Function

[a2000]

e le conversioni a base mista ?

(sistema di numerazione atzeco)