به دست آوردن کد باینری اعداد

[hhhmm65]

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

[vbhamed]

سلام
عدد معمولی به باینری از راه تقسیمات متوالی عدد به 2 بدست می یاد یعنی عدد رو به 2 تقسیم می کنی و خارج قسمت رو دوباره به 2 تقسیم می کنی و اینقدر ادامه می دی تا خارج قسمت 0 بشه
حالا باقیمانده ها رو از آخر به اول کنار هم می نویسی که میشه عدد باینری معادل

باینری به معمولی هم اینطوری (از راست به چپ عدد باینری با شماره 0 تا تعداد ارقام شماره گذاری میشه و سپس هر رقم ضرب در 2 به توان همون شماره میشه و با بقیه جمع میشه :



10110

0*2^0 + 1*2^1 + 1*2^2 + 0*2^3 + 1*2^4 = 22

[hhhmm65]

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

[noorsoft]

دوست عزیز ورود شما را به انجمن تبریک میگم
ولی اگه قرار باشه هر سوالی که میشه کد هم بدن که دیگه کسی برنامه نویسی یاد نمی گیره شما باید سعی کنید از روشهایی که بهتون داده میشه استفاده کنین و اگه توی اجرا مشکل داشتین در ادامه تاپیک بپرسید


موفق و پیروز باشید

[__siavash__]

ConvertToBinary
نمونه های دیگه ای هم تو سایت هست (تاپیک برنامه های VB)

[farer_soker]

سلام به همه دوستان
اگه میشه این فرمول تبدیل عدد باینری رو به اعداد 10 رو بیشتر توضیح بدین منظور از ^ رو هم نفهمیدم
:لبخندساده:

[بهروز عباسی]

درود

منظور از ^ رو هم نفهمیدماین علامت یعنی توان
زمانی که مثلا این چنین نوشته شده 2 ^ 3 یعنی عدد 3 به توان 2 رسیده است.
و کتابی هم که گذاشتم در رابطه با تبدیل مبنای اعداد هستش کمکت میکنه.
موفق باشید

[بهروز عباسی]

اینم یک تابع برای تبدیل از مبنای 2 به 10 در ویژوال بیسیک (البته الان VB نداشتم تست کنم )
Public Function BinaryToDecimal(ByRef Binary As String) As Integer
Dim BinaryNum As Integer
Dim BitCount As Short

For BitCount = 1 To Len(Binary)
BinaryNum = BinaryNum + (CDbl(Mid(Binary, Len(Binary) - BitCount + 1, 1)) * (2 ^ (BitCount - 1)))
Next BitCount
BinaryToDecimal = BinaryNum

End Function

Private Sub btnConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvert.Click
txtDecimalNum.Text = (BinaryToDecimal((txtBinaryNum.Text)))

End Sub
موفق باشید.