مشکل در تبدیل مبنا

[Mr.Renegade]

دورود خدمت دوستان گلم
امیدوارم مثل روز های قبل کمکتون شامل حال من نوعی بشه
همراهان عزیز کدی رو میخواستم برای تبدیل مبنا از 10 به مبنا های 2 و 4 و 8
البته بدون استفاده از Api
قبلا از توجه شما سپاسگزارم

[IamOverlord]

معمولا توابع API کارهای محاسباتی نمی کنن...

DevX (http://www.devx.com/vb2themax/Tip/19316)

[maktoom]

سلام
چرا از راه حل معمول تقسیمات متوالی بر مبنا استفاده نمی کنید؟

[Veteran]

Private Function DecimalToText(ByVal Number As Currency, ByVal Base As Long) As String
Dim Value As Long
Do
Value = Number Mod Base
Number = Number \ Base
DecimalToText = Mid("0123456789ABCDEF", Value + 1, 1) & DecimalToText
Loop Until Number = 0
End Function

[Mr.Renegade]

Private Function DecimalToText(ByVal Number As Currency, ByVal Base As Long) As String
Dim Value As Long
Do
Value = Number Mod Base
Number = Number \ Base
DecimalToText = Mid("0123456789ABCDEF", Value + 1, 1) & DecimalToText
Loop Until Number = 0
End Function


سپاس از توجه شما
اما به این صورت از من قبول نمیکنند
یک کد ساده محاسباتی میخواستم

[arash020]

سلام

من توی یه برنامه محاسباتی و الگوریتمی پیچیده تبدیل مبنای 10 معمول و اعشاری رو به مبنای 2 باینری نوشتم و گذاشتم توی وبلاگم به آدرس

http://www.eaglevb.blogfa.com/

ببین چطوره؟
پیچیده پیش رفتم ولی قابل درکه...
ببین به درد میخوره...؟!