ايران ويج

نسخه‌ی کامل: ریز ریز کردن اعداد چند رقمی
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
سلام..
من میخوام یه عدد مثلا 1234564 رو تبدیل کنم به 14و6و5و4و3و2و1
یعنی میخوام هر کدوم رو جدا جدا ارسال کنم باید چی کار کنم!؟؟؟

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

چه دستوری هست که بشه این کارو کرد؟؟؟تو بسکام؟؟
سلام
دستورات خیلی ساده تبدیل عدد به رشته و بهد جدا کردن هر کدوم از کاراکتر ها
کافیه یه متغیر رشته ای داشته باشی
عدد تو رو رشته بریزی از یک رقم تا طول رشته 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
همین
امیدوارم مفید باشه
تبدیل به رشته کن بعد جدا کن بعد دوباره تبدیل به عدد کن
یه زاه دیگه که من استفاده می کنم اینه که شرط میزارم مثلا اگه 2 رقم بود 8 تا 0 بعد ارسال کن تا بشه 10
یا اگه 5 رقم بود 5 تا 0 بعدش ارسال کن همینچوریا دیگه
کد:
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
ممنون
پست من و saeidjan با هم ارسال شده چه جالب من ندیدمش اوون موقع
سلام
من هم میخوام یک عدد 5 رقمی رو وارد کنم ولی سه تا کلید دارم میخوام مثل ساعت که دقیقه و ثانیه و ساعت رو جدا جدا کم و زیاد میکنیم هر رقم از این عدد پنج رقمی رو جدا جدا با چشمک زن زیرش کم و زیاد کنم که برای وارد کردن ده هزاز لازم نباشه یک کلید رو ده هزار بار فشار بدم
ممنون
یاری اندر کس نمیبینم
دوستان را چه شد؟