[haider kh]

كود :

MIN = Val(Text1(0).Text)
For i = 0 To 3
If Val(Text1(i).Text) < MIN Then
 MIN = Val(Text1(i).Text)
End If
Next
MinTxt.Text = MIN

الاساتذة الكرام السلام عليكم
يبدو انني اكثرت من الاسئلة ولكن عذرنا هو سعة صدركم بارك الله بكم
لدي هذا الكود المرفق وظيفتة ايجاد العدد الأصغر من مجموعه اعداد وهو يعمل بصورة جيدة لكني أرغب في انه بعد ان يجد العدد الاصغر في الدورة الأولى يعاد مرة ثانية  ليتفحص بقية الاعداد مستثنيا العدد الاصغر الذي وجدوه في الدورة الاولى ثم يعيد تفحص بقية الاعداد ويستثني في المرة الثالثة العددين الاول والثاني وهكذا الى نهاية الاعداد مع شكري الجزيل لكم جميعا أحبتي

[Ahmed_Mansoor]

وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , يبدو من الكود والطلب أنك تريد ترتيب قائمة من الأرقام من الرقم الأصغر إلى الرقم الأكبر , ولعمل ذلك إستخدم أداة الـ ListBox لكي ترتب لكل الأرقام حيث لابد أولا أن تضع قيمة خاصية Sorted التابعة لأداة الـ ListBox تساوي True ثم أضف مجموعة الأرقام التي تريد بالطريقة التي ستراها في المثال المرفق , بالتوفيق .

[haider kh]

(04-07-19, 02:19 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , يبدو من الكود والطلب أنك تريد ترتيب قائمة من الأرقام من الرقم الأصغر إلى الرقم الأكبر , ولعمل ذلك إستخدم أداة الـ ListBox لكي ترتب لكل الأرقام حيث لابد أولا أن تضع قيمة خاصية Sorted التابعة لأداة الـ ListBox تساوي True ثم أضف مجموعة الأرقام التي تريد بالطريقة التي ستراها في المثال المرفق , بالتوفيق .

الأخ والأستاذ Ahmed_Mansoor
مهما قلت لا أستطيع إيفاء حقك انت وبقية الإخوة الكرام في منتدانا الكبير واخص منهم الأخ الاستاذ أمير الزبيدي والأخ الاستاذ السيد الغالي والذي نفتقده هذه الأيام 
والأستاذ ابراهيم إيبو ولا اريد ان أعدد لأني حتما سأنسى لكم مني كل الشكر 
شكرًا جزيلا استاذ احمد منصور

[haider kh]

(04-07-19, 02:19 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , يبدو من الكود والطلب أنك تريد ترتيب قائمة من الأرقام من الرقم الأصغر إلى الرقم الأكبر , ولعمل ذلك إستخدم أداة الـ ListBox لكي ترتب لكل الأرقام حيث لابد أولا أن تضع قيمة خاصية Sorted التابعة لأداة الـ ListBox تساوي True ثم أضف مجموعة الأرقام التي تريد بالطريقة التي ستراها في المثال المرفق , بالتوفيق .

السلام عليكم استاذ Ahmed_Mansoor
اعتذر ان كنت قد اتعبتك
اتمنى على حضرتك ان تنظر في المثال المرفق

بارك الله بك

[Ahmed_Mansoor]

(04-07-19, 05:11 PM)haider kh كتب :

(04-07-19, 02:19 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , يبدو من الكود والطلب أنك تريد ترتيب قائمة من الأرقام من الرقم الأصغر إلى الرقم الأكبر , ولعمل ذلك إستخدم أداة الـ ListBox لكي ترتب لكل الأرقام حيث لابد أولا أن تضع قيمة خاصية Sorted التابعة لأداة الـ ListBox تساوي True ثم أضف مجموعة الأرقام التي تريد بالطريقة التي ستراها في المثال المرفق , بالتوفيق .

السلام عليكم استاذ Ahmed_Mansoor
اعتذر ان كنت قد اتعبتك
اتمنى على حضرتك ان تنظر في المثال المرفق

بارك الله بك

وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , لا عادي أخي مافيه تعب أبدا المشكلة فقط ضيق الوقت عندي , أخي تم تعديل المثال , بالتوفيق .

[مصمم هاوي]

لا عليك أخي الكريم فهذا المنتدى الراقي فيه أناسٌ طييبون، وأساتذة أوفياء، وأصدقاء مخلصون
كلهم عطاءً غير محدود، وتواضعاً جماً، وحبَّاً كبيراً للخير والمساعدة.