Автор работы: Пользователь скрыл имя, 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
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
где Vi - объём функций ПС ВТ;
N - общее количество функций ПС ВТ.
Определяется группа сложности разрабатываемого ПО. Так как разработанная программа имеет мощный интеллектуальный языковый интерфейс высокого уровня с пользователем и режим работы в реальном времени, то она относится к 1 группе сложности.
Определяется значение коэффициента, учитывающего уровень повышения сложности ПС ВТ (Ki). Он равен 0,12, так как у ПС ВТ имеется одновременно несколько характеристик [22,34].
Определяется дополнительный коэффициент сложности ПС ВТ (Kсл) по формуле:
Kсл = 1 + å Ki
где 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 ТУМ.
Информация о работе Компьютеризация деятельности на предприятии