تبلیغات :
ماهان سرور
آکوستیک ، فوم شانه تخم مرغی ، پنل صداگیر ، یونولیت
دستگاه جوجه کشی حرفه ای
فروش آنلاین لباس کودک
خرید فالوور ایرانی
خرید فالوور اینستاگرام
خرید ممبر تلگرام

[ + افزودن آگهی متنی جدید ]




نمايش نتايج 1 به 9 از 9

نام تاپيک: اگه مجموع ارقام 4 رقمی رو بخوایم باید چیکار کنیم ؟

  1. #1
    اگه نباشه جاش خالی می مونه MohammadJavad.T's Avatar
    تاريخ عضويت
    Aug 2006
    پست ها
    436

    پيش فرض اگه مجموع ارقام 4 رقمی رو بخوام باید چیکار کنیم ؟

    سلام
    مجموع ارقام عدد سه رقمی
    dim fozool as integer
    dim a as integer
    dim b as integer
    dim c as integer
    fozool=val(text1.text
    a=fozool mod 10
    b=fozool \10 mod 10
    c= fozool/100
    حالا سوال من اینه اگه مجموع ارقام 4 رقمی رو بخوام باید چیکار کنیم ؟ :
    خیلی دست کاریش کردم ولی نشد
    Last edited by MohammadJavad.T; 27-08-2006 at 03:56.

  2. #2
    اگه نباشه جاش خالی می مونه MohammadJavad.T's Avatar
    تاريخ عضويت
    Aug 2006
    پست ها
    436

    پيش فرض

    26 نفر بازديد داشته ولي يه نفر هم جواب نداده خيلي جالب
    Last edited by MohammadJavad.T; 27-08-2006 at 03:18.

  3. #3
    اگه نباشه جاش خالی می مونه A_M_IT2005's Avatar
    تاريخ عضويت
    Oct 2005
    محل سكونت
    بین جهنم و بهشت
    پست ها
    331

    پيش فرض

    سلام
    خوب وقتی برای عدد سه رقمی سه بار تقسیم می کنی ، برای عدد چهار رقمی هم چهار بار تقسیم کن دیگه.
    البته این الگوریتم از نظر برنامه نویسی قابل قبول نیست و یک الگوریتم کلی داره (البته الان یادم نیست)
    موفق باشید.

  4. #4
    اگه نباشه جاش خالی می مونه MohammadJavad.T's Avatar
    تاريخ عضويت
    Aug 2006
    پست ها
    436

    پيش فرض

    سلام
    گفتم كه اين كار رو كردم ولي بازم جواب نداد از چه نظر قابل قبول نيست اگه راه بهتري ميدوني بگي ممنون ميشم

  5. #5
    اگه نباشه جاش خالی می مونه A_M_IT2005's Avatar
    تاريخ عضويت
    Oct 2005
    محل سكونت
    بین جهنم و بهشت
    پست ها
    331

    پيش فرض

    سلام
    الان ویژوالم نصب نیست که بتونم جواب درستی بدم.
    سعی می کنم زود جوابتو بدم.

  6. #6
    مدیر انجمن برنامه نویسی Payman_62's Avatar
    تاريخ عضويت
    Dec 2005
    محل سكونت
    تهران
    پست ها
    2,445

    پيش فرض

    سلام.
    از این کد استفاده کن. 10 رقمی رو هم برات حساب میکنه.
    کد:
    برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

  7. #7
    اگه نباشه جاش خالی می مونه MohammadJavad.T's Avatar
    تاريخ عضويت
    Aug 2006
    پست ها
    436

    پيش فرض

    سلام
    مرسي خيلي ممنون چير جالبي بود

  8. #8
    اگه نباشه جاش خالی می مونه babi's Avatar
    تاريخ عضويت
    Jan 2005
    محل سكونت
    آفیس خواب
    پست ها
    312

    پيش فرض

    نقل قول نوشته شده توسط Payman_62
    سلام.
    از این کد استفاده کن. 10 رقمی رو هم برات حساب میکنه.
    کد:
    برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

    قبل از این دستور باید کلمه val را هم بنویسیم :::
    val( Mid(strNum, i, 1

  9. #9
    مدیر انجمن برنامه نویسی Payman_62's Avatar
    تاريخ عضويت
    Dec 2005
    محل سكونت
    تهران
    پست ها
    2,445

    پيش فرض

    سلام.
    اگه تو تکس باکس عدد باشه نیازی به val نیست. ویبی خودش رشته رو تبدیل به عدد میکنه. رو این حساب من از نوشتن val صرف نظر کردم.

Thread Information

Users Browsing this Thread

هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)

User Tag List

قوانين ايجاد تاپيک در انجمن

  • شما نمی توانید تاپیک ایحاد کنید
  • شما نمی توانید پاسخی ارسال کنید
  • شما نمی توانید فایل پیوست کنید
  • شما نمی توانید پاسخ خود را ویرایش کنید
  •