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

الان في زر الجمهور 
نزرع كود اظهر فورم جديد و اخفاء الور بعدها

PHP كود :

 Me.TopMost = True
        Form2.Show()
        Pict50.Visible = False 


وهو ما يتطلب منا انشاء فورروم جديد يظهر كديالوخ 
فيه اربع صور بعة اعمدة الاطول للجواب الصح 



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

PHP كود :

Label1.Text = Form1.LabA.Text
        Label2.Text = Form1.LabB.Text
        Label3.Text = Form1.LabC.Text
        Label4.Text = Form1.LabD.Text 


نشغل موسيى التفكير

PHP كود :

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


الان سنحفظ اسماء الصور و الليبالات و موقعها 

PHP كود :

Pic2Arry = {PictureBox1, PictureBox2, PictureBox3, PictureBox4}
        Labpos = {Label1, Label2, Label3, Label4}
        ' موقع الصور
        PicLoc.Add(PictureBox1.Location)
        PicLoc.Add(PictureBox2.Location)
        PicLoc.Add(PictureBox3.Location)
        PicLoc.Add(PictureBox4.Location)
        ' موقغ الليبال   
        LabLoc.Add(Label1.Location)
        LabLoc.Add(Label2.Location)
        LabLoc.Add(Label3.Location)
        LabLoc.Add(Label4.Location) 


الان نفس العمل سنغير موقعها عشوائيا

PHP كود :

For i = 0 To 3
            Dim p = rand.Next(0, PicLoc.Count)
            Pic2Arry(i).Location = PicLoc(p)
            Labpos(i).Location = LabLoc(p)
            PicLoc.RemoveAt(p)
            LabLoc.RemoveAt(p)
        Next 


و نجعل الفورم 2 هو في الاعلى 

PHP كود :

 Me.TopMost = True 


الان سنجعل الاطوال تزيد تدريجيا لذلك نشغل تايمر و نضع فيه 

PHP كود :

Hg += 10
        PictureBox1.Size = New Size(30, Hg + 35)
        PictureBox2.Size = New Size(30, Hg + 10)
        PictureBox3.Size = New Size(30, Hg + 5)
        PictureBox4.Size = New Size(30, Hg)
        If Hg >= 150 Then
            TimProg.Stop()
        End If 


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

---

للنهاية

سنعلن عن المتغيرات في الكود العام 

PHP كود :

 Dim Nqus As Integer = 0
    Dim Qus(), Rep(), Rarr() As String
    Dim Questions, Reponses, LabPos, picPos, TxtBox As New ArrayList
    Dim Nran As New Random
    Dim Start, ref As Integer
    Dim PicArry() As PictureBox
    Dim LabName() As Label
    Dim jab As Boolean = False