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

الان سنشغل موسيقى خلال التفكير في دالة توليد الاسئلة و ايضا نوسط السؤال في richbox
----- تحية طيبة للاخ بلدي ----------

PHP كود :

 My.Computer.Audio.Play(My.Resources.ref, AudioPlayMode.Background)
        RichTextBox1.SelectionAlignment = HorizontalAlignment.Center 


لما تظهر الاسئلة  سيقوم المستخدم باختيار اجابة معينة 
لما يضغط عليها منها ستبدا تغير لونها لذلك سنلجا الى تايمر  من اجل ذلك
سنعرف متغير start =0  ليبدا اضافة 1 في التايمر 
اولا كي لا نكرر تايمر لكل اجابة  سنعرف متغير ref  لما يضغط على الزر الاول سيكون رقمه 0 و هو رقمه في مصفوفة الاسماء التي عرفهناها في load
و التايمر سيغل العنر المراد و يغير لونه عشر مرات مثلا 
ثم بعد 1 مرات  سيصحح لذلك سنعرف متغير جديد jab و هي من صيغة صح  او خطا Boolean  
الزر الاول سيكون true اما البقية false

 في الليبال الاول و الصورة الاولى 

PHP كود :

Timer1.Start()
        ref = 0
        Start = 1
        jab = True 


في الليبال الثاني و الصورة الثانية 

PHP كود :

Timer1.Start()
        ref = 1
        Start = 1
        jab = False 


في الليبال الثالث و الصورة الثالثة 

PHP كود :

 Timer1.Start()
        ref = 3
        Start = 1
        jab = False 


في الليبال الرابع و الصورة الرابعة

PHP كود :

Timer1.Start()
        ref = 2
        Start = 1
        jab = False 


الان في التايمر سيشغل تايمر 2 من اجل تغيير اللون يعني التايمر الاول يعطيها اللون الاخضر Color.Green و التايمر  يعطيها اللون Color.GreenYellow
بعد 10 مرات 
نوقف التايمر 1 و 2  و نحدد الجواب الصح و الخطا 
لما يكون الصح  نشغل صوت الصح و في ليسبوكس سنحدد القيمة الاولى من الاسفل
هناك قيمة Nqus رقم السؤال الذي سيزيد كلما فعلنا دالة التوليد    
و نشغل تايمر الانتظار وهي مدة التصفيق .الخ  و بعدها سنفعل السؤال التالي اي تغيل الدالة 
لذلك سيكون التحديد كالتالي

PHP كود :

My.Computer.Audio.Play(My.Resources.sah, AudioPlayMode.Background)
                ListBox1.SelectedIndex = 15 - Nqus
                TimerRusit.Start() 


اما في حالة الخطا jab=false
و لان البرنامج لا يقبل الاعادة اي ان الخطا قاتل
 سنشغل موسيقى الخطا  سنظهر له شهادة شرفية 



في الفراغ في المبلغ  سنضيف ليبال بعد ان نظهره و نضع فيه مكان التحديد في اليسبوكس

PHP كود :

LabSomme.Text = ListBox1.Text
LabSomme.Visible = True 


حتى لا نلجا الى انشاء فورم جديد و و و و .......... الصورة اللوغو هي التي سنتعامل معها بتغيير حجمها و موقعها و محتواها

PHP كود :

PicLogo.Image = My.Resources.felictation
                PicLogo.Location = New Point(30, 20)
                PicLogo.Size = New Size(935, 450) 


الان ستبقى الشهادة لمدة معينة مما يتطلب تايمر جديد وهو الذي سيعيدنا الى المرحلة الاولى 
اي الاعادة من جديد 

و بالتالي الكود الاجمالي للتايمر 1 هو 

PHP كود :

 PicArry(ref).BackColor = Color.Green
        LabName(ref).BackColor = Color.Green
        Start += 1
        Timer1.Stop()
        Timer2.Start()
        If Start >= 10 Then
            Timer1.Stop()
            Timer2.Stop()
            ' في حالة الصح
            If jab = True Then
                My.Computer.Audio.Play(My.Resources.sah, AudioPlayMode.Background)
                ListBox1.SelectedIndex = 15 - Nqus
                TimerRusit.Start()
                'حالة الخطأ في 
            ElseIf jab = False Then
                PicArry(ref).BackColor = Color.OrangeRed
                LabName(ref).BackColor = Color.OrangeRed
                My.Computer.Audio.Play(My.Resources.no1, AudioPlayMode.Background)
                PicLogo.Image = My.Resources.felictation
                PicLogo.Location = New Point(30, 20)
                PicLogo.Size = New Size(935, 450)
                LabSomme.Text = ListBox1.Text
                LabSomme.Visible = True
                Timerfin.Start()
            End If
        End If 


 و التايمر 2

PHP كود :

PicArry(ref).BackColor = Color.GreenYellow
        LabName(ref).BackColor = Color.GreenYellow
        Start += 1
        Timer2.Stop()
        Timer1.Start() 


 و تايمر النهائي او الاعادة  سيعيد كل شيء الى 0 

PHP كود :

PicLogo.Visible = False
        LabSomme.Visible = False
        Nqus = 0
        LabA.Text = ""
        LabB.Text = ""
        LabC.Text = ""
        LabD.Text = ""
        RichTextBox1.Text = ""
        ListBox1.SelectedIndex = 15
        PicArry = {PictureBox1, PictureBox2, PictureBox3, PictureBox4}
        LabName = {LabA, LabB, LabC, LabD}
        For i = 0 To 3
            LabName(i).BackColor = Color.Black
            PicArry(i).BackColor = Color.Black
        Next
       
        Timerfin.Stop()

        Form1_Load(e, e)
       
        TimerSatrt.Start() 


---

مع ارار المساعدة

مع زرحذف اجابتين 



يكفي ان نخفي الصورة 2 و 3 مع النص 2 و 3 و تغيل موسيقى 

PHP كود :

 My.Computer.Audio.Play(My.Resources.DRUMROLL, AudioPlayMode.Background)

        LabB.Visible = False
        LabC.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = False
        Pictjomhr.Visible = False 


---

مع زر الاتصال بصديق



 سنشغل صوت الاتصال
و نغير صورة اللوغو الى صورة اتصال هاتفي



ثم  نشغل تايمر الاتصال  الذي سيظهر رسالة تظهر فيه نص اليبال الاول 

لذلط في زر الاتصال بصديق نزرع التالي 

PHP كود :

PicLogo.Image = My.Resources.dring
        PicLogo.Location = New Point(290, 80)
        PicLogo.Size = New Size(301, 177)
        My.Computer.Audio.Play(My.Resources.tel, AudioPlayMode.Background)
        TimerTel.Start()
        PictTel.Visible = False 


سنخفي الزر مباشرة بعد الضغط 

في التايمر الخص بالاتصال

PHP كود :

TimerTel.Stop()
        MessageBox.Show("  الصديق ينصح بالجواب التالي   " & vbNewLine & LabA.Text, "الاتصال بصديق")
        imgLogo() 


سظيهر رسالة ثم يعيد اللوغو الى مكانه