برنامه تبدیل مبنای 2 به 16

[saeid1346]

سلام دوستان کسی برنامه تبدیل مبنای 2 به 16 رو داره اگر دارید بدید

ممنون میشم کمکم کنید

[Mr'Jamshidy]

اگر به من مبنای 2 و مبنای 16 رو توضیح بدی میتونم کمکت کنم البته چیزی که من میدونم مبنای 2 همون 0 و 1، و مبنای 16 همون هگز خودمونه H6 که نمیدونم درسته یا نه

[saeid1346]

سلام ببینید اگر مثلا یه عدد داشته باشیم در مبنای 2 به شکل زیر
http://p30javan.com/uplod/upload_image/e0bcf44e235beff667abdbadde835016.JPG

[Mr'Jamshidy]

خوب به مبنای 2 که گفتید میگن بایناری Binary
و به مبنای 16 که گفتید میگن هگز Hex

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

[saeid1346]

ای بابا موضوع تایپیک رو بخونید
برنامه تبدیل مبنای 2 به 16

لطفا اسپم نکنید دوستان

volkswagen
ممنون از برنامه ای که گذاشتی اون رو احتیاج ندارم لطفا دوتا پستت رو حذف کن ممنون میشم

[pcdownload.bloghaa.com]

سلام دوستان
یه تابع براتون نوشتم که شاید از سادگی تابع تعجب کنید.
بهتره یه نسخه از این تابع را داشته باشین تا مشکل تبدیل منبا به کلی حل بشه.


Private Function fTox(Number As String, FromX As Long, ToX As Long) As String
Dim a As String: Dim B As Long
Dim x As String: Dim c As Long
Number = UCase(Number): c = 1
For i = 1 To Len(Number)
a = Mid(Number, i, 1)
If Asc(a) > Asc(9) Then a = Trim(Str(Asc(a) - 55))
B = B + Val(a) * (FromX ^ (Len(Number) - i))
Next i
Do While c <> 0
c = B \ ToX: d = B Mod ToX: B = c
If d > 9 Then
x = Chr(d + 55) + x
Else
x = Trim(Str(d)) + x
End If
Loop: fTox = x
End Function

عدد را باید به صورت متنی بهش بدید.
ّFromX مبنای عددی هست که بهش دادین.
و ToX هم مبنایی هست که میخوایین بهش تبدیل کنین.

مثلا برای تبدیل عدد "1001110" که در مبنای دو هست به مبانی 16 باید به این شکل ازش استفاده کنید:

Text1 = fTox("1001110", 2, 16)

همونطور که میبینید این تابع هر مبنایی را به مبنای دیگه تبدیل میکنه.16 به 2 یا 3 به 7 یا 2 به 8 یا هر چیز دیگه ای.
امیدوارم جالب باشه براتون.