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

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




صفحه 2 از 3 اولاول 123 آخرآخر
نمايش نتايج 11 به 20 از 21

نام تاپيک: درخواست كمك حل پروزه

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

    پيش فرض

    رشته رو ميتوني از يه تكس باكس بگيري. يا با inputbox بگيري. inputbox اين جوري كار ميكنه.
    کد:
    برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

  2. #12
    پروفشنال MARTIN's Avatar
    تاريخ عضويت
    Dec 2005
    محل سكونت
    ایران عزیز,مازندران
    پست ها
    686

    پيش فرض

    نقل قول نوشته شده توسط fireboy
    ببين من منظور از به صورت رشته از ورودي بخوانيد رو نفهميدم
    من مبتدي هستم لااقل يه خورده راهنمايي در مورد نحوه حل كردنش بدين
    دو تا متغیر از نوع رشته تعریف میکنی به قسمت تعریف رشته ها تو کتابت مراجعه کن
    بعد دو تا متغیر و از کاربر میخوای که وارد کنه یعنی اعداد وارد کرده بصورت رشته ای در حافظه ذخیره میشن
    بعد دو تا ارایه به طول بیست از نوع کارکتر تعریف میکنی
    بعد مثلا از متغیر اول که عدد اول را در اون وارد کردی از سمت راست یکی یکی بصورت کارکتری ازش جدا میکنی مثلا اولین رقم سمت راست رو بعد از جدا کردن در اولین عنصر ارایه قرار میدی اگه همین جور ادامه بدی رقم بیستم از سمت راست در عنصر بیستم قرار میگیره
    حالا کاری که باید انجام بدی اینه که کارکتر هایه ذخیره شده در ارایه رو به عدد تبدیل کنی با استفاده از سوییتچ کیس این کارو انجام میدی خوب هر عنصر از ارایه که به عدد تبدیل میکنی باید ضرب در ده به توان شماره اندیس منهایه یک بشه مثلا اگه ارایه دوم بود ضرب در ده به توان یک میشه
    در رابطه با اندیسم باید توجه کنی اولین عنصر ارایه از صفر شروع میشه یا یک چون اگه از صفر شروع بشه کلا یکم فرق میکنه
    خوب همه رقما یه ضرب در توان ده شده رو باهم جمع میکنی و عدد اصلی رو میسازی برایه عدد دوم هم این کارو میکنی
    خوب دیگه حله دیگه
    چیزی متوجه شدی

  3. #13
    در آغاز فعالیت
    تاريخ عضويت
    Apr 2006
    پست ها
    19

    پيش فرض

    سلام متنه پروژتونو كامل بزارين تا بگم چيكار كنين در ضمن به چه زباني؟؟

  4. #14
    داره خودمونی میشه fireboy's Avatar
    تاريخ عضويت
    Oct 2005
    پست ها
    164

    پيش فرض

    نقل قول نوشته شده توسط farzanehm
    سلام متنه پروژتونو كامل بزارين تا بگم چيكار كنين در ضمن به چه زباني؟؟
    متن پروژه رو گفتم توي صفحه اوله زبان ويژوال بيسيك
    Last edited by fireboy; 25-04-2006 at 10:40.

  5. #15
    داره خودمونی میشه fireboy's Avatar
    تاريخ عضويت
    Oct 2005
    پست ها
    164

    پيش فرض

    من تا اينجا پيش رفتم
    Dim x As String
    Dim y As String
    x = InputBox("Enter Number", "Enter")
    y = InputBox("Enter Number", "Enter")
    Dim a(20) As String
    Dim b(20) As String
    درست هست؟ بعد اين دستور سوییتچ کیس رو هنوز نخوندم ميشه يه دستور جايگزين كرد يا براي اين دستور توضيح بدين
    لطفا راهنمايي بفرماييد

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

    پيش فرض

    اين كد كاراكترها رو ميريزه تو آرايه.
    جمع كردنشون بايد به چه روشي باشه. عناصر آرايه بايد با هم جمع شن؟ يعني عضو يك هر دو آرايه با هم جمع شه عضو دوشون با هم جمع شه ... تا عضو 20 ؟
    کد:
    برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

  7. #17
    داره خودمونی میشه fireboy's Avatar
    تاريخ عضويت
    Oct 2005
    پست ها
    164

    پيش فرض

    درسته به همين ترتيب هستش

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

    پيش فرض

    خوب كار كمي گره ميخوره. اگه جمع دو عنصر بزرگتر از 10 بشه چي؟ شما كه نميتوني بگي جمع 182 با 356 ميشه 4138. (تك تك اعداد جمع شدند و كنار هم قرار گرفتند). پس مجبور ميشي هر دفعه چك كني كه اگر حاصل جمع بزرگتر از 10 شد يكان رو نگه داري و دهگان رو با دو عنصر بعدي جمع كني.

  9. #19
    داره خودمونی میشه fireboy's Avatar
    تاريخ عضويت
    Oct 2005
    پست ها
    164

    پيش فرض

    من هنوز به نتيجه نرسيدم

  10. #20
    داره خودمونی میشه fireboy's Avatar
    تاريخ عضويت
    Oct 2005
    پست ها
    164

    پيش فرض

    بالاخره خودم تونستم اينم جوابش
    Dim x As Integer
    Dim a(2, 20) As String
    Dim b(1, 21) As String
    For i = 1 To 20
    a(1, i) = Mid(Text1.Text, i, 1)
    a(2, i) = Mid(Text2.Text, i, 1)
    Next i
    For i = 20 To 0 Step -1
    x = (x + (Val(a(1, i)) + Val(a(2, i)))) \ 10
    b(1, i) = (Val(a(1, i)) + Val(a(2, i)) + x) Mod 10


    Text3.Text = Str(b(1, i)) + Text3.Text
    Next i








    End Sub

Thread Information

Users Browsing this Thread

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

User Tag List

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

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