Dim Arryallumet, arryallumetdelet, CaseProg As PictureBox()
Dim Acp, Acm As Integer()
Dim Problems(15) As String
Dim Reponse, NumbeProblem, AllumD, SommeCp, SommeCm, clic, score, cgrand As Integer
Dim joib As Boolean
' allumet
Arryallumet = {PictureBox7, PictureBox8, PictureBox9, PictureBox10, PictureBox11,
PictureBox12, PictureBox13, PictureBox14, PictureBox15, PictureBox16,
PictureBox17, PictureBox18, PictureBox19, PictureBox20, PictureBox21,
PictureBox22, PictureBox23, PictureBox24, PictureBox25, PictureBox26,
PictureBox27, PictureBox28, PictureBox29, PictureBox30}
' allumet delet
arryallumetdelet = {PictureBox2, PictureBox3, PictureBox4, PictureBox5, PictureBox6}
' activite corect
CaseProg = {PictureBox31, PictureBox32, PictureBox33, PictureBox34, PictureBox35,
PictureBox36, PictureBox37, PictureBox38, PictureBox39, PictureBox40,
PictureBox41, PictureBox42, PictureBox43, PictureBox44, PictureBox45, PictureBox46}
' exercices
Problems = {"احذف عودين لتحصل على 8 مريعات صغار",
"احذف عودين لتحصل على 6 مربعات صغار و مربع كبير و 2 مربعين متوسطين",
"احذف عودين لتحصل على 6 مربعات صغار و مربع كبير فقط",
"احذف عودين لتحصل على 7 مربعات صغار",
"احذف 3 عيدان لتحصل على مربع كبير و 5 مربعات صغار",
"احذف 3 عيدان لتحصل على 5 مربعات صغار و مربع متوسط و مربع كبير",
"احذف 3 عيدان لتحصل على 6 مربعات صغار",
"احذف 4 عيدان لتحصل على 7 مربعات صغار و مربعين متوسطين",
"احذف 4 عيدان لتحصل على مربع كبيرو 3 مربعات صغار",
"احذف 4 عيدان لتحصل على 4 مربعات صغار و مربع كبير",
"احذف 4 عيدان لتحصل على مربع كبير و مربع متوسط و 4 مربعات صغار",
"احذف 4 عيدان لتحصل على مربع كبيرو مربع متوسط و 5 مربعات صغار",
"احذف 4 عيدان لتحصل على 5 مربعات صغار فقط",
"احذف 5 عيدان لتحصل على مربع كبيرو 3 مربعات صغار",
"احذف 5 عيدان لتحصل على مربع كبير و 4 مربعات صغار",
"احذف 5 عيدان لتحصل على 5 مربعات صغار و مربعين متوسطين",
"يمكنك اعادة التمارين من جديد"
}
Acp = {1, 1, 1, 1, 1, 1, 1, 1, 1}
Acm = {1, 1, 1, 1}
cgrand = 1
Sub Questions()
Acp = {1, 1, 1, 1, 1, 1, 1, 1, 1}
Acm = {1, 1, 1, 1}
cgrand = 1
''''''''''''''''''''''
'''''''''''''''''''
clic = 0
AllumD = 0
SommeCm = 0
SommeCp = 0
For i = 0 To 23
Arryallumet(i).Visible = True
Next
For i = 0 To 4
arryallumetdelet(i).Visible = False
Next
RichTextBox1.Text = Problems(NumbeProblem)
NumbeProblem += 1
Labelques.Text = " الوضعية رقم " & NumbeProblem
RichTextBox1.SelectionAlignment = 2
End Sub
Acp(0) = 0
Acm(0) = 0
cgrand = 0
clic += 1
PictureBox7.Visible = False
arryallumetdelet(AllumD).Visible = True
AllumD += 1
verfication()
SommeCp = 0
SommeCm = 0
For i = 0 To 8
SommeCp = SommeCp + Acp(i)
Next
For i = 0 To 3
SommeCm = SommeCm + Acm(i)
Next
إقتباس :"احذف عودين لتحصل على 8 مريعات صغار",
"احذف عودين لتحصل على 6 مربعات صغار و مربع كبير و 2 مربعين متوسطين",
"احذف عودين لتحصل على 6 مربعات صغار و مربع كبير فقط",
"احذف عودين لتحصل على 7 مربعات صغار",
Sub verfication()
SommeCp = 0
SommeCm = 0
For i = 0 To 8
SommeCp = SommeCp + Acp(i)
Next
For i = 0 To 3
SommeCm = SommeCm + Acm(i)
Next
' تحريك عودين
If clic = 2 And NumbeProblem < 5 Then
' الثانية الثالثة الرابعة الوضعية الاولى
If NumbeProblem = 1 And SommeCp = 8 _
Or NumbeProblem = 2 And SommeCp = 6 And SommeCm = 2 And cgrand = 1 _
Or NumbeProblem = 3 And SommeCp = 6 And cgrand = 1 _
Or NumbeProblem = 4 And SommeCp = 7 Then
joib = True
Else
joib = False
End If
Messag()
' تحريك 3 اعواد
ElseIf clic = 3 And NumbeProblem > 4 And NumbeProblem < 8 Then
' الوضعية 5-6-7
If NumbeProblem = 5 And SommeCp = 7 And cgrand = 1 _
Or NumbeProblem = 6 And SommeCp = 5 And SommeCm = 1 And cgrand = 1 _
Or NumbeProblem = 7 And SommeCp = 6 Then
joib = True
Else
joib = False
End If
Messag()
' تحريك 4 اعواد
ElseIf clic = 4 And NumbeProblem > 7 And NumbeProblem < 13 Then
' الوضعية -11-12 8-9-10
If NumbeProblem = 8 And SommeCp = 7 And SommeCm = 2 _
Or NumbeProblem = 9 And SommeCp = 3 And cgrand = 1 _
Or NumbeProblem = 10 And SommeCp = 4 And cgrand = 1 _
Or NumbeProblem = 10 And SommeCp = 4 And SommeCm = 1 And cgrand = 1 _
Or NumbeProblem = 11 And SommeCp = 5 And SommeCm = 1 And cgrand = 1 _
Or NumbeProblem = 12 And SommeCp = 5 Then
joib = True
Else
joib = False
End If
Messag()
' تحريك 5 اعواد
ElseIf clic = 5 And NumbeProblem > 12 Then
' الوضعية 13-14-15
If NumbeProblem = 13 And SommeCp = 3 And cgrand = 1 _
Or NumbeProblem = 14 And SommeCp = 1 And cgrand = 1 _
Or NumbeProblem = 15 And SommeCp = 5 And SommeCm = 2 Then
joib = True
Else
joib = False
End If
Messag()
End If
If NumbeProblem = 17 Then
MessageBox.Show("شكرا على تفاعلك مع اللعبة ممكن تعيد من جديد", "عبد الهادي بهاب")
restart()
End If
End Sub
Sub Messag()
If joib = True Then
score += 1
Labscore.Text = score
MessageBox.Show("جميل جدا تابع تقدمك", "عبد الهادي بهاب")
CaseProg(NumbeProblem - 1).Image = My.Resources.yes
Else
MessageBox.Show("بقي في الشكل" & vbNewLine & SommeCp & " مربعات صغيرة " & vbNewLine & SommeCm & " مربعات متوسطة " & vbNewLine & cgrand & " مربع كبير ", " للاسف لقد اخطات اعد من جديد ", MessageBoxButtons.OK, MessageBoxIcon.Information)
CaseProg(NumbeProblem - 1).Image = My.Resources.no
End If
Questions()
End Sub
Sub restart()
NumbeProblem = 0
For i = 0 To 16
CaseProg(i).BackColor = Color.Yellow
CaseProg(i).Image = Nothing
Next
Questions()
End Sub