اگه بينهايت بشه كه چه بهتر اگر هم نه فقط همون 6 تا عدد.
اگه مي خواي با دستور If همه رو با هم مقایسه کنی لازم نیست این کار رو بکنی.چون خیلی برات وقت گیر میشه و خودم می تونم بنویسمش.
من یه چیزی می خوام که خیلی نیاز به کدنویسی نداشته باشه.
من وقت نوشتن تابع رو ندارم فقط می تونم راهنمایت می کنم :
1. یه ارایه با n عضودرست کن
2.n تعداد عدد که دوست داری بریز تو ارایه
3.با الگوریتم Bubble Sort که تو اینترنت ریخته ارایت رو مرتب کن
4. بعد از اون از تابع Lbound برای مینیمم و از Ubound برای ماگزیمم استفاده کن
اینطوری هر تعداد عدد که بخوای می تونی مینیمم یا ماگزیممش رو حساب کنی
دستتون درد نکنه.ولی من تا حالا با توابع Lbound و Ubound برخورد نکردم.اگه میشه نحوه استفاده از اونا رو هم بگید.
کد:
Ubound(name araye)
Lbound(name araye)
Lbound حد پايين ارايه رو ميده
Ubound حد بالاي ارايه رو ميده
براي اون الگوريتم Bubble Sort هم كه گفتم برو
تو سايت
www.vbcode.com تو سرچش بزن
Bubble Sort چيزاي خوبي مي ده
دوست عزیز از تمام جوابهاتون متشکرم.
تمام مشکلات حل شد.به جواب همه سوالات رسیدم.امیدوارم بتونم جواب زحماتتون رو بدم.
قابلي نداشت ؛ بازم سوال داشتي بپرس
توانگار رو اينترنت جا پهن كردي نمي آي پايين
تا ما يه پست ميزنيم ؛ سه سوت جواب مي دي
نه بابا كجا همش توي اينترنت هستم.سوالم رو كه كردم DC می شم و چند تا کار انجام می دم و چند دقیقه بعد دوباره یه سر به اینجا می زنم.آخه جوابها رو لازم داشتم.از شما هم متشکرم که امروز خیلی کانکت بودید.
سلام
من ديدم همه جوابها رو دوستان به خوبي وخيلي قشنگ دادند ولي هيفم اومد يه توضيحي اضافه نكنم
اول اينكه براي گرفتن عدد مي توني از كد زير استفاده كني چون mask edit يه خورده اي زشت كار مي كنه:
کد:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If Not IsNumeric(KeyCode) Or KeyCode <> 8 Or KeyCode <> 13 Then
KeyCode = 0
End If
End Sub
دوم كد دوستمون رو مي توني بهينه كني
اولا كه اگر از كنترلهاي آرايه اي استفاده كني كدت خيلي كوچكتر ميشه دوم كد زير براي حذف اون عددي است كه انتخاب شده:
کد:
a = Replace(a, c, "")
يعني دستورات mid , instr رو مي توني برداري
:wink:
آقای mRizvandi از کدها و توضیحاتتون متشکرم.
کد اول رو خودم تونستم بدست بیارم و ازش در برنامه استفاده کنم.
کد دوم رو هم دیگه دور فرستادید.از کدهای قبلی استفاده کردم.ولی در هر حال متشکرم.