با سلام
کسی سورس تبدیل تمامی مبنا ها را به یک دیگر داره؟تا صبح می خوام
با تشکـــــــــــــــــــــــــــــــــــــــــــــر
سلام دوست عزیز. این کار خیلی ساده است. کافیه همون کاری رو بکنی که توی تغییر مبنای معمولی انجام می دیم. تقسیم های متوالی:
کد:
'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