تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال: تعديل على كود ايجاد العدد الأصغر
#1
كود :
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
الاساتذة الكرام السلام عليكم
يبدو انني اكثرت من الاسئلة ولكن عذرنا هو سعة صدركم بارك الله بكم
لدي هذا الكود المرفق وظيفتة ايجاد العدد الأصغر من مجموعه اعداد وهو يعمل بصورة جيدة لكني أرغب في انه بعد ان يجد العدد الاصغر في الدورة الأولى يعاد مرة ثانية  ليتفحص بقية الاعداد مستثنيا العدد الاصغر الذي وجدوه في الدورة الاولى ثم يعيد تفحص بقية الاعداد ويستثني في المرة الثالثة العددين الاول والثاني وهكذا الى نهاية الاعداد مع شكري الجزيل لكم جميعا أحبتي
الرد }}}
تم الشكر بواسطة: sendbad100
#2
وعليكم السلام ورحمة الله وبركاته

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


الملفات المرفقة
.rar   OrderNumbers.rar (الحجم : 1.76 ك ب / التحميلات : 18)
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}
تم الشكر بواسطة: حريف برمجة , Amir_Alzubidy , haider kh , sendbad100
#3
(04-07-19, 02:19 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , يبدو من الكود والطلب أنك تريد ترتيب قائمة من الأرقام من الرقم الأصغر إلى الرقم الأكبر , ولعمل ذلك إستخدم أداة الـ ListBox لكي ترتب لكل الأرقام حيث لابد أولا أن تضع قيمة خاصية Sorted التابعة لأداة الـ ListBox تساوي True ثم أضف مجموعة الأرقام التي تريد بالطريقة التي ستراها في المثال المرفق , بالتوفيق .
الأخ والأستاذ Ahmed_Mansoor
مهما قلت لا أستطيع إيفاء حقك انت وبقية الإخوة الكرام في منتدانا الكبير واخص منهم الأخ الاستاذ أمير الزبيدي والأخ الاستاذ السيد الغالي والذي نفتقده هذه الأيام 
والأستاذ ابراهيم إيبو ولا اريد ان أعدد لأني حتما سأنسى لكم مني كل الشكر 
شكرًا جزيلا استاذ احمد منصور
الرد }}}
تم الشكر بواسطة: sendbad100 , Ahmed_Mansoor , Ahmed_Mansoor , Amir_Alzubidy
#4
(04-07-19, 02:19 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته

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

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

بارك الله بك


الملفات المرفقة
.rar   OrderNumbers.rar (الحجم : 2.21 ك ب / التحميلات : 8)
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor , Amir_Alzubidy
#5
(04-07-19, 05:11 PM)haider kh كتب :
(04-07-19, 02:19 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته

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

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

بارك الله بك

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

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


الملفات المرفقة
.rar   OrderNumbers_1.rar (الحجم : 2.34 ك ب / التحميلات : 14)
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}
#6
لا عليك أخي الكريم فهذا المنتدى الراقي فيه أناسٌ طييبون، وأساتذة أوفياء، وأصدقاء مخلصون
كلهم عطاءً غير محدود، وتواضعاً جماً، وحبَّاً كبيراً للخير والمساعدة.
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , haider kh


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 0 73 05-03-24, 02:40 PM
آخر رد: مصمم هاوي
  سؤال بخصوص الحلقات التكرارية / اضافة درجة بشروط haiderkh 14 4,068 19-01-24, 02:39 PM
آخر رد: cls
  [vb6.0] سؤال كيف يتم تحديد عدد مرات تنصيب الملف التنفيذي لبرنامج Hassan.syria 2 193 02-01-24, 10:07 AM
آخر رد: Hassan.syria
  سؤال بخصوص الكتيف ربورت abde6726 2 324 20-11-23, 10:54 AM
آخر رد: abde6726
  [vb6.0] سؤال حول كيفية عمل زر كوماند داخل عمود Msflexgrid جلال اليمني 5 551 14-09-23, 05:12 AM
آخر رد: جلال اليمني
  [vb6.0] سؤال حول تحويل الرقم لعملة في Msflexgrid جلال اليمني 3 408 28-08-23, 07:19 PM
آخر رد: جلال اليمني
  سؤال عن البحث بجدولين مختلفين ziadshhab 1 346 03-06-23, 10:35 PM
آخر رد: ahmedabdelaliem
Question [vb6.0] اكثر من سؤال حول كريستال ريبورت ؟؟ Microformt 0 477 20-05-23, 09:54 PM
آخر رد: Microformt
  [vb6.0] سؤال في فليكس جريد tighrmte 3 566 18-02-23, 10:46 PM
آخر رد: tighrmte
  [vb6.0] سؤال في اداة فليكس جريد vb6 tighrmte 3 492 16-02-23, 02:37 AM
آخر رد: tighrmte

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم