تقاضای کد تبدیل اعداد دهدهی به باینری

[neda06]

سلام.
میخوام یک برنامه بنویسم که نام را با استفاده از الگوریتم ژنتیک در vb.net حدس بزنه.
باید کدهای اسکی را به کد باینری تبدیل کنم .(که کروموزم ها هستند بعدم تابع fitnessو ال آخر)
خیلی ضروری و فوریه ، لطفا اگه کسی این برنامه را کار کرده کمکم کنه...

[Hossein Bazyan]

سلام
راههای متفاوتی داره
راه اول


Dim i As Int16 = 320
Dim binary AsString = Convert.ToString(i, 2)
Dim hex AsString = Convert.ToString(i, 16)
Dim binaryToInt AsString = Convert.ToInt32(binary, 2)
Dim HexToInt AsString = Convert.ToInt32(hex, 16)


راه دوم


Private Sub Command1_Click()
MsgBox Dec2Bin(1024)
End Sub
Function Dec2Bin(ByVal n As Long) As String
Do Until n = 0
If (n Mod 2) Then Dec2Bin = "1" & Dec2Bin Else Dec2Bin = "0" & Dec2Bin
n = n \ 2
Loop
End Function

[sina26]

سلام.
میخوام یک برنامه بنویسم که نام را با استفاده از الگوریتم ژنتیک در vb.net حدس بزنه.
باید کدهای اسکی را به کد باینری تبدیل کنم .(که کروموزم ها هستند بعدم تابع fitnessو ال آخر)
خیلی ضروری و فوریه ، لطفا اگه کسی این برنامه را کار کرده کمکم کنه...

سلام دوست گرامی
من تو این آدرس در مورد سورس تبدیل عداد مبنای 10 به اعداد باینری گذاشته ام امیدوارم که در حل مشکلت کمک کنه
یا حق
http://barnamenevis.org/forum/showthread.php?p=953217#post953217

[neda06]

فرض کنید یک آرایه 4 تایی داریم که شامل 4 تا کد اسکی که نماینده یک حرف از حروف بزرگ انگلیسیه.
حالا میخوام این آرایه تبدیل به آرایه ای بشه که کدهای دودویی داره.
چطوری باید پیاده سازی بشه؟