اطلاعیه

Collapse
No announcement yet.

قرار دادن یک رقم از یک عدد در یک متغیر دیگر در بیسکام

Collapse
X
 
  • فیلتر
  • زمان
  • Show
Clear All
new posts

    قرار دادن یک رقم از یک عدد در یک متغیر دیگر در بیسکام

    سلام
    یه مثال میزنم بشه فهمید
    یه عدد دارم
    مثل
    1369
    خوب میخوام a=9
    b=6
    c=3
    d=1
    یعنی رقم اول تو یه متغیر دیگه رقم دوم تو یه متغیر دیگه تا اخر کسی نظری داره ؟
    [move][img width=133 height=100]http://bargiri.persiangig.com/aks/0.306310001356499787_taknaz_ir.gif[/img][/move]

    #2
    پاسخ : قرار دادن یک رقم از یک عدد در یک متغیر دیگر در بیسکام

    در ضمن متغیر ها همشون ورد هستش
    dim a as word
    [move][img width=133 height=100]http://bargiri.persiangig.com/aks/0.306310001356499787_taknaz_ir.gif[/img][/move]

    دیدگاه


      #3
      پاسخ : قرار دادن یک رقم از یک عدد در یک متغیر دیگر در بیسکام

      درود
      اون عدد رو به رشته تبدیل کن بعد هر کدام رو که خواستی بردار و بعد دوباره به عدد تبدیل کن
      در روزگاري كه لبخند آدم ها بخاطر شكست توست برخيز تا بگريزند. كورش كبير
      شاد بودن، تنها انتقامي است که ميتوان از زندگي گرفت. ارنستو چه گوارا

      دیدگاه


        #4
        پاسخ : قرار دادن یک رقم از یک عدد در یک متغیر دیگر در بیسکام

        اول باید باقیمانده عدد را تقسیم بر 10 حساب کنی (می شه رقم اولت و ذخیره می کنی در یک آرایه) بعد عدد رو تقسیم بر 10 کنی تا عددی که بدست آوردی حذف بشه و این کار را تا رسیدن عدد به صفر تکرار می کنی و درون حلق شرط می زاری که هر وقت برابر صفر شد از حلقه بیاد بیرون.
        اینطوری متغییر حلقه تعداد ارقامت هست و نیز تک تک اعدادت در آرایه ذخیره می شود
        برنامه به زبان C و بیسیک (بیسیک رو زیاد بلد نیستم امیدوارم درست باشه)
        کد:
        [left]char i, s[5];
        int temp,num;
        temp=num;
        for (i=0;i<6;i++)
        {
        if (temp==0)
         break;
        s[i]=temp%10;
        temp=temp/10;
        }[/left]
        کد:
        [left]
        dim i as byte
        dim s(5) as byte
        dim temp as word
        dim num as word
        temp=num
        for i=0 to 5
        if temp=0 then : exit for :end if
        s(i)=temp mod 10
        temp=temp/10
        next[/left]
        هیچ کس و هیچ چیز نمی تونه مانع رسیدنت به آرزوهات بشه مگر خودت

        دیدگاه


          #5
          پاسخ : قرار دادن یک رقم از یک عدد در یک متغیر دیگر در بیسکام

          نوشته اصلی توسط پویا تیموریان
          درود
          اون عدد رو به رشته تبدیل کن بعد هر کدام رو که خواستی بردار و بعد دوباره به عدد تبدیل کن
          اون تبدیل ها دستورشون چیه ؟
          مرسی
          [move][img width=133 height=100]http://bargiri.persiangig.com/aks/0.306310001356499787_taknaz_ir.gif[/img][/move]

          دیدگاه


            #6
            پاسخ : قرار دادن یک رقم از یک عدد در یک متغیر دیگر در بیسکام

            بهترین روش همون تقسیمه
            برای تبدیل به رشته میتونی از روش زیر استفاده کنی
            dim a as string*5
            a=str(var


            برای جدا کردن هم میتونی از دستور
            mid
            استفاده کنی
            ما زنده به آنیم که آرام نگیریم موجیم که آسودگی ما عدم ماست

            وقتی یک ملت برای فرهنگ و نژاد و ملیت خویش ارزشی قائل نشد و حقی را که طبیعت برای نگاهداری نژاد پاکش به او ارزانی داشته بود پایمال ساخت و به بیگانگان روی آورد و تسلیم شد دیگر حق ندارد از شکست و بدبختی سیاسی که خودش باعث آن شده است شکایت کند .ادولف هیتلر

            r.babazadeh@yahoo.com

            دیدگاه


              #7
              پاسخ : قرار دادن یک رقم از یک عدد در یک متغیر دیگر در بیسکام

              اقا دست همه درد نکنه با این دستورات درست کردم
              نمی دونم چی به چیه ولی درست کار میکنه :mrgreen:

              If _min < 10 Then : D = _min : C = 0 : End If
              If _min > 10 Then : D = _min Mod 10 : End If
              C = _min / 10 :
              If _min = 10 Then D = 0
              [move][img width=133 height=100]http://bargiri.persiangig.com/aks/0.306310001356499787_taknaz_ir.gif[/img][/move]

              دیدگاه


                #8
                پاسخ : قرار دادن یک رقم از یک عدد در یک متغیر دیگر در بیسکام

                واسه همه تشکر زدم دست همه درد نکنه موضوع به نتیجه رسید رو زدم ببینم چی میشه ؟
                [move][img width=133 height=100]http://bargiri.persiangig.com/aks/0.306310001356499787_taknaz_ir.gif[/img][/move]

                دیدگاه

                لطفا صبر کنید...
                X