Пример выполнения индивидуального задания

Задание на разработку проекта. Создать проект для решения следующей задачи:

Создать класс для определения расстояния между двумя точками плоскости заданными своими координатами. Ввести координаты треугольника и рассчитать его периметр.

Решение

1. Создать новый проект.

2. Создать графический интерфейс пользователя.

3. Установить свойства элементов управления.

4. Создать базовый класс.

5. Написать программный код.

6. Запустить Visual Basic 2010 и получить результаты.

7. Выполнить анализ результатов.

Для решения задачи надо найти длины всех сторон треугольника, используя формулу определения расстояния d между двумя точками плоскости и :

Для этого создадим класс distanceClass со свойством d1, которое будем использовать для передачи длины каждой стороны в программу, и методом length (), реализующим указанную формулу.

Создадим для класса distanceClass объект с именем distance. Чтобы обратиться к свойствам класса, надо указать имя объекта и через точку – имя свойства, т.е. distance.dl. Для обращения к методу класса с именем length надо также указать имя объекта и через точку – имя метода с перечисление всех его параметров, заключённые в круглые скобки: distance.length(x1,y1,x2,y2). Для разработки проекта нужно нажать кнопку File вменю и New Project, а за тем выбрать Windows From Appliсation, и присвоить ему имя tab3.

Нажать за тем команду Project и выбрать Add Class (добавить класс). Диалоговое окно Add New Item (добавление нового элемента) предоставляет возможность изменить имя класса по умолчанию. Пусть это новое имя будет distanceCiass.vb; и его надо напечатать в поле имени и нажать кнопку Add (добавить). Visual Studio откроет пустой класс в Редакторе кода. После этого надо объявлять переменную класса

Private d As Single

Переменная d является закрытой, и чтобы получить ее за пределами класса вводиться свойство d1() для передачи значения расстояния в основную программу:

Public Property d1() As String

Get

Return d

End Get

Set(ByVal value As String)

d=value

End Set

End Property

Затем надо написать код метода, позволяющего находить расстояние между точками X(a, b) и Y(a1, b1):

Public Sub Length(ByRef a As Single, ByRef As Single, ByRef al As single, ByRef bl As Single)

End Sub

Блок схема алгоритма для процедуры Sub Button_Click изображена на рисунке 1.

Рисунок 5

При разработке проекта следует использовать графический пользовательский интерфейс, представленный на рисунке 6.

Рисунок 6 – Графический пользовательский интерфейс

В таблице 4 приведены элементы управления, используемые в форме на рисунке 6.

Объект	Свойство	Параметр
Panel	Dock	Вверх
Button1	Text	“Ввод координат вершин треугольника и расчёт его периметра”
Button2	Text	“Выход”
Label1	Text Dock	“x1”
Label2	Text	“y1”
Label3	Text	“x2”
Label4	Text	“y2”
Label5	Text	“x3”
Label6	Text	“y3”
Label7	Text	“периметр=”
Label8	Text	“координаты вершин треугольника”
TextBox1	Multiline Dock	True Right
TextBox2	Multiline	False
TextBox3	Multiline	False
TextBox4	Multiline	False
TextBox5	Multiline	False
TextBox6	Multiline	False
TextBox7	Multiline	False
Form1	Font Text	Лабораторная работа №2. Создание собственного базового класса.

Программы на Visual Basic 2012. Класс distanceClass включает в себя закрытую переменную d, свойства d1() b метод length(). В редакторе кода distanceClass выглядит следующим образом (рисунок 7).

Рисунок 7 – Диалоговое окно редактора кода distanceClass

Программа для элементов управления Button1 и Button2 представлены на рисунке 8.

Рисунок 8 – Диалоговое окно редактора кода Button1 и Button2

Результат работы приложения показан на рисунке

Рисунок 9 – Результаты работы

СОДЕРЖАНИЕ ОТЧЁТА.

8. Название отчёта.

9. Титульный лист.

10. Индивидуальное задание.

11. Запись математической формулы на языке Visual Basic 2012.

12. Форма проекта с элементами управления.

13. Результаты выполнения приложения.

Доказательство правильности работы программы.