Создание прикладной программы
МИНИСТЕРСТВО
ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ
ГОСУДАРСТВЕННОЕ
ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ
ВЫСШЕГО
ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ
«БРАТСКИЙ
ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ»
БРАТСКИЙ
ЦЕЛЛЮЛОЗНО-БУМАЖНЫЙ КОЛЛЕДЖ
Энергетический
факультет
Кафедра
ИСПиА
КУРСОВОЙ
ПРОЕКТ
Создание
прикладной программы (вариант 8)
Пояснительная
записка
Студент ПКС-111
В.А. Захаров
Руководитель
Л.И. Лагодич
Братск 2014
Содержание
Введение
. Организационный раздел
.1 Постановка задачи
.2 Требования к аппаратным средствам
для создания программного продукта
. Специальный раздел
.1 Описание структуры программы
.2 Описание алгоритма решения задачи
Заключение
Список использованных источников
Приложение А
программный модуль
конвертер величин basic
Введение
Программы, работающие на компьютере, можно
разделить на три категории:
- Прикладные программы, непосредственно
обеспечивающие выполнение необходимых пользователям работ: редактирование
текстов, рисование, обработку информационных массивов и т.д.
- Системные
программы, выполняющие различные вспомогательные функции, например диагностика
компьютера или резервное копирование информации.
- Инструментальные
системы (системы программирования), обеспечивающие создание новых программ.
Данные категории программ в свою очередь так же
разделяются на несколько разделов. Например, прикладные программы можно
разделить по уровню сложности обработки информации и результатов. Есть и более
простые: всевозможные программы - конвертеры величин.
Темой данного курсового проекта является:
«Создание прикладной программы» с описанием всех этапов разработки проекта,
текстом программы, тестовых примеров, руководства пользователя в виде
пояснительной записки.
1.
Организационный раздел
1.1
Постановка задачи
Сущность поставленной задачи заключается в
разработке программного модуля «Конвертер величин». Программа должна
осуществлять перевод чисел с одной величины на другую и выводить конечный
результат пользователю.
Планируется разработать программу «Конвертер
величин». Использовать одно поле для ввода операторов и второе для вывода
результата.
1.2
Требование к аппаратным средствам для создания программного продукта
Основным требованием при разработке
на Visual Basic версии 6.0
является работа в среде операционной системы: Windows XP, Windows 7,Windows 8. О Microsoft Visual Basic- средство
разработки программного обеспечения
<#"786024.files/image001.gif">
2.2
Описание алгоритма решения задачи
Алгоритм перевода чисел с одной величины на
другую “конвертером величин”:
Заключение
В ходе проделанной мною работы
я ознакомился со средой программирования Visual
basic версии 6.0,
научился разрабатывать простейшие алгоритмы для реализации своих замыслов, а
именно: для решения инженерных и технологических задач, поиска оптимально
короткого пути достижения результата. Также изучил некоторые теоретические
вопросы: основные термины информатики, виды и свойства алгоритмов, этапы
создания приложений.
Список
использованных источников
1С. Браун «Visual
Basic 6.0 - Учебный
курс», Издательство: Питер, Год: 2001, ISBN:
5-8046-0054-0, 0-7821-2310-4
Джеймс Фокселл «Освой
самостоятельно Visual
Basic .NET
за 24 часа», Изд-во: Вильямс, Год: 2002, ISBN:
5-8459-0304-1
Джон Коннэлл «Visual
Basic 6. Введение в
программирование баз данных», Издательство: ДМК, Год: 2000, ISBN:
1-861001-06-1
Климов А.П.
«Занимательное программирование на Visual
Basic», Издательство:
БХВ-Петербург, Год: 2009, ISBN:
5-94157-572-6
http://vbbook.ru/visual-basic/
http://visualprogs.ru/
http://www.cyberforum.ru/visual-basic/
Игорь Сафронов
"Visual
Basic в задачах и
примерах", Издательство: БХВ-Петербург, Год издания: 2008, ISBN:
5-94157-495-9
В. Долженков, М.
Мозговой "Visual
Basic .NET.
Учебный курс", Издательство: Питер, Год: 2003
Кетков, Ю.Л. Диалог
на языке бейсик для мини- и микро-ЭВМ; М.: Наука, 1988. - 368 c.
С. Симонович, Г.
Евсеев “Занимательное программирование. Visual
Basic”, Издательство:
АСТ-Пресс, Инфорком - Пресс, Год: 2001
Якушева, Н.М. Visual
Basic для студентов; М.:
Радио и связь, 2001. - 232 c.
ред. Сергеев, В. Visual
Basic 6.0. Руководство
для профессионалов; БХВ-Петербург, 1999. - 992 c.
http://vbrussian.com
http://vbzero.narod.ru/
Приложение
А
Код
программы
Private Sub About_Click(Index As
Integer).ShowSubSub Command1_Click().Enabled = True.Enabled = True
If Combo1.Text =
"Ãðàä" And Combo2.Text =
"Ãðàäóñ" Then
Text2.Text = Val(Text1.Text) * 0.9If
If Combo1.Text =
"Ãðàä" And Combo2.Text =
"Ìèíóòà" Then
Text2.Text = Val(Text1.Text) * 54If
If Combo1.Text =
"Ãðàä" And Combo2.Text =
"Îêðóæíîñòü"
Then
Text2.Text = Val(Text1.Text) * 0.0025If
If Combo1.Text =
"Ãðàä" And Combo2.Text =
"Ðàäèàí" Then
Text2.Text = Val(Text1.Text) *
0.01571If
If Combo1.Text =
"Ãðàä" And Combo2.Text =
"Ñåêóíäà" Then
Text2.Text = Val(Text1.Text) *
3240If
If Combo1.Text =
"Ãðàä" And Combo2.Text =
"Ñåêñòàíò" Then
Text2.Text = Val(Text1.Text) *
0.015If Else.Caption = " " & Command1(Index).CaptionIfY = 0
Then.Caption = text1.Caption & "."= 1("ILLEGAL
SAIRAM")IfIfSubSub Command2_Click(Index As Integer)Z = 0 Or Index = 4
Thenind = 0 Then= W + Val(text1.Caption)ind = 1 Then= W - Val(text1.Caption)ind
= 2 ThenVal(text1.Caption) = 0 Then= MsgBox("Деление
на
0", vbExclamation + vbOKOnly, "ERROR")Sub= W /
Val(text1.Caption)Ifind = 3 Then= W * Val(text1.Caption)If.Caption = Str(W)=
0If= 1= Index= 0SubSub CE_Click().Caption = " 0"SubSub C_Click()= 0=
0= 0= 0= 0.Caption = " 0"SubSub Command3_Click().Caption =
Left(text1.Caption, Len(text1.Caption) - 1)SubSub Command4_Click(Index As
Integer)
инженерный.ShowSubSub
dop_Click(Index As Integer)= dop(Index).Caption= text1.CaptionCase
op"x^3"= h ^ 2"x^2"= h ^ 2"cos"=
Cos(h)"sin"= Sin(h)"tan"= Tan(h)"1/x"h = 0 Then=
MsgBox("Деление на
0", vbExclamation + vbOKOnly, "ERROR")= 1 / hIf"ln"h =
0 Then= MsgBox("Ошибка ввода",
vbExclamation + vbOKOnly, "ERROR")= Log(h)If"n!"= 1= hi2 =
1 To no2= W * i2"exp"= Exp(h)"sqrt"= Sqr(h)"ctg"=
Cos(h) / Sin(h)Select.Caption = WSubSub exit_Click()MeSubSub
copy_Click().Clear.SetText text1.CaptionSubSub cut_Click().Clear.SetText
text1.Caption.Caption = ""SubSub eexit_Click()MeSubSub
paste_Click().Caption = "".Caption = Clipboard.GetText()SubSub
eselectall_Click().Clear.SetText text1.CaptionSubSub Form_KeyPress(KeyAscii As
Integer)KeyAscii = Asc(".") Then= 10_Click (i)KeyAscii =
Asc("0") Then= 0_Click (i)KeyAscii = Asc("1") Then= 1_Click
(i)KeyAscii = Asc("2") Then= 2_Click (i)KeyAscii = Asc("3")
Then= 3_Click (i)KeyAscii = Asc("4") Then= 4_Click (i)KeyAscii =
Asc("5") Then= 5_Click (i)KeyAscii = Asc("6") Then= 6_Click
(i)KeyAscii = Asc("7") Then= 7_Click (i)KeyAscii = Asc("8")
Then= 8_Click (i)KeyAscii = Asc("9") Then= 9_Click (i)KeyAscii =
Asc("0") Then= 0_Click (i)KeyAscii = Asc("+") Then= 0_Click
(i)KeyAscii = Asc("+") Then= 0_Click (i)KeyAscii = Asc("-")
Then= 1_Click (i)KeyAscii = Asc("/") Then= 2_Click (i)KeyAscii =
Asc("*") Then= 3_Click (i)KeyAscii = Asc("=") Then= 4_Click
(i)KeyAscii = Asc("c") Or KeyAscii = Asc("C") Then= 0= 0=
0= 0= 0.Caption = " 0"KeyAscii = Asc("d") Or KeyAscii =
Asc("D") Then.Caption = " 0"IfSubSub Form_Load()= 0= 0= 0=
0= 0.Clear
инженерный.Hide.Enabled
= FalseSubSub tstandart_Click()
инженерный.Hide
стандартный.ShowSubSub
znak_Click().Caption = -Val(text1.Caption)