Решение задачи с помощью визуальных средств среды Visual Studio 2010

Размещено на http://www.allbest.ru/

Министерство образования и науки Кыргызской Республики

Кыргызский Государственный Технический Университет им. И. Раззакова

Кафедра программного обеспечения компьютерных систем

СПЕЦИАЛЬНОСТЬ:

ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ ВЫЧИСЛИТЕЛЬНОЙ ТЕХНИКИ И АВТОМАТИЗИРОВАННЫХ СИСТЕМ

Учебная группа ПОВТ-1-10

КУРСОВАЯ РАБОТА

По дисциплине «Объектно-ориентированное программирование»

Выполнил: студент группы ПОВТ 1-10

Мамбетов Бекжан

Проверил (а): преп.

Мусабаев Э. Б.

Бишкек 2012



Содержание

Введение

Условие задачи

Постановка задачи

Словесный (пошаговый) алгоритм

Программа на Visual Basic

Тестовые примеры

Заключение

Использованная литература



Введение

Мы живем в мире объектов. Стол, автомобиль, ручка, классная доска - все это объекты. Наряду с физическими существуют так же абстрактные объекты, типичными представителями которых являются числа. Таким образом, объект - это любая физическая или абстрактная четко идентифицируемая сущность. Объект - это общефилософское понятие, которое изучалось философами на протяжении длительного времени.

Объекты характеризуются атрибутами. Так атрибутами автомобиля являются максимальная скорость, мощность двигателя, цвет кузова и т. д. Атрибутами усилителя являются частотный диапазон, выходная мощность, коэффициент нелинейных искажений, уровень шума и т. д.

Помимо атрибутов объекты обладают некоторыми функциональными возможностями, которые в объектно-ориентированном программировании (ООП) называют операциями или методами. Так автомобиль может ездить, корабль - плавать, компьютер - производить вычисления.

Таким образом, объект инкапсулирует атрибуты и методы, скрывая от других объектов взаимодействующих с ним и использующих его функциональность, свою реализацию. Так для того чтобы переключить телевизионную программу нам достаточно на пульте дистанционного управления набрать ее номер, что запустит сложный механизм, который в итоге и приведет к желаемому результату. Нам совершенно не обязательно знать, что происходит в пульте дистанционного управления и телевизоре, нам лишь достаточно знать, что телевизор обладает такой возможностью (методом) и как ее можно активировать. Инкапсуляция или сокрытие реализации является базовым свойством ООП. Она позволяет создавать пользовательские объекты, обладающие требуемыми методами и далее оперировать ими, не вдаваясь в устройство этих объектов.

В данной курсовой работе будет рассмотрено детальное решение задачи, которое будет реализовано с помощью визуальных средств среды Visual Studio 2010, а именно посредством объектно-ориентированного языка Visual Basic. Вначале работы будет поставлено условие задачи, далее следует постановка задачи, метод ее решения, алгоритм, на основе которого будет построена программа, контрольные (тестовые) примеры работы программы и будет сделано заключение о проделанной работе.

Целью данной курсовой работы является углубленное изучение принципов и методологии объектно-ориентированного программирования и ее применение к конкретной задаче. В данном случае предметной областью ее применения является построение геометрических фигур. Задача предполагает максимально эффективное использование необходимых объектов для ее решения.



Условие задачи

Разработать программу для построения изображения фигуры, приведенной на рисунке. Исходные данные (x1, y1,R1, x2, y2, r2, x3, y3, r3) должны быть считаны из выбранного пользователем файла. Осуществлять проверку исходных данных на соответствие варианту (окружности попарно пересекаются, центры окружностей лежат на одной прямой).

Постановка задачи

Программа должна будет считывать данные параметров (координаты центра и радиус) трех окружностей, и по этим данным прорисовать окружности. При этом окружности должны попарно пересекаться, а их центры лежать на одной прямой. При несоответствии вводимых данных условию задачи, программа должна выводить соответствующее сообщение.



Исходные данные:

X1, Y1 - координаты центра Окружности 1

R1 - радиус Окружности 1

X2, Y2 - координаты центра Окружности 2

R2 - радиус Окружности 2

X3, Y3 - координаты центра Окружности 3

R3 - радиус Окружности 3

События на нажатие кнопок:

«Рассчитывать и нарисовать» - прорисовка рисунка (выполнить). Кнопка, нажатием на которую мы получим рисунок на экране.

«Очистить» - очистить все данные, в том числе и область рисунка. Кнопка, аналогичная предыдущей, но при этом очищаются все введенные пользователем данные.

«Выход» - выход из приложения. Кнопка, нажав которую нас спросят об уточнении выхода из приложения.

Используемые функции:

CreateGraphics - метод, с помощью которой создаются все графические объекты

DrawEllipse(Pen, x1, y1, R1, R1) - функция создания окружности (эллипса)

Clear() - очистка данных элемента управления TextBox

Используемые элементы управления:

TextBox - поле ввода

PictureBox - область картинки (изображения)

Button - кнопка

Label - надпись

Результат:

Словесный (пошаговый) алгоритм

Запуская программу в первую очередь, мы вводим данные, т.е. координаты центра и радиус каждой окружности соответственно. После ввода параметров, математический алгоритм представленный ниже, в основе которого все три окружности должны лежать на одной прямой и попарно пересекаться, проверяет корректный ввод данных, что осуществляется средствами программы. Если как такого не происходит, то, нажав на кнопку выполнения, т.е. «Рассчитать и нарисовать» программа выдает сообщение, либо об ошибках ввода, либо о несоответствии параметров алгоритму. Если все выполнено верно, то окружности прорисовываются. Далее, по желанию пользователя, можно очистить все поля ввода кнопкой «Очистить», в том числе и область отображения рисунка. Ну и нажатием на кнопку «Выход» программа спросит нас об уточнении закрытия приложения.

Алгоритм:

1. Условие положения центров окружностей на одной прямой

Центры окружностей будут лежать на одной прямой тогда, когда их координаты удовлетворяют соотношению:

Y1-X1=Y2-X2=Y3-X3, т.е. когда разность координат соответствующих центров каждой окружности равна одному и тому же постоянному числу

2. Условие попарного пересечения окружностей

Все три окружности будут попарно пересекаться тогда, когда их радиусы соответствуют соотношению:

X1<R1<Y1, X2<R2<Y2, X3<R3<Y3, т.е. когда радиус каждой окружности больше координаты в оси абсцисс, но меньше координаты в оси ординат

Таким образом, если выполняются вышеизложенные условия, то программа сработает правильно и прорисует фигуры.

Программа на Visual Basic. Public Class Form1

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim result As DialogResult

result = MessageBox.Show("Are you sure to close application?", _

"Application closing", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If result = DialogResult.Yes Then

Application.Exit()

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

PictureBox1.Refresh()

TextBox1.Clear()

TextBox2.Clear()

TextBox3.Clear()

TextBox4.Clear()

TextBox5.Clear()

TextBox6.Clear()

TextBox7.Clear()

TextBox8.Clear()

TextBox9.Clear()

End Sub

Private Sub БелыйToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles БелыйToolStripMenuItem.Click

Me.BackColor = Color.White

End Sub

Private Sub СинийToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СинийToolStripMenuItem.Click

Me.BackColor = Color.Blue

End Sub

Private Sub КрасныйToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles КрасныйToolStripMenuItem.Click

Me.BackColor = Color.Red

End Sub

Private Sub ЖелтыйToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ЖелтыйToolStripMenuItem.Click

Me.BackColor = Color.Yellow

End Sub

Private Sub ЗелёныйToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ЗелёныйToolStripMenuItem.Click

Me.BackColor = Color.ForestGreen

End Sub

Private Sub ПрозрачныйToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПрозрачныйToolStripMenuItem.Click

End Sub

Private Sub СерыйToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СерыйToolStripMenuItem.Click

Me.BackColor = Color.Gray

End Sub

Private Sub ЗолотойToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ЗолотойToolStripMenuItem.Click

Me.BackColor = Color.Gold

End Sub

Private Sub СеребряныйToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СеребряныйToolStripMenuItem.Click

Me.BackColor = Color.Silver

End Sub

Private Sub БронзовыйToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles БронзовыйToolStripMenuItem.Click

Me.BackColor = Color.SandyBrown

End Sub

Private Sub ЗелёныйToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ЗелёныйToolStripMenuItem1.Click

TextBox1.BackColor = Color.ForestGreen

TextBox2.BackColor = Color.ForestGreen

TextBox3.BackColor = Color.ForestGreen

TextBox4.BackColor = Color.ForestGreen

TextBox5.BackColor = Color.ForestGreen

TextBox6.BackColor = Color.ForestGreen

TextBox7.BackColor = Color.ForestGreen

TextBox8.BackColor = Color.ForestGreen

TextBox9.BackColor = Color.ForestGreen

End Sub

Private Sub ЖёлтыйToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ЖёлтыйToolStripMenuItem.Click

TextBox1.BackColor = Color.Yellow

TextBox2.BackColor = Color.Yellow

TextBox3.BackColor = Color.Yellow

TextBox4.BackColor = Color.Yellow

TextBox5.BackColor = Color.Yellow

TextBox6.BackColor = Color.Yellow

TextBox7.BackColor = Color.Yellow

TextBox8.BackColor = Color.Yellow

TextBox9.BackColor = Color.Yellow

End Sub

Private Sub КрасныйToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles КрасныйToolStripMenuItem1.Click

TextBox1.BackColor = Color.Red

TextBox2.BackColor = Color.Red

TextBox3.BackColor = Color.Red

TextBox4.BackColor = Color.Red

TextBox5.BackColor = Color.Red

TextBox6.BackColor = Color.Red

TextBox7.BackColor = Color.Red

TextBox8.BackColor = Color.Red

TextBox9.BackColor = Color.Red

End Sub

Private Sub СинийToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СинийToolStripMenuItem1.Click

TextBox1.BackColor = Color.Blue

TextBox2.BackColor = Color.Blue

TextBox3.BackColor = Color.Blue

TextBox4.BackColor = Color.Blue

TextBox5.BackColor = Color.Blue

TextBox6.BackColor = Color.Blue

TextBox7.BackColor = Color.Blue

TextBox8.BackColor = Color.Blue

TextBox9.BackColor = Color.Blue

End Sub

Private Sub ЧёрныйToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ЧёрныйToolStripMenuItem.Click

Label1.BackColor = Color.Black

Label2.BackColor = Color.Black

Label3.BackColor = Color.Black

Label4.BackColor = Color.Black

Label5.BackColor = Color.Black

Label6.BackColor = Color.Black

Label7.BackColor = Color.Black

Label8.BackColor = Color.Black

Label9.BackColor = Color.Black

Label10.BackColor = Color.Black

Label11.BackColor = Color.Black

Label12.BackColor = Color.Black

End Sub

Private Sub КрасныйToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles КрасныйToolStripMenuItem2.Click

Label1.BackColor = Color.Magenta

Label2.BackColor = Color.Magenta

Label3.BackColor = Color.Magenta

Label4.BackColor = Color.Magenta

Label5.BackColor = Color.Magenta

Label6.BackColor = Color.Magenta

Label7.BackColor = Color.Magenta

Label8.BackColor = Color.Magenta

Label9.BackColor = Color.Magenta

Label10.BackColor = Color.Magenta

Label11.BackColor = Color.Magenta

Label12.BackColor = Color.Magenta

End Sub

Private Sub ЖелтыйToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ЖелтыйToolStripMenuItem1.Click

Label1.BackColor = Color.Yellow

Label2.BackColor = Color.Yellow

Label3.BackColor = Color.Yellow

Label4.BackColor = Color.Yellow

Label5.BackColor = Color.Yellow

Label6.BackColor = Color.Yellow

Label7.BackColor = Color.Yellow

Label8.BackColor = Color.Yellow

Label9.BackColor = Color.Yellow

Label10.BackColor = Color.Yellow

Label11.BackColor = Color.Yellow

Label12.BackColor = Color.Yellow

End Sub

Private Sub СинийToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СинийToolStripMenuItem2.Click

Label1.BackColor = Color.Aqua

Label2.BackColor = Color.Aqua

Label3.BackColor = Color.Aqua

Label4.BackColor = Color.Aqua

Label5.BackColor = Color.Aqua

Label6.BackColor = Color.Aqua

Label7.BackColor = Color.Aqua

Label8.BackColor = Color.Aqua

Label9.BackColor = Color.Aqua

Label10.BackColor = Color.Aqua

Label11.BackColor = Color.Aqua

Label12.BackColor = Color.Aqua

End Sub

Private Sub ОранжевыйToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОранжевыйToolStripMenuItem.Click

Label1.BackColor = Color.Orange

Label2.BackColor = Color.Orange

Label3.BackColor = Color.Orange

Label4.BackColor = Color.Orange

Label5.BackColor = Color.Orange

Label6.BackColor = Color.Orange

Label7.BackColor = Color.Orange

Label8.BackColor = Color.Orange

Label9.BackColor = Color.Orange

Label10.BackColor = Color.Orange

Label11.BackColor = Color.Orange

Label12.BackColor = Color.Orange

End Sub

Private Sub ЗелёныйToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ЗелёныйToolStripMenuItem2.Click

Label1.BackColor = Color.ForestGreen

Label2.BackColor = Color.ForestGreen

Label3.BackColor = Color.ForestGreen

Label4.BackColor = Color.ForestGreen

Label5.BackColor = Color.ForestGreen

Label6.BackColor = Color.ForestGreen

Label7.BackColor = Color.ForestGreen

Label8.BackColor = Color.ForestGreen

Label9.BackColor = Color.ForestGreen

Label10.BackColor = Color.ForestGreen

Label11.BackColor = Color.ForestGreen

Label12.BackColor = Color.ForestGreen

End Sub

Private Sub ЖёлтыйToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ЖёлтыйToolStripMenuItem1.Click

Button1.BackColor = Color.Yellow

Button2.BackColor = Color.Yellow

Button3.BackColor = Color.Yellow

End Sub

Private Sub ЗелёныйToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ЗелёныйToolStripMenuItem3.Click

Button1.BackColor = Color.GreenYellow

Button2.BackColor = Color.GreenYellow

Button3.BackColor = Color.GreenYellow

End Sub

Private Sub КрасныйToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles КрасныйToolStripMenuItem3.Click

Button1.BackColor = Color.Red

Button2.BackColor = Color.Red

Button3.BackColor = Color.Red

End Sub

Private Sub ОткрытьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОткрытьToolStripMenuItem.Click

ОткрытьToolStripMenuItem_Click(Me, System.EventArgs.Empty)

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub ОПрограммеToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОПрограммеToolStripMenuItem.Click

MsgBox("Программа создана студентом группы ПОВТ-1-10 Мамбетовым Бекжаном")

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim g As Graphics = PictureBox1.CreateGraphics()

Dim x1, y1, R1, x2, y2, R2, x3, y3, R3 As Integer

If IsNumeric(TextBox1.Text) = False Or TextBox1.Text = "" Or IsNumeric(TextBox2.Text) = False Or TextBox2.Text = "" _

Or IsNumeric(TextBox3.Text) = False Or TextBox3.Text = "" Or IsNumeric(TextBox4.Text) = False Or TextBox4.Text = "" _

Or IsNumeric(TextBox5.Text) = False Or TextBox5.Text = "" Or IsNumeric(TextBox6.Text) = False Or TextBox6.Text = "" _

Or IsNumeric(TextBox7.Text) = False Or TextBox7.Text = "" Or IsNumeric(TextBox8.Text) = False Or TextBox8.Text = "" _

Or IsNumeric(TextBox9.Text) = False Or TextBox9.Text = "" Then

MessageBox.Show("Some data is empty or incorrect!")

Else

x1 = TextBox1.Text

y1 = TextBox2.Text

R1 = TextBox3.Text

x2 = TextBox4.Text

y2 = TextBox5.Text

R2 = TextBox6.Text

x3 = TextBox7.Text

y3 = TextBox8.Text

R3 = TextBox9.Text

If ((y1 - x1) = (y2 - x2) And (y2 - x2) = (y3 - x3)) And (((R1 < y1) And (R1 > x1)) And ((R2 < y2) And (R2 > x2)) And ((R3 < y3) And (R3 > x3))) Then

g.DrawEllipse(Pens.Red, x1, y1, R1, R1)

g.DrawEllipse(Pens.YellowGreen, x2, y2, R2, R2)

g.DrawEllipse(Pens.ForestGreen, x3, y3, R3, R3)

Else

MessageBox.Show("Wrong input")

End If

End If

End Sub

End Class

Первоначальный вид программы



Тестовые примеры

Ввод данных

Результат



Контроль ввода данных

Выход из программы



Заключение

программа изображение управление графический

Как уже было упомянуто выше, это приложение (программа) написано на объектно-ориентированном языке программирования Visual Basic, который имеет богатую библиотеку классов. Язык Visual Basic базируется только на принципах объектно-ориентированного программирования и все программы Visual Basic являются объектно-ориентированными. Visual Basic - один из распространённых языков RAD (Rapid Access Development), позволяющий быстро создавать приложения под ОС Windows с разнообразным, сложным, богатым графическим интерфейсом пользователя. Однако данный язык имеет множество недостатков и ограничений.

В этой курсовой работе мною была исследована, изучена и решена задача о построении геометрических фигур (а именно окружностей) в среде Visual Studio 2010. Кроме того, средствами языка Visual Basic я максимально эффективно использовал объекты для решения поставленной задачи. Данная среда и язык программирования был выбран из-за ее легкости восприятия основных принципов ООП и удобства проектирования приложений. В ходе решения данной задачи был использован особый математический алгоритм, с помощью которого была достигнута цель задачи. Решив задачу, я убедился в эффективности применения приемов и языков объектно-ориентированного программирования не только к задачам моего типа, но и к другим различным прикладным задачам.



Использованная литература

Климов А. - «Занимательное программирование на Visual Basic.NET»

Трусов М. А. - «Visual Basic.NET. Просто о сложном»

Долженков В., Мозговой М. - «Visual Basic.NET. Учебный курс»

Размещено на Allbest.ru

...