Скриншоты формы в рабочем состоянии и результатов работы программы

Разработка и написание программного кода, отвечающего за обработку событий, которые происходят с формой и ее элементами управления.

Математическая модель решения задачи

Функциональные и структурные тесты

№ теста	Входные данные	Результат
1.	x=1 y=1	Точка принадлежит указанной области!
2.	x=1 y=7	Точка не принадлежит указанной области!

Вводим координаты x и y с помощью TextBox1 и TextBox2. Нажимаем кнопку «Решить» проверяется условие, если ((x >= 0) и (x <= 4) и (y <= 2) и (y >= -2)) или ((x >= -4) и (x <= 0) и (y >= -4) и (y <= 5)), тогда с помощью Label6 выводится сообщение «Точка принадлежит указанной области!». Иначе, если это условие не выполняется «Точка не принадлежит указанной области!». Выводим на экран картинку Image1.

Объявление глобальных переменных:

Dim x, y As Double

Код обработки события Ввод переменных элемента управления TextBox1 и TextBox2:

Sub T()

x = Val(TextBox1.Text)

y = Val(TextBox2.Text)

End Sub

Код обработки события Закрыть элемента управления CommandButton1:

Private Sub CommandButton1_Click()

Unload Me

End Sub

Код обработки события Решить элемента управления CommandButton2:

Private Sub CommandButton2_Click()

Call T

If ((x >= 0) And (x <= 4) And (y <= 2) And (y >= -2)) Or ((x >= -4) And (x <= 0) And (y >= -4) And (y <= 5)) Then

lbl_Res.Caption = "Точка принадлежит указанной области!"

Else

lbl_Res.Caption = "Точка не принадлежит указанной области!"

End If

End Sub

Дата добавления: 2015-06-27