Автор работы: Пользователь скрыл имя, 24 Апреля 2013 в 21:20, курсовая работа
В данной пояснительной записке рассматривается описание программы «Программа для расчета количества обоев».
Данная программа предназначена для выполнения функций по расчету количества обоев по заданным размерам стен помещения.
Со стороны пользователя программа очень проста в использовании и имеет простой и интуитивно-понятный интерфейс.
В качестве основного инструмента разработки применяется Borland Delphi 7. Язык программирования Object Pascal.
Введение 3
Глава 1: Техническое задание 4
1.1 Спецификация качества программного продукта 4
Глава 2: Описание используемого математического аппарата 5
2.1 Архитектура приложения 5
Глава 3: Руководство пользователя 7
Глава 4: Руководство программиста 12
Заключение 12
Список используемых источников 14
Частное образовательное учреждение
«ЮЖНО-УРАЛЬСКИЙ ИНСТИТУТ ЭКОНОМИКИ»
КУРСОВАЯ РАБОТА
ПО ДИСЦИПЛИНЕ: Технология программирования
НА ТЕМУ: Программа для расчета количества обоев
Выполнил студент
Андреев О.С.
Группа ИЗс-301
Дата отправления: 23.11.2012
Результат проверки:___________________
Проверил преподаватель: Петрова И.С.
Дата проверки:________________
г. Челябинск, 2012
Содержание
Введение 3
Глава 1: Техническое задание 4
1.1 Спецификация качества программного продукта 4
Глава 2: Описание используемого математического аппарата 5
2.1 Архитектура приложения 5
Глава 3: Руководство пользователя 7
Глава 4: Руководство программиста 12
Заключение 12
Список используемых источников 14
Приложение А: Блок-схема 15
Приложение Б: Листинг программы 16
В данной пояснительной
записке рассматривается
Данная программа предназначена для выполнения функций по расчету количества обоев по заданным размерам стен помещения.
Со стороны
пользователя программа очень проста
в использовании и имеет
В качестве основного инструмента разработки применяется Borland Delphi 7. Язык программирования Object Pascal.
Данный программный продукт представляет собой простой калькулятор с определенным типом данных. В нашем случае это геометрические параметры помещения, по которым будет производиться расчет площади стен. По окончании данной части расчетов мы перейдем ко второй части наших расчетов-расчет необходимого количества обоев.
Функциональность: программа должна являться полностью завершенным программным продуктом, не требующим каких-либо дополнительных специальных компонентов.
Надёжность: программа должна быть автономной.
Эффективность: программа должна функционировать
без наличия привода CD/DVD-
Данная программа основана на диалоге с пользователем, и обрабатывает данные, введенные в поля формы, конвертируя их из текстового формата в численный. Далее программа производит расчеты, исходя из заданных формул (потом пишешь формулу площади и формулу расчета рулонов) и выводит полученные данные на экран
2.1 Архитектура приложения
Данное приложение основано на WinForm и состоит из базовых элементов графического интерфейса пользователя, повсеместно используемых в операционной системе Windows. Выполнение всех функций задано на события нажатий кнопок чтение всех данных производится из текстовых полей.
Данное приложение можно разбить на подсистемы, взаимодействующие друг с другом и с графическим интерфейсом.
Рисунок 1- Общий вид программы
Рассмотрим основные функции данного программного продукта:
-procedure
TForm1.btn1Click(Sender: TObject); - данная функция
производит чтение текстовых
полей, перевод их в формат
вещественное число,
-procedure
TForm1.btn2Click(Sender: TObject); - функция, которая
может быть задействована
-procedure
TForm1.btn3Click(Sender: TObject); - функция закрытия
программы, созадана для
Программа поставляется в виде архива,
в котором находятся
Для начала использования данной программы достаточно запустить исполняемый файл Raschot oboev.exe
В случае если пользователь внес не все данные для расчета площади стен, то программа выведет следующее сообщение:
Рисунок 2. Пример пустого поля ввода данных
На рисунке 2 представлен случай, когда осталось пустым поле ввода данных по высоте помещения. Такие же сообщения появятся, если оставить пустым любое из трех полей ввода данных (Длина, Ширина, Высота).
После ввода всех трех параметров помещения произведем нажатие кнопки ”Нажмите эту кнопку, что бы определить площадь стен”.
Рисунок 3. Вычисление площади стен
Но это лишь первый этап вычислений.
Следующим этапом будет ввод параметров рулонов обоев, это:
-длина одного рулона
-ширина одного рулона (см. Рис.4)
И вычисления конечного результата, расчет кол-ва обоев необходимых для конкретного помещения.
В случае, когда пользователь не вводит один из параметров по рулонам обоев, то программа выводит следующее сообщение (см. Рис.5)
Это же сообщения появиться, если мы не вычислим на первом этапе площадь стен.
Рисунок 4. Вычисление кол-ва рулонов обоев
Рисунок 5.Сообщение о недостаточности данных
Рисунок 6. Внесены все данные
Так же давайте посмотрим, если вместо числового значения, по ошибке, впишем буквенное значение, например в поле ввода длины помещения (см. Рис7).
Рисунок 7.Введение буквенных значений
По окончании расчетов можно ввести новые данные или закрыть данную программу нажав на кнопку “Выход”.
Так как данная программа представляет собой законченный, целостностный продукт не требующий корректировок, добавлений каких либо данных то вмешательство программиста в вероятном будущем не предвидеться.
Но следует учитывать о
Заключение
При выполнении курсовой работы самостоятельно выполнил все этапы создания программного продукта, от постановки задачи до практической реализации, сопровождающейся документацией и инструкциями по его использованию. Так же научился самостоятельно пользоваться специальной литературой, каталогами, справочниками, стандартами.
В рамках курсовой работы была разработана программа для расчета количества обоев. Данный программный продукт может найти применение в отделах по продаже обоев, что позволит упростить подсчет необходимого количества обоев.
При разработке данного программного средства применялся язык программирования Object Pascal(прим. Начиная со среды разработки Delphi 7.0[3], в официальных документах Borland стала использовать название Delphi для обозначения языка Object Pascal) как язык программирования, на котором необходимо было выполнить данную курсовую работу.
unit Unit1; //Имя модуля
interface
uses //После этого слова идет перечисление подключенных модулей.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
Type //После этого идет объявление типов
TForm1 = class(TForm) //Начало описания нового объекта TForm. Здесь описываются компоненты и события Формы
grp1: TGroupBox;
pnl1: TPanel;
lbl2: TLabel;
lbl1: TLabel;
grp2: TGroupBox;
grp3: TGroupBox;
grp4: TGroupBox;
grp5: TGroupBox;
lbl3: TLabel;
lbl4: TLabel;
lbl5: TLabel;
lbl6: TLabel;
edt1: TEdit;
edt2: TEdit;
edt3: TEdit;
edt4: TEdit;
btn1: TButton;
GroupBox1: TGroupBox;
Label1: TLabel;
grp6: TGroupBox;
lbl7: TLabel;
grp7: TGroupBox;
lbl8: TLabel;
edt5: TEdit;
edt6: TEdit;
btn2: TButton;
edt7: TEdit;
btn3: TButton;
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
private //После этого слова можно описывать закрытые данные объекта
{ Private declarations }
public //После этого слова можно описывать открытые данные объекта
{ Public declarations }
end; //Конец объявления типов
var //Объявление глобальных переменных
Form1: TForm1;
Pl,A,B,H,DlRl,ShiRl,KlvRl:
implementation // Осуществляет Интерфейс этого модуля
{$R *.dfm}//Подключение .dfm файла (файл с данными о визуальных объектах)
procedure TForm1.btn1Click(Sender: TObject);
begin
if (edt1.Text <> '') and (edt2.Text <> '') and (edt3.Text <> '') then
begin
A := StrToFloat (edt1.Text);// Функция StrToFloat конвертирует числовую строку FloatString в значение с плавающей точкой с типом Extended
B := StrToFloat (edt2.Text);
H := StrToFloat (edt3.Text);
Pl := 2*(A+B)*H;
edt4.Text := FloatToStr(Pl);// Функция FloatToStr преобразовывает значение Value плавающей запятой в визуализуемую строку.
end else begin
ShowMessage('Заполните все поля');
end;
end;
procedure TForm1.btn2Click(Sender: TObject);
begin
if (edt4.Text <> '') and (edt5.Text <> '') and (edt6.Text <> '') then
begin
DlRl := StrToFloat(edt5.Text);
ShiRl := StrToFloat(edt6.Text);
KlvRl := Pl / (DlRl * ShiRl);
edt7.Text := FloatToStr(KlvRl);
end else begin
ShowMessage('Рассчитайте площадь и/или введите размеры рулонов');
end;
end;
procedure TForm1.btn3Click(Sender: TObject);
begin
Form1.Close;
end;
end.