كود :
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
الاساتذة الكرام السلام عليكم
يبدو انني اكثرت من الاسئلة ولكن عذرنا هو سعة صدركم بارك الله بكم
لدي هذا الكود المرفق وظيفتة ايجاد العدد الأصغر من مجموعه اعداد وهو يعمل بصورة جيدة لكني أرغب في انه بعد ان يجد العدد الاصغر في الدورة الأولى يعاد مرة ثانية ليتفحص بقية الاعداد مستثنيا العدد الاصغر الذي وجدوه في الدورة الاولى ثم يعيد تفحص بقية الاعداد ويستثني في المرة الثالثة العددين الاول والثاني وهكذا الى نهاية الاعداد مع شكري الجزيل لكم جميعا أحبتي
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , يبدو من الكود والطلب أنك تريد ترتيب قائمة من الأرقام من الرقم الأصغر إلى الرقم الأكبر , ولعمل ذلك إستخدم أداة الـ ListBox لكي ترتب لكل الأرقام حيث لابد أولا أن تضع قيمة خاصية Sorted التابعة لأداة الـ ListBox تساوي True ثم أضف مجموعة الأرقام التي تريد بالطريقة التي ستراها في المثال المرفق , بالتوفيق .
(04-07-19, 02:19 AM)Ahmed_Mansoor كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , يبدو من الكود والطلب أنك تريد ترتيب قائمة من الأرقام من الرقم الأصغر إلى الرقم الأكبر , ولعمل ذلك إستخدم أداة الـ ListBox لكي ترتب لكل الأرقام حيث لابد أولا أن تضع قيمة خاصية Sorted التابعة لأداة الـ ListBox تساوي True ثم أضف مجموعة الأرقام التي تريد بالطريقة التي ستراها في المثال المرفق , بالتوفيق .
الأخ والأستاذ Ahmed_Mansoor
مهما قلت لا أستطيع إيفاء حقك انت وبقية الإخوة الكرام في منتدانا الكبير واخص منهم الأخ الاستاذ أمير الزبيدي والأخ الاستاذ السيد الغالي والذي نفتقده هذه الأيام
والأستاذ ابراهيم إيبو ولا اريد ان أعدد لأني حتما سأنسى لكم مني كل الشكر
شكرًا جزيلا استاذ احمد منصور
(04-07-19, 02:19 AM)Ahmed_Mansoor كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , يبدو من الكود والطلب أنك تريد ترتيب قائمة من الأرقام من الرقم الأصغر إلى الرقم الأكبر , ولعمل ذلك إستخدم أداة الـ ListBox لكي ترتب لكل الأرقام حيث لابد أولا أن تضع قيمة خاصية Sorted التابعة لأداة الـ ListBox تساوي True ثم أضف مجموعة الأرقام التي تريد بالطريقة التي ستراها في المثال المرفق , بالتوفيق .
السلام عليكم استاذ Ahmed_Mansoor
اعتذر ان كنت قد اتعبتك
اتمنى على حضرتك ان تنظر في المثال المرفق
بارك الله بك
(04-07-19, 05:11 PM)haider kh كتب : [ -> ] (04-07-19, 02:19 AM)Ahmed_Mansoor كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , يبدو من الكود والطلب أنك تريد ترتيب قائمة من الأرقام من الرقم الأصغر إلى الرقم الأكبر , ولعمل ذلك إستخدم أداة الـ ListBox لكي ترتب لكل الأرقام حيث لابد أولا أن تضع قيمة خاصية Sorted التابعة لأداة الـ ListBox تساوي True ثم أضف مجموعة الأرقام التي تريد بالطريقة التي ستراها في المثال المرفق , بالتوفيق .
السلام عليكم استاذ Ahmed_Mansoor
اعتذر ان كنت قد اتعبتك
اتمنى على حضرتك ان تنظر في المثال المرفق
بارك الله بك
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , لا عادي أخي مافيه تعب أبدا المشكلة فقط ضيق الوقت عندي , أخي تم تعديل المثال , بالتوفيق .
لا عليك أخي الكريم فهذا المنتدى الراقي فيه أناسٌ طييبون، وأساتذة أوفياء، وأصدقاء مخلصون
كلهم عطاءً غير محدود، وتواضعاً جماً، وحبَّاً كبيراً للخير والمساعدة.