tArgs) Handles PictureBox6.MouseUpobj_Form7_Контроль As New Form7_Контроль
'Параметри (eX> 460) And (eX <488) And (eY> 120) And (eY <140) Then.Visible=True.Visible=FalseSubIf («Невірно» + vbCrLf + « ; ваша оцінка 2 »+ vbCrLf +« Пройдіть режим демонстрація »). Hide () _osenka=Obshaa_osenka + 0.5_Form7_Контроль.Show () SubSub PictureBox7_MouseUp (ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseUpobj_Form7_Контроль As New Form7_Контроль
'Додатково (eX> 500) And (eX <570) And (eY> 445) And (eY <475) Then.Visible=True.Visible=FalseSubIf («Невірно» + vbCrLf + « ; ваша оцінка 2.5 »+ vbCrLf +« Пройдіть режим демонстрація »). Hide () _osenka=Obshaa_osenka + 0.5_Form7_Контроль.Show () SubSub PictureBox8_MouseUp (ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs ) Handles PictureBox8.MouseUpobj_Form7_Контроль As New Form7_Контроль
'Колір (eX> 210) And (eX <265) And (eY> 100) And (eY <150) Then.Visible=True.Visible=FalseSubIf («Невірно» + vbCrLf + « ; ваша оцінка 3 »+ vbCrLf +« Пройдіть режим демонстрація »). Hide () _osenka=Obshaa_osenka + 0.5_Form7_Контроль.Show () SubSub PictureBox9_MouseUp (ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox9.MouseUpobj_Form7_Контроль As New Form7_Контроль
'Вибір Яскравості (eX> 380) And (eX <440) And (eY> 280) And (eY <360) Then.Visible=True Or PictureBox11.Visible=True.Visible=False (« ; Ви впоралися із завданням »+ vbCrLf +« Ваша оцінка 5 ») _osenka=Obshaa_osenka + 5.Hide () _Form7_Контроль.Show () Sub
MsgBox ("Ви впоралися із завданням» + vbCrLf + «Ваша оцінка 5»)
End If
'Вибір Контрасту (eX> 380) And (eX <440) And (eY> 340) And (eY <390) Then.Visible=True.Visible=False
MsgBox ("Ви впоралися із завданням» + vbCrLf + «Ваша оцінка 5»)
Obshaa_osenka=Obshaa_osenka + 5.Hide () _Form7_Контроль.Show () Sub
MsgBox ("Ви впоралися із завданням» + vbCrLf + «Ваша оцінка 5») If («Невірно» + vbCrLf + «ваша оцінка 3» + vbCrLf + «Пройдіть режим демонстрація»)
Me.Hide () _osenka=Obshaa_osenka + 3_Form7_Контроль.Show () Sub
End Class
Public Class Form9_About
System.Windows.Forms.Form
Sub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickobj_Form9_Результат As New Form9_Результат_Form9_Результат.Label1.Visible=True_Form9_Результат.Label2.Visible=False_Form9_Результат.Label3.Visible=False_Form9_Результат.Show () Sub
Sub Button2_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Clickobj_Form9_Результат As New Form9_Результат_Form9_Результат.Label1.Visible=False_Form9_Результат.Label2.Visible=True_Form9_Результат.Label3.Visible=False_Form9_Результат.Show () Sub
Sub Button3_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Clickobj_Form9_Результат As New Form9_Результат_Form9_Результат.Label1.Visible=False_Form9_Результат.Label2.Visible=False_Form9_Результат.Label3.Visible=True_Form9_Результат.Show () SubSub 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 SubClass
