Создание прикладной программы

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

2

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ

ГОСУДАРСТВЕННОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ

ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ

«БРАТСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ»

БРАТСКИЙ ЦЕЛЛЮЛОЗНО-БУМАЖНЫЙ КОЛЛЕДЖ

Энергетический факультет

Кафедра ИСПиА

КУРСОВОЙ ПРОЕКТ

Создание прикладной программы (вариант 8)

Пояснительная записка

Студент ПКС-111

В.А. Захаров

Руководитель

Л.И. Лагодич

Братск 2014



Содержание

Введение

1. Организационный раздел

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

1.2 Требования к аппаратным средствам для создания программного продукта

1.3 Обоснование выбора и принципы работы с программным средством

2. Специальный раздел

2.1 Описание структуры программы

2.2 Описание алгоритма решения задачи

Заключение

Список использованных источников

Приложение А

программный модуль конвертер величин basic



Введение

Программы, работающие на компьютере, можно разделить на три категории:

- Прикладные программы, непосредственно обеспечивающие выполнение необходимых пользователям работ: редактирование текстов, рисование, обработку информационных массивов и т.д.

- Системные программы, выполняющие различные вспомогательные функции, например диагностика компьютера или резервное копирование информации.

- Инструментальные системы (системы программирования), обеспечивающие создание новых программ.

Данные категории программ в свою очередь так же разделяются на несколько разделов. Например, прикладные программы можно разделить по уровню сложности обработки информации и результатов. Есть и более простые: всевозможные программы - конвертеры величин.

Темой данного курсового проекта является: «Создание прикладной программы» с описанием всех этапов разработки проекта, текстом программы, тестовых примеров, руководства пользователя в виде пояснительной записки.



1. Организационный раздел

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

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

Планируется разработать программу «Конвертер величин». Использовать одно поле для ввода операторов и второе для вывода результата.

1.2 Требование к аппаратным средствам для создания программного продукта

Основным требованием при разработке на Visual Basic версии 6.0 является работа в среде операционной системы: Windows XP, Windows 7,Windows 8. О Microsoft Visual Basic-- средство разработки программного обеспечения, разрабатываемое корпорацией Microsoft и включающее язык программирования и среду разработки. Язык Visual Basic унаследовал дух, стиль и отчасти синтаксис своего предка -- языка Бейсик, у которого есть немало диалектов. В то же время Visual Basic сочетает в себе процедуры и элементы объектно-ориентированных икомпонентно-ориентированных языков программирования. Среда разработки VB включает инструменты для визуального конструирования пользовательского интерфейса. Visual Basic считается хорошим средством быстрой разработки прототипов программы, для разработки приложений баз данных и вообще для компонентного способа создания программ, работающих под управлением операционных систем семейства Microsoft Windows.



1.3 Обоснование выбора и принципы работы с программным средством

Microsoft Visual Basic - средство разработки программного обеспечения, разрабатываемое корпорацией Microsoft и включающее язык программирования и среду обработки. В тоже время Visual Basic сочетает в себе процедуры и элементы объектно-ориентированных и компонентно-ориентированных языков программирования. Среда обработки VB включает инструменты для визуального конструирования пользовательского интерфейса.

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

Версия VB 6.0 стала по-настоящему зрелым и функционально богатым продуктом. Язык VB не стандартизирован ни ANSI, ни ISO. Visual Basic 6.0 Professional очень сильно привязан к своей среде разработки и к операционной системе Windows, являясь исключительно инструментом написания Windows-приложений.

Привязка к среде заключается в том, что существует большое количество средств, предназначенных для помощи и удобства

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

Все эти преимущества делают бесполезным и даже невозможным использование Visual Basic вне среды разработки, например в обычном текстовом редакторе.

Достоинства Visual Basic 6.0:

- высокая скорость создания приложений с графическим интерфейсом для MS Windows;

- простой синтаксис, позволяющий очень быстро освоить язык;

- возможность компиляции как в машинный код, так и в P-код (по выбору программиста). В режиме отладки программа всегда (вне зависимости от выбора) компилируется в P-код, что позволяет приостанавливать выполнение программы, вносить значительные изменения в исходный код, а затем продолжать выполнение: полная перекомпиляция и перезапуск программы при этом не требуется;

- защита от ошибок, связанных с применением указателей и доступом к памяти. Этот аспект делает Visual Basic приложения более стабильными, но также является объектом критики;

- актуальность постановки и реализации данной программы заключается в том, что она может получить широкое применение в использовании пользователей, которая дает возможность проверить свои знаний в таблице умножения, к примеру, учеников. Программа позволяет проверить знания учеников, повторить таблицу умножения;



2. Специальный раздел

2.1 Описание структуры программы

Интерфейс программы состоит из одной формы (Стандартной).

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

Рисунок 1 - Форма Стандартный

2.2 Описание алгоритма решения задачи

Алгоритм перевода чисел с одной величины на другую “конвертером величин”:



Заключение

В ходе проделанной мною работы я ознакомился со средой программирования Visual basic версии 6.0, научился разрабатывать простейшие алгоритмы для реализации своих замыслов, а именно: для решения инженерных и технологических задач, поиска оптимально короткого пути достижения результата. Также изучил некоторые теоретические вопросы: основные термины информатики, виды и свойства алгоритмов, этапы создания приложений.



Список использованных источников

1С. Браун «Visual Basic 6.0 - Учебный курс», Издательство: Питер, Год: 2001, ISBN: 5-8046-0054-0, 0-7821-2310-4

2Джеймс Фокселл «Освой самостоятельно Visual Basic .NET за 24 часа», Изд-во: Вильямс, Год: 2002, ISBN: 5-8459-0304-1

3Джон Коннэлл «Visual Basic 6. Введение в программирование баз данных», Издательство: ДМК, Год: 2000, ISBN: 1-861001-06-1

4Климов А.П. «Занимательное программирование на Visual Basic», Издательство: БХВ-Петербург, Год: 2009, ISBN: 5-94157-572-6

5http://vbbook.ru/visual-basic/

6http://visualprogs.ru/

7http://www.cyberforum.ru/visual-basic/

8Игорь Сафронов "Visual Basic в задачах и примерах", Издательство: БХВ-Петербург, Год издания: 2008, ISBN: 5-94157-495-9

9В. Долженков, М. Мозговой "Visual Basic .NET. Учебный курс", Издательство: Питер, Год: 2003

10Кетков, Ю.Л. Диалог на языке бейсик для мини- и микро-ЭВМ; М.: Наука, 1988. - 368 c.

11С. Симонович, Г. Евсеев “Занимательное программирование. Visual Basic”, Издательство: АСТ-Пресс, Инфорком - Пресс, Год: 2001

12Якушева, Н.М. Visual Basic для студентов; М.: Радио и связь, 2001. - 232 c.

13ред. Сергеев, В. Visual Basic 6.0. Руководство для профессионалов; БХВ-Петербург, 1999. - 992 c.

14http://vbrussian.com

15http://visualbasic.ucoz.ru/

16http://vbzero.narod.ru/



Приложение А

Код программы

Private Sub About_Click(Index As Integer)

frmAbout.Show

End Sub

Private Sub Command1_Click()

Text1.Enabled = True

Text2.Enabled = True

If Combo1.Text = "Град" And Combo2.Text = "Градус" Then

Text2.Text = Val(Text1.Text) * 0.9

End If

If Combo1.Text = "Град" And Combo2.Text = "Минута" Then

Text2.Text = Val(Text1.Text) * 54

End If

If Combo1.Text = "Град" And Combo2.Text = "Окружность" Then

Text2.Text = Val(Text1.Text) * 0.0025

End If

If Combo1.Text = "Град" And Combo2.Text = "Радиан" Then

Text2.Text = Val(Text1.Text) * 0.01571

End If

If Combo1.Text = "Град" And Combo2.Text = "Секунда" Then

Text2.Text = Val(Text1.Text) * 3240

End If

If Combo1.Text = "Град" And Combo2.Text = "Секстант" Then

Text2.Text = Val(Text1.Text) * 0.015

End If Else

text1.Caption = " " & Command1(Index).Caption

End If

Else

If Y = 0 Then

text1.Caption = text1.Caption & "."

Y = 1

Else

MsgBox ("ILLEGAL SAIRAM")

End If

End If

End Sub

Private Sub Command2_Click(Index As Integer)

If Z = 0 Or Index = 4 Then

If ind = 0 Then

W = W + Val(text1.Caption)

ElseIf ind = 1 Then

W = W - Val(text1.Caption)

ElseIf ind = 2 Then

If Val(text1.Caption) = 0 Then

g = MsgBox("Деление на 0", vbExclamation + vbOKOnly, "ERROR")

Exit Sub

Else

W = W / Val(text1.Caption)

End If

ElseIf ind = 3 Then

W = W * Val(text1.Caption)

End If

text1.Caption = Str(W)

X = 0

End If

Z = 1

ind = Index

Y = 0

End Sub

Private Sub CE_Click()

text1.Caption = " 0"

End Sub

Private Sub C_Click()

Y = 0

W = 0

X = 0

ind = 0

Z = 0

text1.Caption = " 0"

End Sub

Private Sub Command3_Click()

text1.Caption = Left(text1.Caption, Len(text1.Caption) - 1)

End Sub

Private Sub Command4_Click(Index As Integer)

инженерный.Show

End Sub

Private Sub dop_Click(Index As Integer)

op = dop(Index).Caption

h = text1.Caption

Select Case op

Case "x^3"

W = h ^ 2

Case "x^2"

W = h ^ 2

Case "cos"

W = Cos(h)

Case "sin"

W = Sin(h)

Case "tan"

W = Tan(h)

Case "1/x"

If h = 0 Then

g = MsgBox("Деление на 0", vbExclamation + vbOKOnly, "ERROR")

Else

W = 1 / h

End If

Case "ln"

If h = 0 Then

g = MsgBox("Ошибка ввода", vbExclamation + vbOKOnly, "ERROR")

Else

W = Log(h)

End If

Case "n!"

W = 1

no2 = h

For i2 = 1 To no2

W = W * i2

Next

Case "exp"

W = Exp(h)

Case "sqrt"

W = Sqr(h)

Case "ctg"

W = Cos(h) / Sin(h)

End Select

text1.Caption = W

End Sub

Private Sub exit_Click()

Unload Me

End Sub

Private Sub copy_Click()

Clipboard.Clear

Clipboard.SetText text1.Caption

End Sub

Private Sub cut_Click()

Clipboard.Clear

Clipboard.SetText text1.Caption

text1.Caption = ""

End Sub

Private Sub eexit_Click()

Unload Me

End Sub

Private Sub paste_Click()

text1.Caption = ""

text1.Caption = Clipboard.GetText()

End Sub

Private Sub eselectall_Click()

Clipboard.Clear

Clipboard.SetText text1.Caption

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = Asc(".") Then

i = 10

Command1_Click (i)

Beep

ElseIf KeyAscii = Asc("0") Then

i = 0

Command1_Click (i)

Beep

ElseIf KeyAscii = Asc("1") Then

i = 1

Command1_Click (i)

Beep

ElseIf KeyAscii = Asc("2") Then

i = 2

Command1_Click (i)

Beep

ElseIf KeyAscii = Asc("3") Then

i = 3

Command1_Click (i)

Beep

ElseIf KeyAscii = Asc("4") Then

i = 4

Command1_Click (i)

Beep

ElseIf KeyAscii = Asc("5") Then

i = 5

Command1_Click (i)

Beep

ElseIf KeyAscii = Asc("6") Then

i = 6

Command1_Click (i)

Beep

ElseIf KeyAscii = Asc("7") Then

i = 7

Command1_Click (i)

Beep

ElseIf KeyAscii = Asc("8") Then

i = 8

Command1_Click (i)

Beep

ElseIf KeyAscii = Asc("9") Then

i = 9

Command1_Click (i)

Beep

ElseIf KeyAscii = Asc("0") Then

i = 0

Command1_Click (i)

Beep

ElseIf KeyAscii = Asc("+") Then

i = 0

Command2_Click (i)

Beep

ElseIf KeyAscii = Asc("+") Then

i = 0

Command2_Click (i)

Beep

ElseIf KeyAscii = Asc("-") Then

i = 1

Command2_Click (i)

Beep

ElseIf KeyAscii = Asc("/") Then

i = 2

Command2_Click (i)

Beep

ElseIf KeyAscii = Asc("*") Then

i = 3

Command2_Click (i)

Beep

ElseIf KeyAscii = Asc("=") Then

i = 4

Command2_Click (i)

Beep

ElseIf KeyAscii = Asc("c") Or KeyAscii = Asc("C") Then

Y = 0

W = 0

X = 0

ind = 0

Z = 0

text1.Caption = " 0"

Beep

Beep

ElseIf KeyAscii = Asc("d") Or KeyAscii = Asc("D") Then

text1.Caption = " 0"

Beep

End If

End Sub

Private Sub Form_Load()

Y = 0

prev = 0

X = 0

ind = 0

Z = 0

Clipboard.Clear

инженерный.Hide

tscientific.Enabled = False

End Sub

Private Sub tstandart_Click()

инженерный.Hide

стандартный.Show

End Sub

Private Sub znak_Click()

text1.Caption = -Val(text1.Caption)

End Sub

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