[سوال] تبدیل تمام مبنا ها به هم

[javaweb]

با سلام
کسی سورس تبدیل تمامی مبنا ها را به یک دیگر داره؟تا صبح می خوام
با تشکـــــــــــــــــــــــــــــــــــــــــــــر

[Ghoghnus]

سلام دوست عزیز. این کار خیلی ساده است. کافیه همون کاری رو بکنی که توی تغییر مبنای معمولی انجام می دیم. تقسیم های متوالی:

کد:

'In the name of God
Option Explicit

Dim i As Integer

Private Function ChBase(a As Double, b As Integer) As Double

Dim ch As Integer

While a > 0

    ch = a Mod b
    a = a \ b

    ChBase = ((10 ^ i) * ch) + ChBase
    i = i + 1

Wend

End Function

Private Sub Command1_Click()

i = 0
Text2 = ChBase(CDbl(Text1), CInt(Text2))

End Sub

---

یا

کد:

Dim x(20) As Integer
adad = Text1.Text
mabna = text2.text
Do While adad >= 1
i = i + 1
x(i) = adad Mod mabna
adad = adad \ mabna
Loop
For i = 20 To 1 Step -1
Label2.Caption = Label2.Caption & x(i)
Next i

---

یا
http://puc.blogfa.com/post-472.aspx