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)