السلام عليكم ورحمة الله وبركاته
الاخوه المبرمجون
احتاج لبرنامج يفرز الارقام
بحيث تكون واجة البرنامج مكونه من خمس(text) وعند الضغط على ايقونه الفرز (com) يظهر في كل خانه رقم ( من رقم 1 الى 300 ) تتحرك بسرعه
وعند الضغط على (com) اخر مخصص لإيقاف الفرز تظهر الارقام
اتمنى مساعدتي في ذلك
انا الان بصدد تنزيل برنامج الفيجول وتصميم الواجهه ولكن مشكلتي تكمن في الاكواد فمعرفتي بها قليله ارجو مساعدتي فالوقت عندي قصير
السلام عليكم
الأمر أسرع من أن نحتاج إلى زر "ايقاف الفرز"، إلا إذا كنت تريد أن تظهر عملية الفرز على البطيء للمستخدم (عندها ستحتاج إلى timer)
لاتـُهيئ كفني ما متّ بعد = لم يزل في أضلعي برقٌ و رعدُ
أنــا اسـلامــي ..أنا عزّته = أنا خيل الله نحو النصــر تعــدو
أنــا تــاريـخـي …ألا تعــرفـه = خـالد ينبض في روحــي و سعدُ
لاتـــغرنـك منــي هدأتـــــي = لا يمــوت الثــأر و لــكن يســتعـدُ
لا يغرنـــك نصــلٌ موغـــلٌ = في عروقي …فـأنا منه أحـّـــدُ
إن ما ضُيع في ساح الوغى = في سوى ساحــاتـها لا يــستردُ
اخي byte101
شكرا لتفاعلك ولكن لم افهم
اذا مكن توضح لي
ولك صادق تقديري
السلام عليكم
- هل الأرقام الخمسة سيقوم المستخدم بإدخالها أم أن البرنامج سيختارها عشوائيا و يظهرها؟
- هل المطلوب هو فرز الأرقام أي ترتيب من الصغير إلى الكبير مثلا؟
- إذا كان المطلوب هو ترتيب الأرقام فالأمر يحتاج لأقل من ثانية لتتم العملية. ما الغاية من زر "ايقاف الفرز"؟
لاتـُهيئ كفني ما متّ بعد = لم يزل في أضلعي برقٌ و رعدُ
أنــا اسـلامــي ..أنا عزّته = أنا خيل الله نحو النصــر تعــدو
أنــا تــاريـخـي …ألا تعــرفـه = خـالد ينبض في روحــي و سعدُ
لاتـــغرنـك منــي هدأتـــــي = لا يمــوت الثــأر و لــكن يســتعـدُ
لا يغرنـــك نصــلٌ موغـــلٌ = في عروقي …فـأنا منه أحـّـــدُ
إن ما ضُيع في ساح الوغى = في سوى ساحــاتـها لا يــستردُ
سيقام برنامج متكامل من ظمن فعالياته ورشه عمل يحضرها 300 شخص نريد ان يتم اختيار المشاركين في الورشه بشكل عشوائي من بين الثلاث مئه شخص
مثلا يضهر في الخانه الاولى رقم 57 والثانيه 30 والخانه الثالثه 178 والخاه الرابعه 285 والخامسه 49
وهكذا
واذا ضغطت على زر الفرز مره اخرى لا تظهر الارقام التي قد ظهرت سابقا
زر الايقاف لايقاف عمليه الفرز لتظهر الارقام
اتمنى ان تكون الفكره وصلت
انا حاولت ان اكتب الاكواد ولكن تظهر لي علامة الخطا باستمرار ففضلت ان استعين بمتخصصين
اتمنى ان لا تخذلوني فكما قلت الوقت لدي قصير
وفقك الله ويسر لك كل صعب
تم تعديل هذه المشاركة بواسطة البرواااز في 27 مارس 2012 في 00:43
السلام عليكم
تفضل أخي الكود التالي:
Private Sub Generate5RandomNumbers(maxValue As Integer)
textBox1.Text = CInt(Math.Ceiling(Rnd() * maxValue)).ToString()
textBox2.Text = CInt(Math.Ceiling(Rnd() * maxValue)).ToString()
textBox3.Text = CInt(Math.Ceiling(Rnd() * maxValue)).ToString()
textBox4.Text = CInt(Math.Ceiling(Rnd() * maxValue)).ToString()
textBox5.Text = CInt(Math.Ceiling(Rnd() * maxValue)).ToString()
End Subعملية الاستدعاء كالتالي:
Generate5RandomNumbers(300)
و لا داعي لزر الإيقاف
و الله أعلم
تم تعديل هذه المشاركة بواسطة byte101 في 27 مارس 2012 في 01:16
لاتـُهيئ كفني ما متّ بعد = لم يزل في أضلعي برقٌ و رعدُ
أنــا اسـلامــي ..أنا عزّته = أنا خيل الله نحو النصــر تعــدو
أنــا تــاريـخـي …ألا تعــرفـه = خـالد ينبض في روحــي و سعدُ
لاتـــغرنـك منــي هدأتـــــي = لا يمــوت الثــأر و لــكن يســتعـدُ
لا يغرنـــك نصــلٌ موغـــلٌ = في عروقي …فـأنا منه أحـّـــدُ
إن ما ضُيع في ساح الوغى = في سوى ساحــاتـها لا يــستردُ
اخي الفاضل الف شكر لك على مساعدتك
ولو تكمل جميلك معي
وضعت الكود في زر ( ابدا عملية الفرز)
ولم تتم معي العمليه
الكود يكون كل تكست على حده او في زر الكومن
والاستدعاء اين اضعه
اعتذر فقد اثقلت عليك
وفقك الله وبارك لك وسهل لك صعب امرك
السلام عليكم
الكود تضعه بعد كود الزر أي بعد "End Sub" (خارج كود الزر)
و الاستدعاء تضعه في كود الزر "ابدأ الفرز"
لاتـُهيئ كفني ما متّ بعد = لم يزل في أضلعي برقٌ و رعدُ
أنــا اسـلامــي ..أنا عزّته = أنا خيل الله نحو النصــر تعــدو
أنــا تــاريـخـي …ألا تعــرفـه = خـالد ينبض في روحــي و سعدُ
لاتـــغرنـك منــي هدأتـــــي = لا يمــوت الثــأر و لــكن يســتعـدُ
لا يغرنـــك نصــلٌ موغـــلٌ = في عروقي …فـأنا منه أحـّـــدُ
إن ما ضُيع في ساح الوغى = في سوى ساحــاتـها لا يــستردُ
الف الف الف شكر
وفقك الله ويسر امرك
ضبطت معايه
لك فائق تقديري وامتناني ودعواتي
الفضل لله وحده
تم تعديل هذه المشاركة بواسطة byte101 في 27 مارس 2012 في 02:18
لاتـُهيئ كفني ما متّ بعد = لم يزل في أضلعي برقٌ و رعدُ
أنــا اسـلامــي ..أنا عزّته = أنا خيل الله نحو النصــر تعــدو
أنــا تــاريـخـي …ألا تعــرفـه = خـالد ينبض في روحــي و سعدُ
لاتـــغرنـك منــي هدأتـــــي = لا يمــوت الثــأر و لــكن يســتعـدُ
لا يغرنـــك نصــلٌ موغـــلٌ = في عروقي …فـأنا منه أحـّـــدُ
إن ما ضُيع في ساح الوغى = في سوى ساحــاتـها لا يــستردُ