کد باینری رشته

[majnun]

سلام

خسته نباشی

من میخوام بدونم راهی وجود داره که ما یک رشته رو به صورت باینری (0و1) در جایی ذخیره کنیم ؟ یا در تکست باکس نمایش بدیم ؟

[nima898]

سلام
تابعی واسه این کار نمیدونم ولی با کد نویسی محاسباتی میشه بدست آورد
اگه منظورتون کد نویسی محاسباتی باشه میتونم بنویسم

[majnun]

ممنون میشم کدشو بهم بدی داداش

[nima898]

سلام
textbox1 ورودی textbox2 خروجی

Dim a, i As Integer, out As String = "", str As String = TextBox1.Text
Do While Not str = ""
a = Asc(Microsoft.VisualBasic.Right(str, 1))
str = Microsoft.VisualBasic.Left(str, Len(str) - 1)
For i = 1 To 8
If a Mod 2 Then out = "1" + out Else out = "0" + out
a = a \ 2
Next
Loop
TextBox2.Text = out

[majnun]

تشکر دوست عزیز

[nima898]

اگه کاراکتر فارسی هم داشته باشه :

Dim a, i As Integer, out As String = "", str As String = TextBox1.Text
Do While Not str = ""
a = AscW(Microsoft.VisualBasic.Right(str, 1))
str = Microsoft.VisualBasic.Left(str, Len(str) - 1)
For i = 1 To 16
If a Mod 2 Then out = "1" + out Else out = "0" + out
a = a \ 2
Next
Loop
TextBox2.Text = out