ریز ریز کردن اعداد چند رقمی

[EBKA]

سلام..
من میخوام یه عدد مثلا 1234564 رو تبدیل کنم به 14و6و5و4و3و2و1
یعنی میخوام هر کدوم رو جدا جدا ارسال کنم باید چی کار کنم!؟؟؟

به طور مثال عددی داریم که همیشه قرار نیست3 رقم باشه شاید 10 رقم باشه رو به ترتیب به پورت سریال بفرسیتم:
123 رو به ترتیب 1 بعد 2 و بعدش هم 3 رو بفرستیم باید چیکار کنیم!!!
چو عددی که من دارم معلوم نیست چند رقمه نمیشه تقسیمش کرد!!!بر 100 و 10

چه دستوری هست که بشه این کارو کرد؟؟؟تو بسکام؟؟

[saeidjan]

سلام
دستورات خیلی ساده تبدیل عدد به رشته و بهد جدا کردن هر کدوم از کاراکتر ها
کافیه یه متغیر رشته ای داشته باشی
عدد تو رو رشته بریزی از یک رقم تا طول رشته str(x)
بعد یکی یکی بریزی تو یه متغیر دیگه و تبدیلش کنی به عدد
for i=1 to 10 then
y=mid(x,i,1)
if y<> "" then z=val(y)else exit for
z=val (y)
next
همین
امیدوارم مفید باشه

[mostafa_naderi]

تبدیل به رشته کن بعد جدا کن بعد دوباره تبدیل به عدد کن
یه زاه دیگه که من استفاده می کنم اینه که شرط میزارم مثلا اگه 2 رقم بود 8 تا 0 بعد ارسال کن تا بشه 10
یا اگه 5 رقم بود 5 تا 0 بعدش ارسال کن همینچوریا دیگه

[EBKA]

کد:

E = Len(z)

    Z = Fusing(fi , "#.#")

      Locate 2 , 5 : Lcd "J:" ; Z


     For I = 1 To E
       Y = Mid(z , I , 1)
        If Y <> "" Then N = Val(y) Else Exit For  
       Waitms 500
       Call Getkey
         If M = "x" Then Goto F
      N = Val(y)
      Locate 1 , 9 : Lcd Y:printbin n
     Next I

ممنون

[mostafa_naderi]

پست من و saeidjan با هم ارسال شده چه جالب من ندیدمش اوون موقع

[reza18b]

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

[reza18b]

یاری اندر کس نمیبینم
دوستان را چه شد؟