رشته رو ميتوني از يه تكس باكس بگيري. يا با inputbox بگيري. inputbox اين جوري كار ميكنه.
کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
رشته رو ميتوني از يه تكس باكس بگيري. يا با inputbox بگيري. inputbox اين جوري كار ميكنه.
کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
دو تا متغیر از نوع رشته تعریف میکنی به قسمت تعریف رشته ها تو کتابت مراجعه کننوشته شده توسط fireboy
بعد دو تا متغیر و از کاربر میخوای که وارد کنه یعنی اعداد وارد کرده بصورت رشته ای در حافظه ذخیره میشن
بعد دو تا ارایه به طول بیست از نوع کارکتر تعریف میکنی
بعد مثلا از متغیر اول که عدد اول را در اون وارد کردی از سمت راست یکی یکی بصورت کارکتری ازش جدا میکنی مثلا اولین رقم سمت راست رو بعد از جدا کردن در اولین عنصر ارایه قرار میدی اگه همین جور ادامه بدی رقم بیستم از سمت راست در عنصر بیستم قرار میگیره
حالا کاری که باید انجام بدی اینه که کارکتر هایه ذخیره شده در ارایه رو به عدد تبدیل کنی با استفاده از سوییتچ کیس این کارو انجام میدی خوب هر عنصر از ارایه که به عدد تبدیل میکنی باید ضرب در ده به توان شماره اندیس منهایه یک بشه مثلا اگه ارایه دوم بود ضرب در ده به توان یک میشه
در رابطه با اندیسم باید توجه کنی اولین عنصر ارایه از صفر شروع میشه یا یک چون اگه از صفر شروع بشه کلا یکم فرق میکنه
خوب همه رقما یه ضرب در توان ده شده رو باهم جمع میکنی و عدد اصلی رو میسازی برایه عدد دوم هم این کارو میکنی
خوب دیگه حله دیگه
چیزی متوجه شدی![]()
سلام متنه پروژتونو كامل بزارين تا بگم چيكار كنين در ضمن به چه زباني؟؟
متن پروژه رو گفتم توي صفحه اوله زبان ويژوال بيسيكنوشته شده توسط farzanehm
Last edited by fireboy; 25-04-2006 at 10:40.
من تا اينجا پيش رفتم
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
درست هست؟ بعد اين دستور سوییتچ کیس رو هنوز نخوندم ميشه يه دستور جايگزين كرد يا براي اين دستور توضيح بدين
لطفا راهنمايي بفرماييد
اين كد كاراكترها رو ميريزه تو آرايه.
جمع كردنشون بايد به چه روشي باشه. عناصر آرايه بايد با هم جمع شن؟ يعني عضو يك هر دو آرايه با هم جمع شه عضو دوشون با هم جمع شه ... تا عضو 20 ؟
کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
خوب كار كمي گره ميخوره. اگه جمع دو عنصر بزرگتر از 10 بشه چي؟ شما كه نميتوني بگي جمع 182 با 356 ميشه 4138. (تك تك اعداد جمع شدند و كنار هم قرار گرفتند). پس مجبور ميشي هر دفعه چك كني كه اگر حاصل جمع بزرگتر از 10 شد يكان رو نگه داري و دهگان رو با دو عنصر بعدي جمع كني.
بالاخره خودم تونستم اينم جوابش
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
هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)