جداسازی عدد

[abbas1371]

سلام
من میخوام یک عدد 8 رقمی رو که بصورت باینری است رو از سمت راست یک رقم یک رقم جدا کنم و توی 8 تکست باکس بنویسم

لطفا راهنمایی کنید

[_behnam_]

سلام
من میخوام یک عدد 8 رقمی رو که بصورت باینری است رو از سمت راست یک رقم یک رقم جدا کنم و توی 8 تکست باکس بنویسم

لطفا راهنمایی کنید
بفرمایید این کد یه کلمه یا عددو ازت میگیره و اونارو با فاصله از هم جدا میکنه

Dim Tlen As Integer
Dim Kalame As String
Dim Natije As String
Kalame = InputBox("Enter")
Tlen = Len(Kalame)
For i = 1 To Tlen
Natije = Natije + Mid(Kalame, i, 1) + " "
Next i
MsgBox (Natije)

[SilverLearn]

البته روش دیگه ای هم داره که برای فهم بهتر شما دوست عزیز فقط توضیح می دم کد نویسیش با خودت
نگاه کن به طور مثال ما یک عدد مثلا 123 رو وارد برنامه می کنیم
حالا 123 رو تقسیم بر ده می کنیم همینطور که مشاهده خواهید کرد باقیمانده این عملیات برابر با 3 می شود (یعنی آخرین رقم اصلی)
و خارج قسمت تقسیم برابر با 12 می شود اکنون عدد بدست آمده جدید (12) را دوباره بر 10 تقسیم می کنیم خوب این بار باقیمانده برابر با 2(دومین رقم عدد اصلی) و خارج قسمت برابر با 1 ( اولین رقم عدد اصلی) خواهد بود و شما به همین سادگی رقم ها رو از هم جدا کردین.....