+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : سؤال: تعديل على كود ايجاد العدد الأصغر (/showthread.php?tid=30134)
سؤال: تعديل على كود ايجاد العدد الأصغر - haider kh - 02-07-19
كود :
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يبدو انني اكثرت من الاسئلة ولكن عذرنا هو سعة صدركم بارك الله بكم
لدي هذا الكود المرفق وظيفتة ايجاد العدد الأصغر من مجموعه اعداد وهو يعمل بصورة جيدة لكني أرغب في انه بعد ان يجد العدد الاصغر في الدورة الأولى يعاد مرة ثانية ليتفحص بقية الاعداد مستثنيا العدد الاصغر الذي وجدوه في الدورة الاولى ثم يعيد تفحص بقية الاعداد ويستثني في المرة الثالثة العددين الاول والثاني وهكذا الى نهاية الاعداد مع شكري الجزيل لكم جميعا أحبتي
RE: سؤال: تعديل على كود ايجاد العدد الأصغر - Ahmed_Mansoor - 04-07-19
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , يبدو من الكود والطلب أنك تريد ترتيب قائمة من الأرقام من الرقم الأصغر إلى الرقم الأكبر , ولعمل ذلك إستخدم أداة الـ ListBox لكي ترتب لكل الأرقام حيث لابد أولا أن تضع قيمة خاصية Sorted التابعة لأداة الـ ListBox تساوي True ثم أضف مجموعة الأرقام التي تريد بالطريقة التي ستراها في المثال المرفق , بالتوفيق .
RE: سؤال: تعديل على كود ايجاد العدد الأصغر - haider kh - 04-07-19
(04-07-19, 02:19 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاتهالأخ والأستاذ Ahmed_Mansoor
أهلا بك أخي الكريم , يبدو من الكود والطلب أنك تريد ترتيب قائمة من الأرقام من الرقم الأصغر إلى الرقم الأكبر , ولعمل ذلك إستخدم أداة الـ ListBox لكي ترتب لكل الأرقام حيث لابد أولا أن تضع قيمة خاصية Sorted التابعة لأداة الـ ListBox تساوي True ثم أضف مجموعة الأرقام التي تريد بالطريقة التي ستراها في المثال المرفق , بالتوفيق .
مهما قلت لا أستطيع إيفاء حقك انت وبقية الإخوة الكرام في منتدانا الكبير واخص منهم الأخ الاستاذ أمير الزبيدي والأخ الاستاذ السيد الغالي والذي نفتقده هذه الأيام
والأستاذ ابراهيم إيبو ولا اريد ان أعدد لأني حتما سأنسى لكم مني كل الشكر
شكرًا جزيلا استاذ احمد منصور
RE: سؤال: تعديل على كود ايجاد العدد الأصغر - haider kh - 04-07-19
(04-07-19, 02:19 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , يبدو من الكود والطلب أنك تريد ترتيب قائمة من الأرقام من الرقم الأصغر إلى الرقم الأكبر , ولعمل ذلك إستخدم أداة الـ ListBox لكي ترتب لكل الأرقام حيث لابد أولا أن تضع قيمة خاصية Sorted التابعة لأداة الـ ListBox تساوي True ثم أضف مجموعة الأرقام التي تريد بالطريقة التي ستراها في المثال المرفق , بالتوفيق .
السلام عليكم استاذ Ahmed_Mansoor
اعتذر ان كنت قد اتعبتك
اتمنى على حضرتك ان تنظر في المثال المرفق
بارك الله بك
RE: سؤال: تعديل على كود ايجاد العدد الأصغر - Ahmed_Mansoor - 05-07-19
(04-07-19, 05:11 PM)haider kh كتب :(04-07-19, 02:19 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , يبدو من الكود والطلب أنك تريد ترتيب قائمة من الأرقام من الرقم الأصغر إلى الرقم الأكبر , ولعمل ذلك إستخدم أداة الـ ListBox لكي ترتب لكل الأرقام حيث لابد أولا أن تضع قيمة خاصية Sorted التابعة لأداة الـ ListBox تساوي True ثم أضف مجموعة الأرقام التي تريد بالطريقة التي ستراها في المثال المرفق , بالتوفيق .
السلام عليكم استاذ Ahmed_Mansoor
اعتذر ان كنت قد اتعبتك
اتمنى على حضرتك ان تنظر في المثال المرفق
بارك الله بك
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , لا عادي أخي مافيه تعب أبدا المشكلة فقط ضيق الوقت عندي , أخي تم تعديل المثال , بالتوفيق .
RE: سؤال: تعديل على كود ايجاد العدد الأصغر - مصمم هاوي - 05-07-19
لا عليك أخي الكريم فهذا المنتدى الراقي فيه أناسٌ طييبون، وأساتذة أوفياء، وأصدقاء مخلصون
كلهم عطاءً غير محدود، وتواضعاً جماً، وحبَّاً كبيراً للخير والمساعدة.