Э_год = (С_вр - С_р) * 12 месяцев. (3.6)

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

Экономический эффект определяется показателями срока окупаемости и коэффициента эффективности. Показатель срока окупаемости определяется по формуле:

Т_ок = К_д/Э_год (года) (3.7)

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

Коэффициент эффективности (Е_р) определяется по формуле:

Е_р = 1/Т_ок >=(0,15…2) (3.8)

Нормативный срок окупаемости Е_и находится в пределах от 0 до 1 года, а коэффициент эффективности от 0,15…2.

4.3 Расчет экономической эффективности по задаче АИС «Техническое обслуживание станков»

Для определения стоимости разработки программы, необходимо для начала определить трудоёмкость работ программиста при разработке программы (Q_пр). Для этого используем следующую формуле:

Q_пр = t_п + t_а + t_бл, (3.9)

где t_п - затраты труда на постановку задачи (час);

t_а - затраты труда на разработку алгоритма (час);

t_бл - затраты труда на разработку блок - схемы (час).

Используя формулу (3.9) рассчитаем трудоёмкость работ программиста при разработке программы:

Q_пр = 3 + 10 + 3 = 16 (час).

Определим стоимость разработки программы в соответствии с формулой (3.3);

С_пр = 16 * 120 * 1,4 + 40 * 4 = 2848 (руб.),

где С_пр = 2848 (руб.) - стоимость разработки программы;

Q_пр = 16 - трудоемкость работ программиста при разработке программы (час);

Ф_пр = 120 - заработная плата программиста в единицу времени (час) (определяется путем деления средней заработной платы программиста в размере 24000 руб. на 25 дней - количество рабочих дней в месяце, и делим на 8 часов - продолжительность рабочего дня).

К_нр = 1,4 - коэффициент накладных расходов - 40%;

С_м/час = 40 - стоимость 1 машино - часа (руб.);

T_отп = 4 - машинное время откладки программы (час).

Рассчитаем стоимость решения задачи на ЭВМ, используя формулу (4.4):

С_р = 40 * 5 + 120 * 16 * 1,4 = 2888 (руб.).

Где С_р = 2888 (руб) - стоимость решения задачи на ЭВМ;

С_м/час = 40 - стоимость 1 машино - часа (руб.);

Т_р = 5 - время работы на ЭВМ;

Ф_пр = 120 - заработная плата программиста в единицу времени (час) (определяется путем деления средней заработной платы программиста на число рабочих дней в месяце и еще 8 часов - продолжительность рабочего дня. Например, зарплата программиста в размере 24000 руб. делится на 8 часов - продолжительность рабочего дня);

Q_р = 16 - трудоемкость затрачиваемая программистом на решение задачи (час);

К_нр = 1,4 - коэффициент накладных расходов - 40%.

После расчетов стоимости разработки программы и стоимости решения задачи на ЭВМ, рассчитаем полную стоимость решения задачи на ЭВМ (С_м) в соответствии с формулой (3.2):

С_м = 2848 + 2888 = 5736 (руб).

Для определения стоимости решения задачи вручную (С_вр) воспользуемся формулой (3.5):

С_вр = 1 * 24000 * 1,4 * 1 = 33600 (руб.),

где q_р = 1 - количество времени обработки информации по данной задаче вручную;

Ф_р = 24000 - фонд заработной платы работника;

К_нр = 1,4 - коэффициент накладных расходов - 40%;

N = 1 - количество работников.

В результате полученных данных, определим годовую экономическую эффективность по формуле (3.6):

Э_год = (33600 - 5736) * 12 = 334368(руб.).

Далее определим капитальные вложения (К_д), которые включают затраты на обследование объекта механизации учёта, разработку основных положений технического задания, стоимость вычислительной техники по формуле:

К_д = 3_оом + З_тз + З_вт, (3.10)

где 3_оом - стоимость обследования объекта механизации (руб.);

З_тз - стоимость разработки технического задания (руб.);

З_вт - стоимость вычислительной техники (руб.);

К_д = 50000 + 20000 + 190000 = 2600000 (руб.).

Теперь определим срок окупаемости по формуле (3.7):

Т_ок = 260000 / 334368 = 0,7 (года),

где К_а = 260000 - стоимость капитальных вложений (руб.);

Э_год = 334368 - годовая экономическую эффективность (руб.).

Рассчитаем коэффициент эффективности по формуле (3.8):

Е_р = 1 / 0,7 = 1,4

где Е_р = 1,4 - расчетный коэффициент эффективности;

Т_ок = 0,4 - срок окупаемости.

Вывод: Задача экономически выгодна, т.к. она имеет годовой экономический эффект (Э_год = 335368). Срок окупаемости затрат на разработку и внедрение задачи на ЭВМ составил 0,7 года, коэффициент эффективности равен 1,4 и составляет больше нормативного 0,15, что свидетельствует о доли капитальных вложений на единицу затрат.



ЗАКЛЮЧЕНИЕ

В данном дипломном проекте был разработан программный продукт «Техническое обслуживание станков». Выполнено описание и анализ деятельности технического обслуживания станков, сформулированы требования к АИС и разработано техническое задание, спроектирована концептуальная модель БД и реализована в СУБД Microsoft Access, спроектирован интерфейс программного продукта и разработана инструкция пользователя.

В данном программном продукте были выполнены все поставленные цели для решения задач и можно, сделать следующие выводы:

- все требования по хранению информационных объектов и их реквизитов, описанных в разделе анализа предметной области, выполнены.

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

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



СПИСОК ЛИТЕРАТУРЫ

1) Буч Г., «Язык UML Руководство пользователя», М.: ДМК Пресс, Спб: Питер, 2012.

2) Самоучитель Delhi.NET. - СПб.: БХВ-Петербург, 2010.

3) Исполнение Microsoft Office Access 2003/ Специальное издание.: Пер. с англ. - М.: Издательский дом «Вильямс», 2011.

4) Основы построения автоматизированных информационных систем: Учебное пособие. - М.: ФОРУМ: ИНФРА-М, 2010

5) Зелковиц М., Шоу А., Гэннон Дж. Принципы разработки программного обеспечения; Мир - Москва, 2009. - 364 c.

6) Microsoft Access 2000: разработка приложений - СПб.: БХВ - Санкт-Петербург, 2010. Авторы Харитонова И.А, В.Д.Михеева

7) Delphi 7: Для профессионалов. Автор: Кэнту М.. Е., - Издательство: СПб: Питер 2004г.

8) Delphi 7 Быстрый старт. Автор: Владимир Гофман-Анатолий Хомоненко. Год выпуска: 2003

9) Библия для программиста в среде Delphi. Автор: Фленов Михаил
Год: 2003

10) Орлов С. Технологии разработки программного обеспечения: Учебник для вузов. 3-е издание. - СПб.: Питер, 20011.- 528 с

11) Брауде Э. Технология разработки программного обеспечения. - СПб.: Питер, 2011.- 655 с

12) Маккарти Джим , Маккарти Мишель Правила разработки программного обеспечения (+ CD-ROM); Русская Редакция, Питер - Москва, 2012. - 240 c.



Список сокращений

1. UML - Unified Modeling Language (универсальный язык моделирования);

2. ER - entity-relationship model (модель данных, позволяющая описывать концептуальные схемы предметной области );

3. ПП - программный продукт;

4. ИС - информационная система;

5. ПО - программное обеспечение;

6. ГБ - гигабайт;

7. ГГц - гигагерц;

8. БД - база данных;

9. Мб-мегабайт;

10. СУБД - система управления базами данных;



ПРИЛОЖЕНИЕ А

Рис.16 Диаграмма прецедентов

Рис.17 Диаграмма деятельности 

ПРИЛОЖЕНИЕ Б

ИНСТРУКЦИЯ ПОЛЬЗОВАТЕЛЯ.

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

Далее, мы можем рассмотреть интерфейс справочной системы:

Рис.18 Главное меню и авторизация



Рис.19 Журнал-ремонт

Рис.20 Справочники



Рис.20 Элементы управления



ПРИЛОЖЕНИЕ В

ЛИСТИНГ

unit UnitMain;

procedure TFormMain.N4Click(Sender: TObject);

begin

application.CreateForm(TFormVidStan, FormVidStan);

end;

procedure TFormMain.N5Click(Sender: TObject);

begin

application.CreateForm(TFormVidRem, FormVidRem);

end;

procedure TFormMain.N6Click(Sender: TObject);

begin

application.CreateForm(TFormRem, FormRem);

end;

procedure TFormMain.N7Click(Sender: TObject);

begin

application.CreateForm(TFormCount, FormCount);

end;

unit UnitCount;

procedure TFormCount.FormClose(Sender: TObject; var Action: TCloseAction);

begin

action:=cafree;

end;

unit UnitNewRem;

procedure TFormNewRem.FormCreate(Sender: TObject);

begin

db.ADORem.Append;

end;

procedure TFormNewRem.Button1Click(Sender: TObject);

begin

db.ADORem.Fields.Fields[2].AsDateTime := datetimepicker1.Date;

db.ADORem.Post;

formRem.ADOQrem.Active:=false;

formRem.ADOQrem.Active:=true;

formNewRem.Close;

end;

procedure TFormNewRem.FormClose(Sender: TObject; var Action: TCloseAction);

begin

action:=cafree;

end;

end.

unit UnitRem;

procedure TFormRem.FormClose(Sender: TObject; var Action: TCloseAction);

begin

action:=cafree;

end;

procedure TFormRem.Button2Click(Sender: TObject);

begin

adoqrem.Active := false;

adoqrem.SQL.Clear;

adoqrem.SQL.Add('SELECT fakt_remonta.id_rem, class_stan.marka, class_stan.strana, class_stan.god_vipuska, fakt_remonta.data_nachala, vid_remonta.prodoljitelnost, vid_remonta.stoimost, vid_remonta.nazvanie');

adoqrem.SQL.Add('FROM vid_remonta INNER JOIN (class_stan INNER JOIN fakt_remonta ON class_stan.[id_class] = fakt_remonta.[vid_stanka]) ON vid_remonta.[id_vida] = fakt_remonta.[vid_remonta]');

if radiobutton1.Checked then

adoqrem.SQL.Add('WHERE marka LIKE ''%' + edit1.Text + '%''');

if radiobutton2.Checked then

adoqrem.SQL.Add('WHERE strana LIKE ''%' + edit1.Text + '%''');

if radiobutton3.Checked then

adoqrem.SQL.Add('WHERE god_nachala LIKE ''%' + datetostr(datetimepicker1.Date) + '%''');

if radiobutton4.Checked then

adoqrem.SQL.Add('WHERE god_vipuska LIKE ''%' + datetostr(datetimepicker1.Date) + '%''');

if radiobutton5.Checked then

adoqrem.SQL.Add('WHERE prodoljitelnost LIKE ''%' + edit1.Text + '%''');

if radiobutton6.Checked then

adoqrem.SQL.Add('WHERE stoimost LIKE ''%' + edit1.Text + '%''');

if radiobutton7.Checked then

adoqrem.SQL.Add('WHERE nazvanie LIKE ''%' + edit1.Text + '%''');

adoqrem.Active := true;

end;

procedure TFormRem.Button3Click(Sender: TObject);

begin

adoqrem.Active := false;

adoqrem.SQL.Clear;

adoqrem.SQL.Add('SELECT fakt_remonta.id_rem, class_stan.marka, class_stan.strana, class_stan.god_vipuska, fakt_remonta.data_nachala, vid_remonta.prodoljitelnost, vid_remonta.stoimost, vid_remonta.nazvanie');

adoqrem.SQL.Add('FROM vid_remonta INNER JOIN (class_stan INNER JOIN fakt_remonta ON class_stan.[id_class] = fakt_remonta.[vid_stanka]) ON vid_remonta.[id_vida] = fakt_remonta.[vid_remonta]');

adoqrem.Active := true;

end;

procedure TFormRem.Button1Click(Sender: TObject);

begin

application.CreateForm(TFormNewRem, FormNewRem);

end;

end.

unit UnitVidRem;

interface

uses

procedure TFormVidRem.FormClose(Sender: TObject; var Action: TCloseAction);

begin

action:=cafree;

end;

procedure TFormVidRem.Button1Click(Sender: TObject);

begin

db.ADOVidRem.Append;

end;

procedure TFormVidRem.Button2Click(Sender: TObject);

begin

db.ADOVidRem.Post;

end;

procedure TFormVidRem.Button3Click(Sender: TObject);

begin

db.ADOVidRem.Delete;

end;

procedure TFormVidRem.Button4Click(Sender: TObject);

begin

db.ADOVidRem.Filtered := false;

end;

procedure TFormVidRem.Button5Click(Sender: TObject);

begin

db.ADOVidRem.Filtered := false;

if radiobutton1.Checked then

db.ADOVidRem.Filter := 'nazvanie = ''' + edit1.Text + ''' ';

if radiobutton2.Checked then

db.ADOVidRem.Filter := 'prodoljitelnost = ''' + edit1.Text + ''' ';

if radiobutton3.Checked then

db.ADOVidRem.Filter := 'stoimost = ''' + edit1.Text + ''' ';

db.ADOVidRem.Filtered := true;

end;

end.

unit UnitVidStan;

procedure TFormVidStan.FormClose(Sender: TObject;

var Action: TCloseAction);

begin

action:=cafree;

end;

procedure TFormVidStan.Button1Click(Sender: TObject);

begin

db.ADOVidStan.Append;

end;

procedure TFormVidStan.Button2Click(Sender: TObject);

begin

db.ADOVidStan.Delete;

end;

procedure TFormVidStan.Button3Click(Sender: TObject);

begin

db.ADOVidStan.Fields.Fields[2].AsDateTime := datetimepicker1.Date;

db.ADOVidStan.Post;

end;

procedure TFormVidStan.Button5Click(Sender: TObject);

begin

db.ADOVidStan.Filtered := false;

if radiobutton1.Checked then

begin

db.ADOVidStan.Filter := 'strana = ''' + edit1.Text + ''' ';

end;

if radiobutton2.Checked then

begin

db.ADOVidStan.Filter := 'marka = ''' + edit1.Text + ''' ';

end;

if radiobutton3.Checked then

begin

db.ADOVidStan.Filter := 'god_vipuska = ''' + datetostr(datetimepicker2.Date) + ''' ';

end;

db.ADOVidStan.Filtered := true;

end;

procedure TFormVidStan.Button4Click(Sender: TObject);

begin

db.ADOVidStan.Filtered := false;

end;

end.

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