Компьютеризация деятельности на предприятии

Автор работы: Пользователь скрыл имя, 30 Марта 2014 в 22:04, курсовая работа

Краткое описание

Цель. Разработка тестовой программы в системе программирования Delphi 6.0.
Задачей данной работы являлось создание специализированного тестового программного обеспечения, рассчитанного на управление заранее определённой структурой информации и решение вполне определённого и ограниченного круга задач для сотрудников организации, которое одновременно позволяло бы не отвлекаться будущим пользователям на изучение вопросов, связанных с их деятельностью и средствами управления ими.

Содержание

ВВЕДЕНИЕ 6
1 КОМПЬЮТЕРИЗАЦИЯ ДЕЯТЕЛЬНОСТИ НА ПРЕДПРИЯТИИ 8
1.1 Информационное обеспечение управления предприятием на современном этапе 8
1.2 Содержание и требования, предъявляемые к информации 9
2 СРЕДА DELPHI 6.0 КАК СРЕДСТВО ДЛЯ РАЗРАБОТКИ ПО 11
2.1 Визуальное программирование 11
2.2 Интегрированная среда разработки 12
2.3 Библиотека визуальных компонент 15
2.4 Формы, модули и методы разработки "Two-Way Tools" 19
2.5 Средства программирования на Pascal 20
2.5.1 Краткие сведения о структуре программы 20
2.5.2 Система типов 24 2.5.3 Стандартные процедуры и функции 28
2.5.4 Стандартные функции 31
3 ЭКОНОМИЧЕСКАЯ ЧАСТЬ 33
3.1 Оценка затрат на разработку ПО 33
3.2 Расчёт технических показателей и эффективности проекта 41
3.3 Безопасность жизнедеятельности 42
3.3.1 Характеристика санитарно-гигиенических условий труда 42
3.3.2 Основные требования к искусственному освещению в производственном помещении 46
3.4 Инженерно-технические мероприятия по созданию благоприятных условий труда 46
ЗАКЛЮЧЕНИЕ 52
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ 53
ПРИЛОЖЕНИЯ 55

Вложенные файлы: 1 файл

Дипломный проект.doc

— 683.50 Кб (Скачать файл)

Function Copy (St, Pos, Num): String;

Выделяет из строки St подстроку символов длиной Num, начиная с позиции Pos. Если Pos>Length, то возвращает пустую строку.

St1:='АБВГДЕ'; 
St2:= Copy(St1, 2, 3); {St2= 'БВГ'} 
St2:= Copy(St1, 2, 27); {St2= 'БВГДЕ'} 
St2:= Copy(St1, 44, 2); {возвращает пустую строку St2= ''}

Function Concat (St1, St2{, …, StN}): String;

Объединяет строки в одну строку.

St:='abc'; 
St1:=Concat( 'sss', St, '1234'); {St1= 'sssabc1234'} 
St1:=Concat( St, '123'); {St1= 'abc123'}

Function Pos (Obj, Target): Integer;

Возвращает номер символа, начиная с которого строка Obj первый раз входит в строку Target. Если строка Obj отсутствует в строке Target, то Pos = 0.

Q:= 'Иванов Сергей Петрович';  
H:= Pos ('Сергей', Q); {H= 7} 
H:= Pos ('Игорь', Q); {H= 0}

Function SizeOf (Obj): Integer;

Возвращает размер переменной Obj.

Function FormatFloat(const Format: string; Value: Extended): string;

Возвращает форматированное вещественное значение в виде строки. Format – формат числа, Value – число. Ниже даны форматы функции FormatFloat. [4].

 

Таблица 4 - Формат float.

    Формат

Описание

0

 

#

 

.

          ,

E+, E- 

 

 

 

;

Поле для цифры. Недостающие позиции заменяются нулями

Поле для цифры. Если в позиции имеется значащая цифра, то оно выводится. Нули не выводятся

Разделитель целой и дробной частей

Поле разделителя тысяч, миллионов

Формат представления чисел с плавающей точкой. Если «+» указан, то перед порядком выводится знак. Если указан «-«, то минус выводится только для отрицательных порядков

Разделитель форматов


Примечание – [4]

 

Примеры действия форматов при конвертации числа в строку представлены ниже [5].

 

Таблица 5 - Действие форматов при конвертировании числа в строку

Формат

Число 1

Число 2

Число 3

Число 4

0

0.00

#.##

#,##0.00

#,##0.00;(#,##0.00)

#,##0.00;;Zero

0.000E+00

#.###E-0

1234

1234

1234.00

1234

1,234.00

1,234.00

1,234.00

.234E+03

1.234E3

-1234

-1234

-1234.00

-1234

-1,234.00

(1,234.00)

-1,234.00

-1.234E+03

-1.234E3

0.5

1

0.50

.5

0.50

0.50

0.50

5.000E-01

5E-1

0

0

0.00

0.00

0.00

Zero

0.000E+00

0E0


Примечание – [5]

 

 

2.5.4 Стандартные функции

 

Function Char (X: byte): Char - возвращает символ с номером X:

Ch:= Char(74), {Ch= 'J'};

Function Ord (X): LongInt - возвращает порядковый номер скалярного аргумента^

j:= Ord('J'), {j= 74};

Function Round (X: Real): LongInt - возвращает округлённое до целого значение вещественного аргумента:

j:= Round(12.8235), {j= 13};

Function Trunc (X: Real): LongInt - возвращает целое путём отбрасывания дробной части вещественного аргумента:

j:= Round(12.8235), {j= 12}.

 

Арифметические процедуры и функции

 

Function Frac (X: Extended): Extended - возвращает дробную часть аргумента, например:

r:= Frac(-12.82), {r = -0.82, Frac(12.82)=0.82 };

Function Abs (X: Extended): Extended - возвращает абсолютное значение аргумента, например:

r:= Abs(-12.82), {r = 12.82};

Function ArcTan (X: Extended): Extended - возвращает арктангенс аргумента;

Function Cos (X: Extended): Extended - возвращает косинус аргумента;

Function Sin (X: Real): Real - возвращает синус аргумента;

Function ArcCos(X: Extended): Extended - возвращает арккосинус аргумента, значение которого должно принадлежать отрезку [-1, 1]. Возвращает значение из отрезка [0, Pi];

Function ArcSin(X: Extended): Extended - возвращает арксинус аргумента, значение которого должно принадлежать отрезку [-1, 1]. Возвращает значение из отрезка [-Pi/2, Pi/2];

Function ArcTan2(Y, X: Extended): Extended - возвращает арктангенс аргументов, вычисляя ArcTan(Y/X) в соответствии с квадрантами координатной плоскости xOy. Возвращает значение из отрезка [-Pi, Pi];

Function Exp (X: Real): Real - возвращает экспоненту аргумента;

Function Sinh(X: Extended): Extended - возвращает гиперболический синус аргумента;

Function Cosh(X: Extended): Extended - возвращает гиперболический косинус аргумента;

Function Tanh(X: Extended): Extended - возвращает гиперболический тангенс аргумента;

Function ArcSinh(X: Extended): Extended - возвращает гиперболический арксинус аргумента;

Function ArcCosh(X: Extended): Extended - возвращает гиперболический арккосинус аргумента;

Function ArcTanh(X: Extended): Extended - возвращает гиперболический арктангенс аргумента;

Function Ln (X: Real): Real - возвращает натуральный логарифм аргумента;

Function Sqr (X: Real): Real - возвращает квадрат аргумента;

Function Sqrt (X: Real): Real - возвращает квадратный корень аргумента;

Function Ceil(X: Extended):Integer - возвращает наибольшее целое аргумента;

Сeil(-2.8) = -2, 
Ceil(2.8) = 3, 
Ceil(-1.0) = -1;

Function Floor(X: Extended): Integer - возвращает наименьшее целое аргумента;

Ceil(-2.8) = -3, 
Ceil(2.8) = 2, 
Ceil(-1.0) = -1;

Function Dec (X, [n]: LongInt): LongInt - уменьшает значение аргумента на величину второго параметра. Если он отсутствует, то уменьшает на 1;

J:=67, 
K:=Dec(J); {j= 66}, 
K:=Dec(J, 13); {j= 53};

Function Inc (X, [n]: LongInt): LongInt - увеличивает значение аргумента на величину второго параметра. Если он отсутствует, то увеличивает на 1;

J:=67, 
K:=Inc(J); {j= 68}, 
K:=Inc(J, 13); {j= 81}.

 

 

 

 

3 ЭКОНОМИЧЕСКАЯ ЧАСТЬ

 

 

3.1 Оценка затрат на разработку ПО                                                            

 

 Затраты времени на разработку  программных средств (ПС) вычислительной  техники (ВТ) определяются следующим  образом:

Определяется объем ПС ВТ (в тыс. условных команд). Он равен примерно 5. Рассчитывается общий объём разрабатываемого ПО ВТ (V0) по формуле:

 

V0 = å Vi                                                                                                      (1),

 

где Vi - объём функций ПС ВТ;

N  - общее количество функций  ПС ВТ.

 

 Определяется группа сложности разрабатываемого ПО. Так как разработанная программа имеет мощный интеллектуальный языковый интерфейс высокого уровня с пользователем и режим работы в реальном времени, то она относится к 1 группе сложности.

Определяется значение коэффициента, учитывающего уровень повышения сложности ПС ВТ (Ki). Он равен 0,12, так как у ПС ВТ имеется одновременно несколько характеристик [22,34].

Определяется дополнительный коэффициент сложности ПС ВТ (Kсл) по формуле:

 

Kсл = 1 + å Ki                                                                                            (2),

 

где n - количество дополнительно учитываемых характеристик ПС ВТ.

 

Kсл  = 1 + 2 * 0,12 = 1,24 

 

Определяются затраты труда на разработку ПС ВТ (Tр). Для 1-ой группы сложности и объёма в 5 тыс. команд они равны 1015 чел.-дней.

Рассчитывается общая трудоёмкость (T0) разработки ПС ВТ по формуле:

 

Т0 = Kсл*Tp           (3)

Т0 = 1258,6 чел.-дней

 

Определяется удельный вес трудоёмкости i-ой стадии разработки (Li):

 

ТЗ = 0,1

ЭП = 0,08

ТП = 0,09

РП = 0,58

ВН = 0,15

 

Определяется значение поправочного коэффициента (Kн) - он равен 0,7.

Определяется значение коэффициента (Kт) - он равен 0,7.

Рассчитывается трудоёмкость каждой операции (Т)  разработки ПС ВТ по формулам:

 

T1 = L1 Kн Т0          (4),

Т1 = 0,1*0,7*1258,6 = 88,102 чел.-дней;

 

T2 = L2 Kн Т0          (5),

Т2 = 0,08*0,7*1258,6 = 70,48 чел.-дней;

 

T3 = L3 Kн Т0          (6),

Т3 = 0,09*0,7*1258,6 = 79,29 чел.-дней;

 

T4 = L4 Kн Kт Т0          (7),

Т4 = 0,58*0,7*0,7*1258,6 = 357,69 чел.-дней;

 

T5 = L5 Kн Т0          (8),

Т5 = 0,1*0,15*1258,6 = 18,88 чел.-дней.

 

Определение трудоёмкости на изготовление и сопровождение ПС ВТ

 

При разработке ИАС, как правило, пользуются услугами сторонних организаций. Поэтому, при планировании стадий разработки ИАС необходимо определить продолжительность следующих работ, выполняемых организациями-изготовителями ПС ВТ:

-  формирование и ведение фонда ПС ВТ (приёмка и освоение опытного образца ПС ВТ (ОПС ВТ); ведение фонда программ, документации, методических материалов);

-   постановка ПС ВТ на производство (проверка и оценка ОПС ВТ);              

-   подготовка ПС ВТ к сопровождению;

- формирование эталона ПС ВТ; включение эталона ПС ВТ в фонд);

- изготовление ПС ВТ (изготовление программ и контроль комплекта поставки программной части  ПС ВТ; изготовление технической документации);

- сопровождение ПС ВТ у пользователя.

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

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

Определение нормы времени на приемку и освоение ОПС ВТ (Нвр.ос.). Объём документации составляет около 3 - 4 тыс. строк, поэтому она равна 38.

Определение коэффициента, учитывающего уровень повышения сложности (Ксл); он равен для 1 расширения - 0,18; для второго - 0,20.

Рассчитываем коэффициент, учитывающий сложность ПС ВТ по формуле:

 

Kсл = 1 + å Kслi          (9),

 

где m - количество показателей повышения сложности для конкретного   ПС ВТ.

Kсл = 1 + 0,18 + 0,20 = 1,28.

 

Определим поправочный коэффициент, учитывающий наличие в фонде аналогов ПС ВТ (Kан). Если есть, то он равен 1, иначе - 1,25. Kан=1.

Определим трудоёмкость приёмки и освоения ОПС ВТ (Тос) по формуле:

 

Тос = Kсл  Kан  Нвр.ос.               (10),

Тос = 1,28*1*38 = 48,64 .

 

Определим норму времени на ведение фонда на одно ПС ВТ в год Нвр.вф. по формуле:

 

Нвр.вф. = 0,51 Нвр.ос.                (11),

Нвр.вф. = 19,38.

 

Определим трудоёмкость ведения фонда на одно ПС ВТ по формуле:

 

Твф = 0,8 Kсл Нвр.вф.                (12),

 

где 0,8 - коэффициент, понижающий влияние сложности ПС ВТ на трудоёмкость ведения фонда.

 

Определим трудоёмкость ведения фонда программы ПС ВТ на одно пакетовнедрение Твф  по формуле:

 

Твф = Твф /n                 (13),

 

где n - среднее количество пакетовнедрений в год для одного ПС ВТ (среднее n = 4).

 

Твф = Твф /4 = 4,96 чел.-дней.

 

Определим норму времени на проверку и оценку ОПС ВТ Нвр.пр. по формуле:

 

Нвр.пр. = Нвр.ос.                 (14),

Нвр.пр. = 38

 

Трудоёмкость включения эталона ПС в фонд Твк (аттестация ПС ВТ, принятие решения о поставке) можно принять равным 5 чел.-дням.                    

Трудоёмкость изготовления и контроля комплекта поставки программной части ПС ВТ на магнитном носителе можно принять равным 1 чел.-день.

Определим норму времени на изготовление технической документации полиграфическим способом Нвр.ид.. Она равна 3,1. Трудоёмкость изготовления технической документации Тид = Нвр.ид..

Определим норму времени на формирование эталона ПС ВТ Нвр.фэ. по формуле:

 

Нвр.фэ. = 0,5 Нвр.ос.                (15),

Нвр.пс. = 19

 

Определим трудоёмкость формирования эталона ОПС ВТ Тфэ  по формуле:

 

Тфэ = Kсл Нвр.фэ.                (16),

Тфэ = 1,28*19 = 24,32 чел.-дней.

 

Трудоёмкость ввода поставленных ПС ВТ в эксплуатацию Твв на реальных задачах пользователя рассчитывается по формуле:

 

Твв = Кхв Ксл Нвр.вв.                  (17),

 

где Нвр.вв. - норма времени на ввод поставленных ПС ВТ в эксплуатацию на реальных задачах пользователя; Нвр.вв. = 42-67,2 в зависимости от изменения объёма программы от  1 до 190 ТУМ.

 

Твв = 69,88 чел.-дней.

 

Трудоёмкость комплексирования ПС ВТ (оценка соответствия функциональных характеристик ПС ВТ требованиям к обработке данных, рекомендации по созданию программных средств сопряжения) определяют по формуле:

 

Ткм = Кхв Нвр.км.                                 (18),

 

где Нвр.км. - норма времени на комплексирование ПС ВТ с другими программными средствами; Нвр.км. = 45-72 в зависимости от изменения объёма программы от  1 до 190 ТУМ.

Информация о работе Компьютеризация деятельности на предприятии