0) + 1
'Dim obj_Form10_Контроль_Яркость_Уменьшить As New Form10_Контроль_Яркость
' obj_Form10_Контроль_Яркость_Уменьшить.Show()_Form10_Контроль_Яркость_Уменьшить.Show()
Me.Hide () () SubIf
Dim obj_Form11_Контроль_Контраст As New Form11_Контроль_Контраст
'Контраст (eX> 380) And (eX <398) And (eY> 449) And (eY <459) Then +=1 («Мабуть») _zadania=Nomer_zadania + 1
d (1)=d (1) + 1
'Dim obj_Form11_Контроль_Контраст As New Form11_Контроль_Контраст
' obj_Form11_Контроль_Контраст.Show()_Form11_Контроль_Контраст.Show()
Me.Hide () () SubIf
Dim obj_Form12_Контроль_Яркость_2_способ As New Form12_Яркость_2_способ
'Яркость_2_способ (eX> 175) And (eX <195) And (eY> 380) And (eY <395) Then +=1 («Мабуть») _zadania=Nomer_zadania + 1
d (2)=d (2) + 1
'Dim obj_Form12_Контроль_Яркость_2_способ As New Form12_Яркость_2_способ
' obj_Form12_Контроль_Яркость_2_способ.Show()_Form12_Контроль_Яркость_2_способ.Show()
Me.Hide () () SubIf
'Контраст_2_способ (eX> 380) And (eX <398) And (eY> 449) And (eY <459) Then +=1 («Мабуть») _zadania=Nomer_zadania + 1
d (3)=d (3) + 1
'Dim obj_Form12_Контроль_Яркость_2_способ As New Form12_Яркость_2_способ
' obj_Form12_Контроль_Яркость_2_способ.Show()_Form12_Контроль_Яркость_2_способ.Show()
Me.Hide () () SubIf («Невірно») () SubSub Vopros ()
'вибираємо питання випадковим образомd (0)>=1 And d (1)>=1 And d (2)>=1 And d (3)>=1 Then Exit Sub ()
i=Int (4 * Rnd ())
'перевіряємо скільки раз було поставлено питання, якщо менше ніж потрібно - беремо його, інакше - заново
If d (i)>=1 Then Vopros ()
'виводимо вопрос.Text=CStr (R (i)) Sub
Sub Label3_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click.Hide () obj_Form2_Главная_форма As New Form2_Главная_форма
obj_Form2_Главная_форма.Show ()
End SubSub Form7_Контроль_Load (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadNomer_zadania>=4 Then («Ваша середня оцінка за 4 завдання» + Format (Obshaa_osenka / 4, « # 0.0 »)) If () SubSub Form7_Контроль_Activated (ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.ActivatedNomer_zadania>=4 Then.Hide ()
Dim obj_Form2_Главная_форма As New Form2_Главная_форма_Form2_Главная_форма.Show ()
End IfSubClass
Class Form10_Контроль_ЯркостьSystem.Windows.Forms.FormSub PictureBox1_MouseUp (ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
'Меню (eX> 280) And (eX <310) And (eY> 415) And (eY <460) Then.Visible=True.Visible=False
Exit SubIf («Невірно» + vbCrLf + «Пройдіть режим демонстрація»)
Me.Hide () _osenka=Obshaa_osenka + 0obj_Form7_Контроль As New Form7_Контроль_Form7_Контроль.Show () SubSub PictureBox2_MouseUp (ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseUpobj_Form7_Контроль As New Form7_Контроль
'Вибір яскравості (eX> 290) And (eX <325) And (eY> 180) And (eY <240) Then.Visible=True.Visible=FalseSubIf («Невірно» + vbCrLf + «ваша оцінка 1» + vbCrLf + «Пройдіть режим демонстрація»). Hide () _osenka=Obshaa_osenka + 1_Form7_Контроль.Show () SubSub PictureBox3_MouseUp (ByVal sender As System.Object, ByVal e As System.Win...
