تبدیل مبنای 10 به 2

[mirage041]

سلام خدمت دوستان و اساتید
من می خوام یک عدد در مبنای 10 رو به مبنای 2 ببرم البته بصورت یک بایت یعنی فرمت نهایی به اینصورت باشه (xxxxxxxx) از این کد استفاده می کنم فقط یک عدد رو برام می ده

For a = 0 To 7 Step 1
b = txt1 Mod 2
mabna1(a) = b
Label4.Caption = mabna1(a)
Next a

[hamed72]

سلام دوست عزیز این فایل میتونه کمکت کنه .

[xxxxx_xxxxx]

سلام،
1) بعد از این که باقی مانده تقسیم بر 2 را محاسبه کردید باید خود عدد را هم تقسیم بر 2 کنید تا در دفعات بعد که حلقه اجرا میشه، عدد کوچکتر شده باشه:


b = txt1 Mod 2
txt1 = txt1 \ 2


2) آخرین دستور درون حلقه، محتوای یک خانه از آرایه رو به Label4 منتقل می کند. پس محتوای قبلی Label4 حذف می شود. برای اینکه محتوای پیشین Label4 حفظ بشود بنویسید:


Label4.Caption = mabna1(a) & Label4.Caption


* بدون آرایه هم میتونید این کارو انجام بدید.

[mirage041]

فقط من می خوام که 8 کاراکتر رو برام نشون بده
بعدشم که من 4 عدد رو می گیرم و اونا رو تو یک لیبل نشون می دم.
در حقیقت یک عدد ای پی در مبنای 10 رو تبدیل می کنم به مبنای 2