[عبد الهادي بهاب]

السلام عليكم


من باب التحدي  احببت ان  ارفع لاخواني ملف سورس مفتوح
لتصميم برنامج من سيربح المليون
------ حصري لمنتدى الفجيوال بيسك لكل العرب ---------


اعرف انه سبق وان تناول البعض الموضوع لكن التحدي هو ان تصمم انت بطريقتك و تفكيرك البرمجي

اولا سنبدا بالاساسيات :

سنحتاج الى صور البرانامج و هي :
مساعدة الحاسوب - تدخل صديق - الجمهور - صورة  خلفية  لنص السؤال و الاجابات - صورة لشهادة تقديرية 

سنحتاج  الى اصوات :
صوت البداية - صوت التفكير - صوت الصح - صوت الخطا - صوت الاتصال

سنحتاج الى ليسبوكس لاستعراض التقدم في الاجابات

سنحتاج الى عنصر richtextbox  لاستعراض السؤال 
و الى ليبالاات لاستعرض الاجابات

الان مع البرمجة :
اهم شيء في البرنامج هو الاسئلة و الاجابات  .الكل حر في استعمال قاعدة البيانات التي يراها مناسبة 
في مثالي استعملت ابسط طريقة وهي المصفوفة
يعني وضعت الاسئلة في مصفوفة 
بهذا الشكل :

PHP كود :

  Qus = {" عاصمة الجزائر", "عملة الجزائر", "رئيس الجزائر", "الوان العلم الجزائري الاحمر و الابيض",
              "لون الهلال في العلم الجزائري", "تقع الجزائر في شمال", "يقع قي غرب الجزائر", "لون السماء في الجزائر",
               "عبد الهادي مصمم البرنامج لقبه", "صمم البرنامج في منتدى فيجوال بيسك لكل ", "في القرن مرة و في الدقيقة مرتين",
               "يحمل قنطارا و لا يحمل مسمارا", "و ذا النون من هو", "لو نجا منها احد لنجا منها ", "نبي بن نبي بن نبي بن نبي",
               "جمع اخطبوط", "مفرد نساء", "جمع عندليب", "ابن الجمار", "عاصمة فلسطين"} 


و الاجابات في مصفوفة اخرى 

PHP كود :

 Rep = {"الجزائر * تونس*طرابلس * القاهرة", "الدينار * الدولار * الجنيه *الدرهم", "تبون*بوتفليقة*قيس سعيد * السراج",
               "الاخضر * الازرق * الاصفر * الاسود", "أحمر * ابيض * اسود * بني", "افريقيا * اوروبا*اسيا* امريكا",
               "المغرب * تونس * مالي * ليبيا", "أزرق * احمر * اسود * اصفر", "بهاب * وهاب * رهاب * ذهاب",
               "العرب * العجم * الغرب * العزب", "القاف * النقطة * اللام * الثانية", "السفينة * الماء * الكلمة * الرافعة",
               "يونس * محمد * موسى*عيسى", "سعد * معاذ * ابوبكر * علي", "يوسف * محمد * آدم * نوح", "اخاطيط * اخابيط * اخاطبوطات * اخوطات",
              "امرأة * نسوة * نسية * منسية", "عناديل * عندليبات *عندولبون * معاديل", "جحش*حمير * حرو* محمر", "القدس*عمان* تل ابيب * رام الله"}
    


بحيث كل عنصر من الاجابات فيه اربعة عناصر بينها علامة * وهي التي سنقسم بها العنصر هذا الى مصفوفة من اربع باستعمال الدالة 

PHP كود :

Split("*") 


كيف يتم الاستدعاء العشوائي ؟
اولا سنسخ العنصر هذه في   ArrayList لماذا ؟ ببساطة لكي يتم حذف العنصر بعد استخدامه وهذا من خلال الكود التالي

PHP كود :

 For Each item As String In Qus
            Questions.Add(item)
        Next

        For Each item As String In Rep
            Reponses.Add(item)
        Next 


الان سننشء دالة sub  من اجل استدعاء عشوائي للسؤال و ضمان عدم تكرراه وهذا من خلال انشاء عدد عشوائي من البداية 0 الى حد المصفوفة و ليس الى رقم معين لانه حين التناقص لا نريد ان يتعطل البرنامج 

PHP كود :

Dim Nran As New Random
   


الان في دالة توليد الاسئلة سنكتب التالي"

PHP كود :

 ' اختيار عشواي للاسئلة*-
        Dim Nq = Nran.Next(0, Questions.Count)
        RichTextBox1.Text = Questions(Nq)
        Questions.RemoveAt(Nq)

        ' تقسيم الاجابات على الخاناات الارابع
        Rarr = Reponses(Nq).ToString.Split("*")
        LabA.Text = Rarr(0)
        LabB.Text = Rarr(1)
        LabC.Text = Rarr(2)
        LabD.Text = Rarr(3)
        Reponses.RemoveAt(Nq) 


لما يختار رقم عشوائي  سياخد العنصر من مصوفة الاسئلة و يضعه في  richtext  و يحذف العنصر من المصفوفة
الان سنقوم باخد ترتيب العنصر من مصفوفة الاجابات  و نقوم بتقسيمه الى اربع عناصر كل عنصر في ليبال

الان ........ دائما الاجابة الصحية هي في الزر 1 .......... و هذا لتجنب دالة if  يعني كود الصح  دائما في الزر 1  اما البقية 2.3.4 دائما خطا مهما كان النص
اللقطة اذن كيف ؟
نغير موقع الازرار ...........
كبف العمل ؟

يتبع........