Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Изм.
Лист
№ докум.
Подпись
Дата
Лист
4
ДП.2-40 01 01.Т11.11.ПЗ
Разраб.
Линник Ю.А.
Провер.
Пешко Н.Ф.
Т. Контр.
Н. Контр.
Утверд.
Информационно-справочная система «Абитуриент-2011»
Лит.
Листов
79
ГПТКЛП
СОДЕРЖАНИЕ
РЕФЕРАТ 6
ВВЕДЕНИЕ 7
1. НАЗНАЧЕНИЕ И ОБЛАСТЬ ПРИМЕНЕНИЯ ИНФОРМАЦИОННО-СПРАВОЧНОЙ СИСТЕМЫ 8
2. ПРОЕКТИРОВАНИЕ ЗАДАЧИ 9
2.1 Выбор и обоснование среды разработки 10
2.2 Описание алгоритма решения задачи 11
3. ПРОГРАММА РЕШЕНИЯ ЗАДАЧИ 23
3.1 Логическая структура 23
3.2 Физическая структура 28
4. ТЕСТИРОВАНИЕ 30
4.1 Запуск 1 30
4.2 Запуск 2 31
4.3 Запуск 3 32
5. ПРИМЕНЕНИЕ 34
5.1 Назначение программы 34
5.2 Требования к аппаратным ресурсам ПК 34
5.3 Руководство пользователя 34
5.3.1 Вызов и загрузка 35
5.3.2 Входные данные 35
5.3.3 Выходные данные 35
5.3.4 Инсталляция программы 36
5.3.5 Диалог с пользователем 36
5.3.6 Система помощи 36
6. ЭКОНОМИЧЕСКИЙ РАЗДЕЛ 37
Изм.
Лист
№ докум.
Подпись
Дата
Лист
5
ДП.2-40 01 01.Т11.11.ПЗ
Разраб.
Линник Ю.А.
Провер.
Пешко Н.Ф.
Т. Контр.
Н. Контр.
Утверд.
Информационно-справочная система «Абитуриент-2011»
Лит.
Листов
79
ГПТКЛП
6.1 Расчет трудоемкости разработки программного продукта 37
6.1.1 Составление необходимого перечня работ и ее кодирование 37
6.1.2 Установка оценок времени продолжительности работ 37
6.2 Расчет себестоимости и цены разработки программного продукта 38
6.3 Методика расчета статей калькуляции 39
6.3.1 Расчет материальных затрат 39
6.3.2 Расчет заработной платы программиста 39
6.3.3 Расчет единого социального налога 40
6.3.4 Расчет накладных расходов 41
6.3.5 Расчет калькуляции затрат на разработку программного продукта 42
6.4 Определение цены программного продукта 42
7. ОХРАНА ТРУДА 44
7.1 Описание рабочего места программиста 44
7.2 Освещенность рабочего места 49
7.3 Параметры микроклимата на рабочем месте 52
7.4 Нормирование шума 53
7.5 Методы защиты от шума 54
7.6 Вентиляция 55
7.7 Расчет информационной нагрузки программиста 55
7.8 Выводы 59
ЗАКЛЮЧЕНИЕ 61
ЛИТЕРАТУРА 62
ПРИЛОЖЕНИЯ 63
Приложение А. Полный листинг программы 63
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
РЕФЕРАТ
Дипломная работа: 79 с., 18 рис., 9 табл., 8 источников, 1 прил.
Файловый менеджер «Lycan Commander».
Объектом исследования данного дипломного проекта, является все высшие учебные заведения Республики Беларусь.
Предметом для рассмотрения является условия вступительных испытаний.
Цель данной работы состоит в разработке файлового менеджера, который предназначен для работы с файловой системой.
Автор работы подтверждает, что приведенный в ней материал правильно и объективно отражает процесс разработки дипломного проекта, а все заимствованные из литературных и других источников теоретические, методологические и методические положения и концепции сопровождаются ссылками на их авторов.
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
ВВЕДЕНИЕ
Ни одна операционная система на сегодняшний день не может обойтись без удобного и надежного файлового менеджера. Огромное количество нарастающих с каждым днем данных нуждается в грамотной структуризации и разделении. Не зря все современные операционные системы, как правило, включают в свой состав, в первую очередь, именно файловый менеджер, как неотъемлемую часть самой ОС и необходимый компонент для реализации всех возможностей по доступу к файловой системе. При этом такой доступ должен удовлетворять многим, зачастую противоположным условиям, к которым относятся: возможность быстрого поиска и отображения нужной информации, полнота операций над этими данными, гарантированное исключение ошибок при этих операциях, простота и т.д.
Наличие файлового менеджера в самих ОС не останавливает пользователей в поисках программы «для себя». В данной программе сделана попытка объединить только самые нужные для пользователя функции по работе с файловой системой в наглядном и простом виде. Включение всех возможных операций не было главной целью автора программы, основная задача – необходимый минимум в сочетании с простотой. Программа реализует в себе все способы взаимодействия с пользователем и другими программами, предоставляемые операционной средой Windows, как то: перемещение и копирование посредством перетаскивания (Drag’n’Drop), контекстные меню, панель управления и др.
В данном дипломном проекте необходимо реализовать двухпанельный файловый менеджер с возможностью работы с архивами и FTP. Создать удобный и лаконичный интерфейс.
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
1. НАЗНАЧЕНИЕ И ОБЛАСТЬ ПРИМЕНЕНИЯ ФАЙЛОВОГО МЕНЕДЖЕРА
Файловый менеджер предназначен для работы с файловыми системами и файлами. Файловый менеджеры позволяют выполнять наиболее часто используемые операции над файлами и каталогами: копирование, перемещение, удаление, открытие/проигрывание/просмотр, переименование. По мимо основных функций файловый менеджер включает ряд дополнительных, таких как, работа с архивами, FTP, поиск файлов.
Область применения данного файлового менеджера очень широка, так как для работы с ним не требуется специальных навыков и знаний, вследствие чего его могут использовать, как начинающие пользователи ПК, так и профессионалы.
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
2. ПРОЕКТИРОВАНИЕ ЗАДАЧИ
Файловый менеджер должен отвечать следующим требованиям:
При запуске программы открывается готовое для работы окно программы, содержащее две панели, для работы с файловой системой, панель кнопок операций над файлами и каталогами, и три панели инструментов и меню, выбор панели инструментов осуществляется по средствам нажатия на определенный пиктограмму. Выбор логических дисков осуществляется с помощью «выпадаючего списка». Для операции над файлами и каталогами предусмотрено пять кнопок (копировать\ переместить\ каталог\ переименовать \удалить), при нажатии на которых появляется новое диалоговое окно, в котором предполагается непосредственное продолжение выбранной операции. На главной форме располагаются три панели инструментов. Первая предназначена для работы с самой программой, архивами и запуска наиболее часто используемых стандартных приложений Windows. Вторая панель предназначена для запуска различных настроек системы. Третья для работы с FTP.
Для разработки файлового менеджера использовалась визуальная среда Delphi 7.
Выбор языка программирования основывается на следующем: она совместима со стандартами ODBC, IDAPI и к тому же генерируют компактные и легко переносимые исполнимые файлы. По большому счету можно ничего не знать о Windows и программировании для Windows и при этом создавать вполне работоспособные и современно выглядящие задачи. Кроме того, изучив Pascal, трудностей с программированием на Delphi быть не должно, т.к.
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
существует 100% совместимость с прежними наработками. Среда визуального программирования Delphi совместима со всеми прикладными алгоритмами, написанными до сих пор на Pascal. Это значит, что для серьезной работы необходимо серьезное знание языка Паскаль, хотя какую-то часть кода сгенерирует сама Delphi. Не будет лишним знание интерфейса Windows. [2]
Основные характеристики выбранного языка программирования:
Интегрированная среда разработки IDE Delphi предоставляет всевозможные средства для создания, тестирования и редактирования проекта.
Среда Delphi является одной из наиболее популярных систем разработки приложений. Программа проста в использовании, не требует специальных навыков, кроме знаний основ работы в системе Microsoft Windows. Программа широко использует стандартные элементы управления, что обеспечивает единство интерфейса системы и программного средства, а, следовательно, и удобство использования. [3]
Преимуществами Delphi 7 является то, что для работы с различными данными создается наиболее подходящий для каждого конкретного случая графический интерфейс, содержащий всевозможные меню, множество управляемых окон и разнотипных элементов управления, благодаря чему экран не загромождается лишней информацией и в то же время вся необходимая информация является легкодоступной.
Кроме того, для Delphi 7 существует множество дополнительных библиотек и компонентов, с помощью которых, возможно расширить функционал разрабатываемого приложения. В Delphi 7 предусмотрена работа с файловой системой по средствам использования библиотек WinAPI и ShellApi
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
.
Таким образом, визуальная среда разработки приложений Delphi 7 идеально подходит для создания файлового менеджера «Lycan Commander», совмещая в себе возможности работы с логическими дисками и их содержимым и создания привлекательного и удобного графического интерфейса.
Delphi 7 может работать в среде операционных систем от Windows 98 до Windows XP. Особых требований, по современным меркам, к ресурсам компьютера пакет не предъявляет: процессор должен быть типа Pentium или Celeron с тактовой частотой не ниже 166 МГц (рекомендуется Pentium II 400 МГц), оперативной памяти - 128 Мбайт (рекомендуется 256 Мбайт), достаточное количество свободного дискового пространства (для полной установки версии Enterprise необходимо приблизительно 475 Мбайт). [3]
При запуске программы выводится информация о проекте:
Рисунок 2.2.1 Вид начального окна
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
В код события FormCreate «создание формы» внесены команды, которые скрывают некоторые элементы размещенные на форме, формируют главное окно программы:
procedure TForm1.Button9Click(Sender: TObject);
begin
label1.Visible:=true;
button3.Visible:=true;
button4.Visible:=true;
button5.Visible:=true;
button6.Visible:=true;
button7.Visible:=true;
button8.Visible:=true;
bitbtn1.Visible:=true;
button9.Visible:=false;
label23.Visible:=false;
image1.Visible:=false;
image2.Visible:=true;
end;
Рисунок 2.2.2 Вид главного окна
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
Для выполнения поиска предусмотрена кнопка «Поиск». В коде данной кнопке реализовано чтение текстового файла, который содержит информацию о всех учебных заведений. Одновременно выполняется сравнение прочитанных данных с параметрами поиска и при удовлетворительном результате учебное заведение записывается в массив результатов.
reset(f);
while eof(f)<>true do begin
readln(f,s);
if s[1]=':' then begin
readln(f,s);
prom[1]:=s;
readln(f,s);
prom[2]:=s;
readln(f,s);
prom[3]:=s;
end
else if s[1]='-' then
prom[4]:=copy(s,2,length(s)-1)
else if s[1]='=' then
prom[5]:=copy(s,2,length(s)-1)
else if s[1]='.' then begin
prom[6]:=copy(s,2,length(s)-1);
readln(f,s);
prom[7]:=s;
readln(f,s);
prom[8]:=s;
readln(f,s);
prom[9]:=s;
readln(f,s);
prom[10]:=s;
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
readln(f,s);
prom[11]:=s;
readln(f,s);
prom[12]:=s;
k:=0;
for i:=1 to 7 do begin
if parpoiska[i]<>'' then
if parpoiska[i]<>prom[i] then
k:=1;
end;
s:=prom[8];
s1:='';
n:=1;
while s[n]<>' ' do begin
s1:=s1+s[n];
n:=n+1;
end;
if parpoiska[8]<>'' then
if strtofloat(s1)>=strtofloat(parpoiska[8]) then
k:=1;
s:=prom[9];
s1:='';
n:=1;
while s[n]<>' ' do begin
s1:=s1+s[n];
n:=n+1;
end;
if parpoiska[9]<>'' then
if strtofloat(s1)>=strtofloat(parpoiska[9]) then
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
k:=1;
if (parpoiska[10]<>'') and (parpoiska[10]<>'Другое') then begin
if (parpoiska[10]<>prom[10]) and (parpoiska[10]<>prom[11]) and (parpoiska[10]<>prom[12]) then
k:=1;
if (parpoiska[10]=parpoiska[11]) or (parpoiska[10]=parpoiska[12]) then
k:=1;
end;
if (parpoiska[11]<>'') and (parpoiska[11]<>'Другое') then begin
if (parpoiska[11]<>prom[10]) and (parpoiska[11]<>prom[11]) and (parpoiska[11]<>prom[12]) then
k:=1;
if (parpoiska[11]=parpoiska[10]) or (parpoiska[11]=parpoiska[12]) then
k:=1;
end;
if (parpoiska[12]<>'') and (parpoiska[12]<>'Другое') then begin
if (parpoiska[12]<>prom[10]) and (parpoiska[12]<>prom[11]) and (parpoiska[12]<>prom[12]) then
k:=1;
if (parpoiska[12]=parpoiska[10]) or (parpoiska[10]=parpoiska[11]) then
k:=1;
end; if k=0 then begin
j:=j+1;
for i:=1 to 12 do
rezpoisk[i,j]:=prom[i];
end;
end;
end;
closefile(f);
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
При условии того что поиск пошел успешно, активизируются кнопки «Просмотреть результат», «Печать результата поиска» и «Сохранить результат поиска». Если пользователь нажмет кнопку «Сохранить результат поиска» все результаты будут записаны в файл Rezultat.txt. Код данной кнопки выглядит так:
procedure TForm1.Button7Click(Sender: TObject);
begin
rewrite(f1,'rezultat.txt');
for i:=1 to j do begin
writeln(f1,'Результат №'+inttostr(i));
writeln(f1,rezpoisk[1,i]);
writeln(f1,rezpoisk[3,i]);
writeln(f1,'Форма обучения: '+rezpoisk[4,i]);
writeln(f1,rezpoisk[5,i]);
writeln(f1,'Специальность: '+rezpoisk[6,i]);
writeln(f1,'Квалификация: '+rezpoisk[7,i]);
writeln(f1,'Конкурс: '+rezpoisk[8,i]);
writeln(f1,'Проходной балл: '+rezpoisk[9,i]);
writeln(f1,'Вступительные испытания: ');
writeln(f1,rezpoisk[10,i]);
writeln(f1,rezpoisk[11,i]);
writeln(f1,rezpoisk[12,i]);
writeln(f1);
end;
closefile(f1);
end;
Если пользователь нажмет кнопку «Печать результата поиска», то все результаты будут записаны в файл Rezultat.txt, после чего сформированный отчет загружается в компоненту RichEdit. После этого используем свойство
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
компоненты print и выводим содержимое на печать. Код данной кнопки выглядит так:
procedure TForm1.Button5Click(Sender: TObject);
begin
rewrite(f1,'rezultat.txt');
for i:=1 to j do begin
writeln(f1,'Результат №'+inttostr(i));
writeln(f1,rezpoisk[1,i]);
writeln(f1,rezpoisk[3,i]);
writeln(f1,'Форма обучения: '+rezpoisk[4,i]);
writeln(f1,rezpoisk[5,i]);
writeln(f1,'Специальность: '+rezpoisk[6,i]);
writeln(f1,'Квалификация: '+rezpoisk[7,i]);
writeln(f1,'Конкурс: '+rezpoisk[8,i]);
writeln(f1,'Проходной балл: '+rezpoisk[9,i]);
writeln(f1,'Вступительные испытания: ');
writeln(f1,rezpoisk[10,i]);
writeln(f1,rezpoisk[11,i]);
writeln(f1,rezpoisk[12,i]);
writeln(f1);
end;
closefile(f1);
reset(f1);
while eof(f1)<>true do begin
readln(f1,s);
richedit1.Lines.Add(s);
end;
if PrintDialog1.Execute then RichEdit1.Print('rezultat');
end;
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
Для начала просмотра результатов пользователь необходимо нажать кнопку «просмотреть результат», после чего форма примет следующий вид:
Рисунок 2.2.3 Вид главного окна после выполнения поиска
Так как подходящие записи выводятся по одной, то в программе предусмотрена кнопка «Следующая запись»:
procedure TForm1.Button4Click(Sender: TObject);
begin
label1.Visible:=false;
label22.Visible:=true;
image2.Visible:=false;
if t<=j-1 then begin
if t=j-1 then
button4.Enabled:=false;
t:=t+1;
label22.Caption:=inttostr(t)+' из '+inttostr(j);
panel1.Visible:=true;
label9.Visible:=true;
label10.Visible:=true;
label11.Visible:=true;
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
label9.Caption:=rezpoisk[1,t];
label10.Caption:=rezpoisk[3,t];
label11.Caption:=rezpoisk[5,t]+' ('+rezpoisk[4,t]+' форма обучения)';
s:=rezpoisk[6,t];
for i:=1 to length(s) do
if (s[i]='.') or (s[i]='-') then Insert(#13,s,i+1);
label17.Caption:=s;
s:=rezpoisk[7,t];
for i:=1 to length(s) do
if (s[i]='.') or (s[i]='-') then Insert(#13,s,i+1);
label18.Caption:=s;
label19.Caption:=rezpoisk[8,t];
label20.Caption:=rezpoisk[9,t];
label21.Caption:=rezpoisk[10,t]+#13+rezpoisk[11,t]+#13+rezpoisk[12,t];
button4.Caption:='Следующая запись';
end;
if t>1 then
button6.Enabled:=true;
end;
и «предыдущая запись»:
procedure TForm1.Button6Click(Sender: TObject);
begin
label22.Visible:=true;
if t>=1 then begin
if t=2 then
button6.Enabled:=false;
t:=t-1;
label22.Caption:=inttostr(t)+' из '+inttostr(j);
panel1.Visible:=true;
label9.Visible:=true;
label10.Visible:=true;
label11.Visible:=true;
label9.Caption:=rezpoisk[1,t];
label10.Caption:=rezpoisk[3,t];
label11.Caption:=rezpoisk[5,t]+' ('+rezpoisk[4,t]+' форма обучения)' ;
s:=rezpoisk[6,t];
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
for i:=1 to length(s) do
if (s[i]='.') or (s[i]='-') then Insert(#13,s,i+1);
label17.Caption:=s;
s:=rezpoisk[7,t];
for i:=1 to length(s) do
if (s[i]='.') or (s[i]='-') then Insert(#13,s,i+1);
label18.Caption:=s;
label19.Caption:=rezpoisk[8,t];
label20.Caption:=rezpoisk[9,t];
label21.Caption:=rezpoisk[10,t]+#13+rezpoisk[11,t]+#13+rezpoisk[12,t];
end;
if t<j then
button4.Enabled:=true;
end;
При нажатии кнопки «Справка» вызывается новая форма, в которой осуществляется чтение из файла справки и вывод текста на форму.
procedure TForm2.FormCreate(Sender: TObject);
begin
assignfile(spr,'spravka.txt');
reset(spr);
while eof(spr)<>true do begin
readln(spr,str);
label1.Caption:=label1.Caption+#13+str;
end;
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
end;
Окно справки выглядит так:
Рисунок 2.2.4 Вид окна справки
Полный листинг программы отображен в Приложении А.
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
3. ПРОГРАММА РЕШЕНИЯ ЗАДАЧИ
Для проектирования системы были использованы UML-диаграммы.
UML позволяет разработчикам программного обеспечения достигнуть соглашения в графических обозначениях для представления общих понятий (таких как класс, компонент, обобщение, объединение и поведение, и больше сконцентрироваться на проектировании и архитектуре.
Для представления логической структуры системы использовались следующие диаграммы:
Диаграмма классов (Class diagram) — статическая структурная диаграмма, описывающая структуру системы, она демонстрирует классы системы, их атрибуты, методы и зависимости между классами.[5]
Существуют разные точки зрения на построение диаграмм классов в зависимости от целей их применения:
концептуальная точка зрения — диаграмма классов описывает модель предметной области, в ней присутствуют только классы прикладных объектов;
точка зрения спецификации — диаграмма классов применяется при проектировании информационных систем;
точка зрения реализации — диаграмма классов содержит классы, используемые непосредственно в программном коде (при использовании объектно-ориентированных языков программирования). [5]
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
Рисунок 3.1.1 Диаграмма классов
Диаграмма автомата (State Machine diagram, диаграмма конечного автомата, диаграмма состояний) — диаграмма, на которой представлен конечный автомат с простыми состояниями, переходами и композитными состояниями. [5]
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
Выбор диска
Поиск
Просмотр информации
Печать
Сохранить
Ввод новых параметров
Рисунок 3.1.2 Диаграмма состояний
Диаграмма деятельности (Activity diagram) — диаграмма, на которой показано разложение некоторой деятельности на её составные части. Под деятельностью (англ. activity) понимается спецификация исполняемого поведения в виде координированного последовательного и параллельного выполнения подчинённых элементов — вложенных видов деятельности и отдельных действий (англ. action), соединённых между собой потоками, которые идут от выходов одного узла ко входам другого. [5]
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
Рисунок 3.1.3 Диаграмма деятельности
Диаграмма последовательности (Sequence diagram) — диаграмма, на которой изображено упорядоченное во времени взаимодействие объектов. В частности, на ней изображаются участвующие во взаимодействии объекты и последовательность сообщений, которыми они обмениваются. [5]
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
рисунок 3.1.4 Диаграмма деятельности
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
3.2 Физическая структура
Диаграмма прецедентов (Use case diagram, диаграмма вариантов использования) — диаграмма, на которой отражены отношения, существующие между актерами и прецедентами.
Основная задача — представлять собой единое средство, дающее возможность заказчику, конечному пользователю и разработчику совместно обсуждать функциональность и поведение системы. [5]
Рисунок 3.2.1 Диаграмма вариантов использования
Диаграмма коммуникации (Communication diagram, в UML 1.x — диаграмма кооперации, collaboration diagram) — диаграмма, на которой зображаются взаимодействия между частями композитной структуры или ролями кооперации. В отличие от диаграммы последовательности, на диаграмме коммуникации явно указываются отношения между элементами (объектами), а время как отдельное измерение не используется (применяются порядковые номера вызовов). [5]
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
4. ТЕСТИРОВАНИЕ
Для проверки работоспособности программного средства проведем испытание готового продукта в нескольких специальных режимах эксплуатации.
Для первого запуска выберем конкретную профессию и заполним все параметры поиска конкретно для выбранной профессии.
Рисунок 4.1.1 Запуск 1. Ввод параметров
Результатом выполнения данного запроса должна быть только одна запись, так как в данном учебном заведении есть только одна специальность с квалификацией «юрист со знанием экономики». Выполним поиск и просмотрим результат выполнения программы.
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
Рисунок 4.1.2 Запуск 1. Результат выполнения программы
Для второго запуска заполним параметры которые не подходят ни одной из профессий в базе. Например, три одинаковых вступительных испытания.
Рисунок 4.2.1 Запуск 2. Ввод параметров
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
При выполнении такого поиска программа не должна найти ни одной записи и вывести сообщение, что поиск прошел безрезультатно.
Рисунок 4.2.2 Запуск 2. Вывод результата
Для третьего запуска выполним пустой поиск, т.е. ничего не заполняя в полях для ввода параметров.
Рисунок 4.3.1 Запуск 3. Ввод параметров
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
При выполнении такого поиска программа будет выводить все имеющиеся записи по всем учебным заведениям.
Рисунок 4.3.2 Запуск 3. Вывод результата
По результатам тестирования видно, что программа работает корректно.
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
5. ПРИМЕНЕНИЕ
Файловые менеджеры предназначены для широкого круга пользователей.
Данный программный продукт разработан для пользователей , которые использую операционные системы семейства Windows95 и выше. Программный продукт позволяет работать с файлами и каталогами, которые находятся на локальных дисках, и производить стандартные операции над ними. Также в программе предусмотрена работа с архивами, FTP и поиск файлов.
Для работы приложения необходимо иметь 20Mb свободного места на HDD, ОЗУ 256Mb.
Устанавливать разрешение монитора не требуется, так как форма открывается в соответствии с разрешением монитора. В состав ПК должно входить: мышь, клавиатура, монитор.
(При запуске программы открывается готовое для работы окно программы . Для выбора диска необходимо в поиска нужно нажать "Ввести параметры поиска", для ввода необходимых параметров появляются поля для их заполнения. Пользователю не обязательно вводить все приведенные параметры, в данном случае не введенные параметры не будут учитываться в поиске. При запуске "пустого", программа будет выводить все записи из базы.
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
Для просмотра результатов поиска необходимо нажать кнопку "Просмотреть результат". Если найдено несколько записей, то на форме они будут отображаться по одной. Для просмотра записей необходимо воспользоваться кнопкой "Следующая запись" и "Предыдущая запись".
В программе предусмотрена возможность сохранения всех результатов поиска, при нажатии кнопки "Сохранить результаты поиска" все подходящие записи будут пронумерованы и записаны в файл rezultat.txt, который находится в папке с программой.
При необходимости можно произвести новый поиск. После нажатия кнопки "Новый поиск" все предыдущие результаты будут утеряны и нужно заново вводить параметры поиска. Так же при повторном сохранении - результаты прошлого поиска будут утеряны.
Для завершения работы программы необходимо нажать кнопку "Выход".)
Для запуска программы служит исполняемый файл «Lycan.exe».
Время загрузки программы зависит от параметров компьютера.
Входной информацией являются логические диски и их содержимое.
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
5.3.3 Выходные данные
Выходными данными являются результаты поиска, которые могут быть просмотрены тремя способами:
Все три способа не исключают друг друга и могут применяться к одному результату по очереди.
Для инсталляции системы необходимо запустить файл «Lycan.exe». В диалоговом окне инсталлятора необходимо указать директорию, в которую будет установлена система. Для работы с системой пользователю необходимо запустить ярлык «Lycan Commander», который находится на рабочем столе, либо воспользоваться меню Пуск->Все программы>Lycan Commander.
Диалог с пользователем осуществляется через удобный и понятный интерфейс.
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
5.3.6 Система помощи
Система помощи реализована через пункт меню «Справка», при нажатии которой открывается файл помощи, с подробным руководством по использованию программного продукта . Также в программе реализована система всплывающих подсказок. Пользователю просто необходимо навести курсор мыши на элемент формы и снизу появится подсказка с информацией о том, что означает данный элемент.
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
6. ЭКОНОМИЧЕСКИЙ РАЗДЕЛ
В рамках этого этапа проводится расчет затрат времени на выполнение работ по созданию программного продукта. Все работы, требующиеся для разработки программы, можно разделить на 2 группы:
В разработку программного продукта входит следующий перечень работ:
Для расчета ожидаемого времени выполнения работ возьмем значения времени выполнения при благоприятных условиях и при неблагоприятных условиях и произведем вычисления, взяв среднее арифметическое от оптимистичной и пессимистичной оценок.
На разработку программного продукта будет затрачено максимально 39 дней (с 1 декабря по 26января) при следующих исходных данных:
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
Таблица 6.1.2.1 Расчет трудоемкости внедрения программного продукта
|
Наименование работы |
Вероятностные оценки, дни |
||
|
Tmin |
Tmax |
Tож |
|
|
Постановка проблемы |
1 |
2 |
1,5 |
|
Описание предметной области |
2 |
3 |
2,5 |
|
Проектирование файлового менеджера |
20 |
21 |
18 |
|
Отладка приложения |
3 |
4 |
3 |
|
Оформление документов |
5 |
7 |
6 |
|
Внедрение приложения |
1 |
2 |
1,5 |
|
Общая продолжительность работы составляет: |
32 |
39 |
32,5 |
2
tmin+ tmax
tож = (2.1)
где Тож – ожидаемое время продолжительности работ
Тmin – оценка при наиболее благоприятных условиях
Tmax – оценка при наиболее неблагоприятных условиях
2
32+39
tож = = 35,5
Ожидаемое время выполнения работ по разработке программного продукта «Lycan Commander» = 35,5 дня.
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
6.2 Расчет себестоимости и цены разработки программного продукта
Себестоимость разработки информационной системы - это, как правило, совокупность затрат на разработку программного продукта. Затраты на разработку программы подразделяются на следующие статьи расходов:
В статье «Материальные затраты» предусмотрены затраты на материалы, применяемые при использовании данного программного продукта на предприятии. Расчет стоимости материальных затрат произведен в таблице 6.3.1.1.
Таблица 6.3.1.1 Расчет стоимости материальных затрат
|
Наименование материала |
Количество комплектов, шт. |
Цена одного комплекта, руб. |
Транспортные затраты, руб. |
Сумма затрат, руб. |
|
Компакт-диск чистый) |
1 |
3500 |
0 |
3500 |
|
Бумага |
1 |
45000 |
2200 |
47200 |
|
Ручка |
1 |
5000 |
0 |
5000 |
|
Всего |
- |
- |
- |
55700 |
Расчет ЗП программиста производится в соответствии с трудоемкостью
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
разработки программного продукта.
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
Данные для расчета:
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
Оклад – 382370 руб.;
Часовая тарифная ставка (Сч) определяется:
Фрв
Оклад
Сч = ,
где Фрв – плановый фонд рабочего времени за месяц, из расчета 22 рабочих дня по 8 часов.
176
382370
Сч = = 2172,5 рубля в час
Основная заработная плата программиста за разработку программы составит:
ЗПосн = Сч ∙ Тож
ЗПосн = 2172,5 ∙ (35,5 ∙ 8) = 2172,5 ∙ 260 = 616990 руб.;
Дополнительная заработная плата:
100
ЗПосн∙15
ЗПдоп =
100
564850∙15
ЗПдоп = = 92549 руб.
Итого затраты на оплату труда:
ЗПобщ = ЗПосн + ЗПдоп
ЗПобщ = 616990 + 92549 = 709539 руб.
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
6.3.3 Расчет единого социального налога
При ставке 30% от общей суммы заработной платы, ФСЗН высчитывается по формуле:
100
ЗПобщ∙30
ФСЗН = ,
100
709539 ∙30
ФСЗН = = 212862 руб.
В статью включены затраты, связанные с обслуживанием и организацией производства. В данном случае – это расходы на электроэнергию, потребляемую компьютером за время разработки программы и амортизационные отчисления.
Таблица 6.3.4.1 – Затраты на электроэнергию
|
Вид оборудования |
Мощность, кВт |
Стоимость, 1 кВт/час (Без НДС) |
Время работы оборудования, Тож час |
Сумма затрат, руб. |
|
ПК |
0,4 |
510 |
228 |
46512 |
|
Итого |
- |
- |
- |
46512 |
В таблице 6.3.4.1 выполнены расчеты по затрате ресурсов на электроэнергию по формуле:
Сумма = (М ∙ С) ∙ Т,
где М - Мощность, кВт
С - Стоимость , 1 кВт/час
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
Т - Время работы оборудования, Тож час
В таблице 4 рассчитана сумма амортизационных отчислений за период разработки программного продукта в днях.
Таблица 6.3.4.2 – Амортизационные отчисления
|
Вид оборудования |
Первоначальная стоимость, руб. |
Количество рабочих месяцев |
Норма амортизации % |
Сумма амортизационных отчислений, руб. |
|
ПК |
2200000 |
24 |
12,5 |
180400 |
|
Итого |
- |
- |
- |
180400 |
Сумма амортизационных отчислений за период разработки, определяются по следующим формулам:
100
Сп∙ На
Аг =
12
Аг
Тмес
∙
Амес = ,
где Сп – первоначальная стоимость оборудования, руб.;
На – годовая норма амортизации, %;
Тмес – трудоемкость разработки программы, месяцы;
12 – количество календарных месяцев в году;
Прочие накладные расходы – 20% от основной заработной платы:
141908 руб
=
100
709539∙20
Сумма накладных расходов = затраты на электроэнергию + амортизационные отчисления + прочие накладные расходы.
Сумма накладных расходов = 141908 + 46512+ 180400= 368820 руб.
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
6.3.5 Расчет калькуляции затрат на разработку программного продукта
Расчет калькуляции затрат наглядно представлен в таблице 6.3.5.1
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
«Калькуляция затрат на разработку программного продукта».
Таблица 6.3.5.1 Калькуляция затрат на разработку программного продукта
|
Статья затрат |
Единицы измерения |
Сумма затрат, руб. |
|
Материальные затраты |
руб. |
18210 |
|
Отчисления на социальные нужды (ФСЗН) |
% |
212862 |
|
Накладные расходы, в т.ч. амортизация |
руб. |
368820 |
|
Итого: |
- |
599892 |
Процент рентабельности (условно) – 25% ,
Прибыль рассчитывается по формуле:
100
Сполн ∙%Р
П = ,
где Сполн – себестоимость
Р - процент рентабельности.
100
599892∙25
П = = 149973 руб.
Цена программного продукта равна сумме полной себестоимости и прибыли:
Ц = Сполн + П
Ц =599892+ 149973 = 749865 руб.
Цена программного продукта с НДС:
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
100
Ц ∙18
НДС =
100
(749865 ∙18)
НДС = = 134976
Цена = 134976+ 749865 = 884841 руб.
Стоимость программного продукта составляет 884841 рубль.
График Гатта
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
7. ОХРАНА ТРУДА
Охрана труда - система законодательных актов, социально-экономических, организационных, технических, гигиенических и лечебно-профилактических мероприятий и средств, обеспечивающих безопасность, сохранение здоровья и работоспособности человека в процессе труда. Научно-технический прогресс внес серьезные изменения в условия производственной деятельности работников умственного труда. Их труд стал более интенсивным, напряженным, требующим значительных затрат умственной, эмоциональной и физической энергии. Это потребовало комплексного решения проблем эргономики, гигиены и организации труда, регламентации режимов труда и отдыха.
Охрана здоровья трудящихся, обеспечение безопасности условий труда, ликвидация профессиональных заболеваний и производственного травматизма составляет одну из главных забот человеческого общества. Обращается внимание на необходимость широкого применения прогрессивных форм научной организации труда, сведения к минимуму ручного, малоквалифицированного труда, создания обстановки, исключающей профессиональные заболевания и производственный травматизм.
Данный раздел дипломного проекта посвящен рассмотрению следующих вопросов:
Рабочее место - это часть пространства, в котором инженер осуществляет трудовую деятельность, и проводит большую часть рабочего времени. Рабочее место, хорошо приспособленное к трудовой деятельности инженера, правильно и целесообразно организованное, в отношении пространства, формы, размера обеспечивает ему удобное положение при работе и высокую
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
производительность труда при наименьшем физическом и психическом напряжении.
При правильной организации рабочего места производительность труда инженера возрастает с 8 до 20 процентов.
Согласно ГОСТ 12.2.032-78 конструкция рабочего места и взаимное расположение всех его элементов должно соответствовать антропометрическим, физическим и психологическим требованиям. Большое значение имеет также характер работы. В частности, при организации рабочего места программиста должны быть соблюдены следующие основные условия:
Главными элементами рабочего места программиста являются письменный стол и кресло. Основным рабочим положением является положение сидя. Рабочее место для выполнения работ в положении сидя организуется в соответствии с ГОСТ 12.2.032-78.
Рабочая поза сидя вызывает минимальное утомление программиста. Рациональная планировка рабочего места предусматривает четкий порядок и постоянство размещения предметов, средств труда и документации. То, что требуется для выполнения работ чаще, расположено в зоне легкой досягаемости рабочего пространства.
Моторное поле - пространство рабочего места, в котором могут осуществляться двигательные действия человека.
Максимальная зона досягаемости рук - это часть моторного поля рабочего места, ограниченного дугами, описываемыми максимально вытянутыми руками при движении их в плечевом суставе.
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
Оптимальная зона - часть моторного поля рабочего места, ограниченного дугами, описываемыми предплечьями при движении в локтевых суставах с опорой в точке локтя и с относительно неподвижным плечом.
Рисунок 7.1.1 Зоны досягаемости рук в горизонтальной плоскости
Зоны досягаемости рук в горизонтальной плоскости.
а - зона максимальной досягаемости;
б - зона досягаемости пальцев при вытянутой руке;
в - зона легкой досягаемости ладони;
г - оптимальное пространство для грубой ручной работы;
д - оптимальное пространство для тонкой ручной работы.
Рассмотрим оптимальное размещение предметов труда и документации в зонах досягаемости рук:
ДИСПЛЕЙ размещается в зоне а (в центре);
КЛАВИАТУРА - в зоне г/д;
СИСТЕМНЫЙ БЛОК размещается в зоне б (слева);
ПРИНТЕР находится в зоне а (справа);
ДОКУМЕНТАЦИЯ
При проектировании письменного стола следует учитывать следующее:
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
высота стола должна быть выбрана с учетом возможности сидеть свободно, в удобной позе, при необходимости опираясь на подлокотники;
Параметры рабочего места выбираются в соответствии с антропометрическими характеристиками. При использовании этих данных в расчетах следует исходить из максимальных антропометрических характеристик (М+2).
При работе в положении сидя рекомендуются следующие параметры рабочего пространства:
Оптимальными размерами стола являются:
Поверхность для письма должна иметь не менее 40 мм в глубину и не менее 600 мм в ширину.
Под рабочей поверхностью должно быть предусмотрено пространство для ног:
Важным элементом рабочего места программиста является кресло. Оно выполняется в соответствии с ГОСТ 21.889-76. При проектировании кресла исходят из того, что при любом рабочем положении программиста его поза должна быть физиологически правильно обоснованной, т.е. положение частей тела должно быть оптимальным. Для удовлетворения требований физиологии, вытекающих из анализа положения тела человека в положении сидя,
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
конструкция рабочего сидения должна удовлетворять следующим основным требованиям:
Исходя из вышесказанного, приведем параметры стола программиста:
Поверхность для письма:
Важным моментом является также рациональное размещение на рабочем месте документации, канцелярских принадлежностей, что должно обеспечить работающему удобную рабочую позу, наиболее экономичные движения и минимальные траектории перемещения работающего и предмета труда на данном рабочем месте.
Создание благоприятных условий труда и правильное эстетическое оформление рабочих мест на производстве имеет большое значение как для облегчения труда, так и для повышения его привлекательности, положительно влияющей на производительность труда. Окраска помещений и мебели должна способствовать созданию благоприятных условий для зрительного восприятия, хорошего настроения. В служебных помещениях, в которых выполняется однообразная умственная работа, требующая значительного нервного напряжения и большого сосредоточения, окраска должна быть спокойных тонов - малонасыщенные оттенки холодного зеленого или голубого цветов
При разработке оптимальных условий труда программиста необходимо учитывать освещенность, шум и микроклимат.
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
7.2 Освещенность рабочего места
Рациональное освещение рабочего места является одним из важнейших факторов, влияющих на эффективность трудовой деятельности человека, предупреждающих травматизм и профессиональные заболевания. Правильно организованное освещение создает благоприятные условия труда, повышает работоспособность и производительность труда. Освещение на рабочем месте программиста должно быть таким, чтобы работник мог без напряжения зрения выполнять свою работу. Утомляемость органов зрения зависит от ряда причин:
Недостаточность освещения приводит к напряжению зрения, ослабляет внимание, приводит к наступлению преждевременной утомленности. Чрезмерно яркое освещение вызывает ослепление, раздражение и резь в глазах. Неправильное направление света на рабочем месте может создавать резкие тени, блики, дезориентировать работающего. Все эти причины могут привести к несчастному случаю или профзаболеваниям, поэтому столь важен правильный расчет освещенности.
Расчет освещенности рабочего места сводится к выбору системы освещения, определению необходимого числа светильников, их типа и размещения. Процесс работы программиста в таких условиях, когда естественное освещение недостаточно или отсутствует. Исходя из этого, рассчитаем параметры искусственного освещения.
Искусственное освещение выполняется посредством электрических источников света двух видов: ламп накаливания и люминесцентных ламп. Будем использовать люминесцентные лампы, которые по сравнению с лампами накаливания имеют существенные преимущества:
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
обладают повышенной светоотдачей (в 3-4 раза выше, чем у ламп накаливания);
Расчет освещения производится для комнаты площадью 36 м2 , ширина которой 4.9 м, высота - 4.2 м. Воспользуемся методом светового потока.
Для определения количества светильников определим световой поток, падающий на поверхность по формуле:
, где
F - рассчитываемый световой поток, Лм;
Е - нормированная минимальная освещенность, Лк (определяется по таблице). Работу программиста, в соответствии с этой таблицей, можно отнести к разряду точных работ, следовательно, минимальная освещенность будет Е = 300 Лк при газоразрядных лампах;
S - площадь освещаемого помещения ( в нашем случае S = 36 м2 );
Z - отношение средней освещенности к минимальной (обычно принимается равным 1.1-1.2 , пусть Z = 1.1);
К - коэффициент запаса, учитывающий уменьшение светового потока лампы в результате загрязнения светильников в процессе эксплуатации (его значение определяется по таблице коэффициентов запаса для различных помещений и в нашем случае К = 1.5);
n - коэффициент использования, (выражается отношением светового потока, падающего на расчетную поверхность, к суммарному потоку всех ламп и исчисляется в долях единицы; зависит от характеристик светильника, размеров помещения, окраски стен и потолка, характеризуемых коэффициентами отражения от стен (Рс) и потолка (Рп)), значение коэффициентов Рс и Рп определим по таблице зависимостей коэффициентов отражения от характера поверхности: Рс=30%, Рп=50%. Значение n определим по таблице коэффициентов использования различных светильников. Для этого вычислим индекс помещения по формуле:
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
, где
S - площадь помещения, S = 36 м2;
h - расчетная высота подвеса, h = 3.39 м;
A - ширина помещения, А = 4.9 м;
В - длина помещения, В = 7.35 м.
Подставив значения получим:
Зная индекс помещения I, Рс и Рп, по таблице находим n = 0.28
Подставим все значения в формулу для определения светового
потока F:
Лм
Для освещения выбираем люминесцентные лампы типа ЛБ40-1, световой поток которых F = 4320 Лк.
Рассчитаем необходимое количество ламп по формуле:
, где
N - определяемое число ламп;
F - световой поток, F = 63642,857 Лм;
Fл- световой поток лампы, Fл = 4320 Лм.
шт.
При выборе осветительных приборов используем светильники типа ОД. Каждый светильник комплектуется двумя лампами. Размещаются светильники двумя рядами, по четыре в каждом ряду.
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
7.3 Параметры микроклимата на рабочем месте
Параметры микроклимата могут меняться в широких пределах, в то время как необходимым условием жизнедеятельности человека является поддержание постоянства температуры тела благодаря свойству терморегуляции, т.е. способности организма регулировать отдачу тепла в окружающую среду.
Основной принцип нормирования микроклимата - создание оптимальных условий для теплообмена тела человека с окружающей средой. В санитарных нормах СН-245/71 установлены величины параметров микроклимата, создающие комфортные условия. Эти нормы устанавливаются в зависимости от времени года, характера трудового процесса и характера производственного помещения (значительные или незначительные тепловыделения). Для рабочих помещений с избыточным тепловыделением до 20 ккал/м3 допустимые и оптимальные значения параметров микроклимата приведены в таблице:
Таблица 7.3.1 параметры микроклимата
|
Время года |
Зона |
Температура воздуха, 0 C |
Относительная влажность, % |
Скорость движения воздуха, м/с |
|
Холодный Период |
Оптимальная |
18 - 21 |
60 - 40 |
< 0.2 |
|
Переходный Период |
Допустимая |
17 – 21 |
< 75 |
< 0.3 |
|
Теплый период года (t > 100 C) |
Оптимальная |
20 - 25 |
60 - 40 |
< 0.3 |
|
Допустимая |
< 28 в 13 часов самого жаркого мес. |
< 75 |
< 0.5 |
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
В настоящее время для обеспечения комфортных условий используются как организационные методы, так и технические средства. К числу организационных относятся рациональная организация проведения работ в зависимости от времени года и суток, а также организация правильного чередования труда и отдыха. В связи с этим рекомендуется на территории предприятия организовывать зеленую зону со скамейками для отдыха и водоемом (бассейны, фонтаны). Технические средства включают вентиляцию, кондиционирование воздуха, отопительную систему.
Установлено, что шум ухудшает условия труда, оказывая вредное воздействие на организм человека. При длительном воздействии шума на человека происходят нежелательные явления: снижается острота зрения, слуха, повышается кровяное давление, понижается внимание. Сильный продолжительный шум может стать причиной функциональных изменений сердечнососудистой и нервной систем.
Согласно ГОСТ 12.1.003-88 ("Шум. Общие требования безопасности") характеристикой постоянного шума на рабочих местах являются среднеквадратичные уровни давлений в октавных полосах частот со среднегеометрическими стандартными частотами: 63, 125, 250, 500, 1000, 2000, 4000 и 8000 Гц. В этом ГОСТе указаны значения предельно допустимых уровней шума на рабочих местах предприятий. Для помещении конструкторских бюро, расчетчиков и программистов уровни шума не должны превышать соответственно: 71, 61, 54, 49, 45, 42, 40, 38 дБ. Эта совокупность восьми нормативных уровней звукового давления называется предельным спектром.
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
7.5 Методы защиты от шума
Строительно-акустические методы защиты от шума предусмотрены строительными нормами и правилами (СНиП-II-12-77). это:
На рабочем месте программиста источниками шума, как правило, являются технические средства, как то - компьютер, принтер, вентиляционное оборудование, а также внешний шум. Они издают довольно незначительный шум, поэтому в помещении достаточно использовать звукопоглощение. Уменьшение шума, проникающего в помещение извне, достигается уплотнением по периметру притворов окон и дверей. Под звукопоглощением понимают свойство акустически обработанных поверхностей уменьшать интенсивность отраженных ими волн за счет преобразования звуковой энергии в тепловую. Звукопоглощение является достаточно эффективным мероприятием по уменьшению шума. Наиболее выраженными звукопоглощающими свойствами обладают волокнисто-пористые материалы: фибролитовые плиты, стекловолокно, минеральная вата, полиуретановый поропласт, пористый поливинилхлорид и др. К звукопоглощающим материалам относятся лишь те, коэффициент звукопоглощения которых не ниже 0.2.
Звукопоглощающие облицовки из указанных материалов (например, маты из супертонкого стекловолокна с оболочкой из стеклоткани нужно разместить на потолке и верхних частях стен). Максимальное звукопоглощение будет достигнуто при облицовке не менее 60% общей площади ограждающих поверхностей помещения.
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
Вентиляция
Системы отопления и системы кондиционирования следует устанавливать так, чтобы ни теплый, ни холодный воздух не направлялся на людей. На производстве рекомендуется создавать динамический климат с определенными перепадами показателей. Температура воздуха у поверхности пола и на уровне головы не должна отличаться более, чем на 5 градусов. В производственных помещениях помимо естественной вентиляции предусматривают приточно-вытяжную вентиляцию. Основным параметром, определяющим характеристики вентиляционной системы, является кратность обмена, т.е. сколько раз в час сменится воздух в помещении.
Программист, в зависимости от подготовки и опыта, решает задачи разной сложности, но в общем случае работа программиста строится по следующему алгоритму:
Таблица 7.7.1 Алгоритм работы программиста
|
Этап |
Содержание |
Затрата времени, % |
|
I II |
Постановка задачи Изучение материала по поставленной задаче |
6.25 |
|
III |
Определение метода решения задачи |
6.25 |
|
IV |
Составление алгоритма решения задачи |
12.5 |
|
V |
Программирование |
25 |
|
VI |
Отладка программы, составление отчета |
50 |
Данный алгоритм отражает общие действия программиста при решении поставленной задачи независимо от ее сложности.
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
Таблица 7.7.2 Алгоритм работы программиста. Этап I
|
Этап |
Член алгоритма |
Содержание работы |
Буквенное обозначение |
|
I |
1 |
Получение первого варианта технического задания |
A1 |
|
2 |
Составление и уточнение технического задания |
B1 |
|
|
3 |
Получение окончательного варианта технического задания |
C1j1 ↑2 |
|
|
4 |
Составление перечня материалов, существующих по тематике задачи |
H1j2 |
|
|
5 |
Изучение материалов по тематике задачи |
A2 |
|
|
6 |
Выбор метода решения |
C2J3 |
|
|
7 |
Уточнение и согласование выбранного метода |
B2 ↑ 6 |
|
|
8 |
Окончательный выбор метода решения |
C3j4 |
|
|
1 |
2 |
3 |
4 |
|
1 |
2 |
3 |
4 |
|
9 |
Анализ входной и выходной информации, обрабатываемой задачей |
H2 |
|
|
10 |
Выбор языка программирования |
C4j5 |
|
|
11 |
Определение структуры программы |
H3C5q1 |
|
|
12 |
Составление блок-схемы программы |
C6q2 |
|
|
13 |
Составление текстов программы |
C7w1 |
|
|
14 |
Логический анализ программы и корректирование ее |
F1H4w2 |
|
|
15 |
Компиляция программы |
F2 ↓ 18 |
|
|
16 |
Исправление ошибок |
D1w3 |
|
|
17 |
Редактирование программы в единый загрузочный модуль |
F2H5B3w4 |
|
|
18 |
Выполнение программы |
F3 |
|
|
19 |
Анализ результатов выполнения |
H6w5 ↑ 15 |
|
|
20 |
Тестирование |
C8w6 ↑ 15 |
|
|
21 |
Подготовка отчета о работе |
F4 |
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
Подсчитаем количество членов алгоритма и их частоту (вероятность) относительно общего числа, принятого за единицу. Вероятность повторения i-ой ситуации определяется по формуле:
pi = k/n,
где k – количество повторений каждого элемента одного типа.
n – суммарное количество повторений от источника информации, одного типа.
Результаты расчета сведем в таблицу 7.7.3:
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
Таблица 7.7.3 Результаты расчета
|
Источник информации |
Члены алгоритма |
Символ |
Количество членов |
Частота повторений pi |
|
1 |
Афферентные – всего (n), в том числе (к): |
6 |
1,00 |
|
|
Изучение технической документации и литературы |
A |
2 |
0,33 |
|
|
Наблюдение результатов |
F |
4 |
0, 67 |
|
|
2 |
Эфферентные – всего, В том числе: |
18 |
1,00 |
|
|
Уточнение и согласование полученных материалов |
B |
3 |
0,17 |
|
|
Выбор наилучшего варианта из нескольких |
C |
8 |
0,44 |
|
|
Исправление ошибок |
D |
1 |
0,06 |
|
|
Анализ полученных результатов |
H |
6 |
0,33 |
|
|
Выполнение механических действий |
K |
0 |
0 |
|
|
3 |
Логические условия – всего в том числе |
13 |
1,00 |
|
|
Принятие решений на основе изучения технической литературы |
j |
5 |
0,39 |
|
|
Графического материала |
q |
2 |
0,15 |
|
|
1 |
2 |
3 |
4 |
5 |
|
1 |
2 |
3 |
4 |
5 |
|
Полученного текста программы |
w |
6 |
0,46 |
|
|
Всего: |
37 |
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
Количественные характеристики алгоритма (Табл. 3.7.3) позволяют рассчитать информационную нагрузку программиста. Энтропия информации элементов каждого источника информации рассчитывается по формуле, бит/сигн:
,
где m – число однотипных членов алгоритма рассматриваемого источника информации.
H1 = 2 * 2 + 2 * 4 = 10
H2 = 3 * 1,585 + 8 * 3 + 0 + 6 * 2,585 = 44, 265
H3 = 5 * 2,323 + 2 * 1 + 6 + 2,585 = 29,125
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
Затем определяется общая энтропия информации, бит/сигн:
HΣ = H1 + H2 + H3,
где H1, H2, H3 – энтропия афферентных, эфферентных элементов и логических условий соответственно.
HΣ = 10 + 44,265 + 29,125 = 83,39
Далее определяется поток информационной нагрузки бит/мин,
,
где N – суммарное число всех членов алгоритма;
t – длительность выполнения всей работы, мин.
От каждого источника в информации (члена алгоритма) в среднем поступает 3 информационных сигнала в час, время работы - 225 часов,
Ф = = 2,6 бит/с
Рассчитанная информационная нагрузка сравнивается с допустимой. При необходимости принимается решение об изменениях в трудовом процессе.
Условия нормальной работы выполняются при соблюдении соотношения:
где Фдоп.мин. и Фдоп.макс. – минимальный и максимальный допустимые уровни информационных нагрузок (0,8 и 3,2 бит/с соответственно);
Фрасч. – расчетная информационная нагрузка
0,8 < 2,6 <3,2
В этой части дипломной работы были изложены требования к рабочему месту программиста (пользователя). Созданные условия должны обеспечивать комфортную работу. На основании изученной литературы по данной проблеме,
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
были указаны оптимальные размеры рабочего стола и кресла, рабочей поверхности, а также проведен выбор системы и расчет оптимального освещения производственного помещения, а также расчет информационной нагрузки. Соблюдение условий, определяющих оптимальную организацию рабочего места программиста, позволит сохранить хорошую работоспособность в течение всего рабочего дня, повысит, как в количественном, так и в качественном отношениях производительность труда программиста.
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
ЗАКЛЮЧЕНИЕ
В ходе дипломного проектирования была поставлена и достигнута следующая цель:
Создание файлового менеджера «Lycan Commander». В данном программном продукте реализован двухпанельный режим работы, а так же возможность работы с архивами и FTP .
Реализация данной цели потребовала содержательного и методического решения следующих задач:
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
ЛИТЕРАТУРА
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
ПРИЛОЖЕНИЯ
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, GridsEh, DBGridEh, PrViewEh, MemTableDataEh,
Db, DataDriverEh, ComCtrls, ExtCtrls, DBTables, Buttons, XPMan, jpeg;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Label4: TLabel;
Edit3: TEdit;
Label5: TLabel;
Label6: TLabel;
ComboBox5: TComboBox;
ComboBox6: TComboBox;
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
Label7: TLabel;
Edit4: TEdit;
Button2: TButton;
Label8: TLabel;
Button3: TButton;
Button4: TButton;
PrintDialog1: TPrintDialog;
Button5: TButton;
RichEdit1: TRichEdit;
Panel1: TPanel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Panel2: TPanel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Button6: TButton;
Label22: TLabel;
ComboBox1: TComboBox;
Button7: TButton;
Button8: TButton;
BitBtn1: TBitBtn;
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
Button9: TButton;
Label23: TLabel;
Image1: TImage;
Image2: TImage;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure ComboBox6Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
rezpoisk:array[1..12,1..100]of string;
prom:array[1..12]of string;
parpoiska:array[1..12]of string;
s,s1:string;
i,j,k,t,n:integer;
f,f1:textfile;
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
t:=0;
parpoiska[1]:=combobox1.Text;
parpoiska[2]:=combobox6.Text;
parpoiska[4]:=combobox2.Text;
parpoiska[7]:=edit2.Text;
parpoiska[8]:=edit4.Text;
parpoiska[9]:=edit3.Text;
parpoiska[10]:=combobox3.Text;
parpoiska[11]:=combobox4.Text;
parpoiska[12]:=combobox5.Text;
j:=0;
reset(f);
while eof(f)<>true do begin
readln(f,s);
if s[1]=':' then begin
readln(f,s);
prom[1]:=s;
readln(f,s);
prom[2]:=s;
readln(f,s);
prom[3]:=s;
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
end
else if s[1]='-' then
prom[4]:=copy(s,2,length(s)-1)
else if s[1]='=' then
prom[5]:=copy(s,2,length(s)-1)
else if s[1]='.' then begin
prom[6]:=copy(s,2,length(s)-1);
readln(f,s);
prom[7]:=s;
readln(f,s);
prom[8]:=s;
readln(f,s);
prom[9]:=s;
readln(f,s);
prom[10]:=s;
readln(f,s);
prom[11]:=s;
readln(f,s);
prom[12]:=s;
k:=0;
for i:=1 to 7 do begin
if parpoiska[i]<>'' then
if parpoiska[i]<>prom[i] then
k:=1;
end;
s:=prom[8];
s1:='';
n:=1;
while s[n]<>' ' do begin
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
s1:=s1+s[n];
n:=n+1;
end;
if parpoiska[8]<>'' then
if strtofloat(s1)>=strtofloat(parpoiska[8]) then
k:=1;
s:=prom[9];
s1:='';
n:=1;
while s[n]<>' ' do begin
s1:=s1+s[n];
n:=n+1;
end;
if parpoiska[9]<>'' then
if strtofloat(s1)>=strtofloat(parpoiska[9]) then
k:=1;
if (parpoiska[10]<>'') and (parpoiska[10]<>'Другое') then begin
if (parpoiska[10]<>prom[10]) and (parpoiska[10]<>prom[11]) and (parpoiska[10]<>prom[12]) then
k:=1;
if (parpoiska[10]=parpoiska[11]) or (parpoiska[10]=parpoiska[12]) then
k:=1;
end;
if (parpoiska[11]<>'') and (parpoiska[11]<>'Другое') then begin
if (parpoiska[11]<>prom[10]) and (parpoiska[11]<>prom[11]) and (parpoiska[11]<>prom[12]) then
k:=1;
if (parpoiska[11]=parpoiska[10]) or (parpoiska[11]=parpoiska[12]) then
k:=1;
end;
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
if (parpoiska[12]<>'') and (parpoiska[12]<>'Другое') then begin
if (parpoiska[12]<>prom[10]) and (parpoiska[12]<>prom[11]) and (parpoiska[12]<>prom[12]) then
k:=1;
if (parpoiska[12]=parpoiska[10]) or (parpoiska[10]=parpoiska[11]) then
k:=1;
end;
if k=0 then begin
j:=j+1;
for i:=1 to 12 do
rezpoisk[i,j]:=prom[i];
end;
end;
end;
closefile(f);
if j=0 then begin
application.MessageBox('По заданым параметрам ничего не найдено. Повторите попытку.','Внимание!!!');
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
combobox1.ItemIndex:=-1;
combobox2.ItemIndex:=-1;
combobox3.ItemIndex:=-1;
combobox4.ItemIndex:=-1;
combobox5.ItemIndex:=-1;
combobox6.ItemIndex:=-1;
end
else begin
application.MessageBox('Поиск прошел успешно','Поздравляем!!!');
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
edit2.Visible:=false;
edit3.Visible:=false;
edit4.Visible:=false;
combobox1.Visible:=false;
combobox2.Visible:=false;
combobox3.Visible:=false;
combobox4.Visible:=false;
combobox5.Visible:=false;
combobox6.Visible:=false;
label2.Visible:=false;
label3.Visible:=false;
label4.Visible:=false;
label5.Visible:=false;
label6.Visible:=false;
label7.Visible:=false;
label8.Visible:=false;
button1.Visible:=false;
button2.Visible:=false;
button7.Enabled:=true;
button5.Enabled:=true;
button3.Caption:='Новый поиск';
button4.Caption:='Просмотреть результат';
button3.Enabled:=true;
button4.Enabled:=true;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit2.Text:='';
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
edit3.Text:='';
edit4.Text:='';
combobox1.ItemIndex:=-1;
combobox2.ItemIndex:=-1;
combobox3.ItemIndex:=-1;
combobox4.ItemIndex:=-1;
combobox5.ItemIndex:=-1;
combobox6.ItemIndex:=-1;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
combobox1.ItemIndex:=-1;
combobox2.ItemIndex:=-1;
combobox3.ItemIndex:=-1;
combobox4.ItemIndex:=-1;
combobox5.ItemIndex:=-1;
combobox6.ItemIndex:=-1;
edit2.Visible:=true;
edit3.Visible:=true;
edit4.Visible:=true;
combobox1.Visible:=true;
combobox2.Visible:=true;
combobox3.Visible:=true;
combobox4.Visible:=true;
combobox5.Visible:=true;
combobox6.Visible:=true;
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
label1.Visible:=true;
label2.Visible:=true;
label3.Visible:=true;
label4.Visible:=true;
label5.Visible:=true;
label6.Visible:=true;
label7.Visible:=true;
label8.Visible:=true;
label9.Visible:=false;
label10.Visible:=false;
label11.Visible:=false;
label22.Visible:=false;
panel1.Visible:=false;
button1.Visible:=true;
button2.Visible:=true;
button3.Enabled:=false;
button6.Enabled:=false;
button4.Enabled:=false;
button7.Enabled:=false;
button5.Enabled:=false;
image2.Visible:=true;
label22.Caption:='';
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
label1.Visible:=false;
label22.Visible:=true;
image2.Visible:=false;
if t<=j-1 then begin
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
if t=j-1 then
button4.Enabled:=false;
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
t:=t+1;
label22.Caption:=inttostr(t)+' из '+inttostr(j);
panel1.Visible:=true;
label9.Visible:=true;
label10.Visible:=true;
label11.Visible:=true;
label9.Caption:=rezpoisk[1,t];
label10.Caption:=rezpoisk[3,t];
label11.Caption:=rezpoisk[5,t]+' ('+rezpoisk[4,t]+' форма обучения)';
s:=rezpoisk[6,t];
for i:=1 to length(s) do
if (s[i]='.') or (s[i]='-') then Insert(#13,s,i+1);
label17.Caption:=s;
s:=rezpoisk[7,t];
for i:=1 to length(s) do
if (s[i]='.') or (s[i]='-') then Insert(#13,s,i+1);
label18.Caption:=s;
label19.Caption:=rezpoisk[8,t];
label20.Caption:=rezpoisk[9,t];
label21.Caption:=rezpoisk[10,t]+#13+rezpoisk[11,t]+#13+rezpoisk[12,t];
button4.Caption:='Следующая запись';
end;
if t>1 then
button6.Enabled:=true;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
label23.Caption:='Учреждение образования "Пинский государственный профессионально-технический колледж легкой промышленности'+#13+#13+#13+'Информационно-справочная система "Абитуриент 2011" по ВУЗам Республики Беларусь'+#13+#13+#13+'Разработчик: Ю.А.Линник';
label1.Caption:='Информационно-справочная система "Абитуриент 2011" по ВУЗам Республики Беларусь'+#13+#13+#13+'Разработчик: Ю.А.Линник';
assignfile(f,'base.txt');
assignfile(f1,'base.txt');
reset(f);
while eof(f)<>true do begin
readln(f,s);
if s[1]=':' then begin
readln(f,s);
combobox1.Items.Add(s);
end;
end;
closefile(f);
button1.hint:='Выполнение поиска по заданым параметрам';
edit2.hint:='Введите необходимую квалификацию';
edit3.hint:='Введите проходной балл';
edit4.hint:='Введите максимальное колличество веловет на 1 место';
combobox1.hint:='Выберите название ВУЗа';
combobox2.hint:='Выберите форму обучения';
combobox3.hint:='Выберите вступительное испытание';
combobox4.hint:='Выберите вступительное испытание';
combobox5.hint:='Выберите вступительное испытание';
combobox6.hint:='Выберите необходимое расположение ВУЗа';
button2.hint:='Очистить все параметры';
button3.hint:='Начать новый поиск';
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
button4.hint:='Просмотр найденых записей';
button5.hint:='Печать всех найденых записей';
button6.hint:='Просмотр найденых записей';
button7.hint:='Сохранить все найденые записи в "rezultat.txt"';
button8.hint:='Выход из программы';
bitbtn1.Hint:='Вызов справки';
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
rewrite(f1,'rezultat.txt');
for i:=1 to j do begin
writeln(f1,'Результат №'+inttostr(i));
writeln(f1,rezpoisk[1,i]);
writeln(f1,rezpoisk[3,i]);
writeln(f1,'Форма обучения: '+rezpoisk[4,i]);
writeln(f1,rezpoisk[5,i]);
writeln(f1,'Специальность: '+rezpoisk[6,i]);
writeln(f1,'Квалификация: '+rezpoisk[7,i]);
writeln(f1,'Конкурс: '+rezpoisk[8,i]);
writeln(f1,'Проходной балл: '+rezpoisk[9,i]);
writeln(f1,'Вступительные испытания: ');
writeln(f1,rezpoisk[10,i]);
writeln(f1,rezpoisk[11,i]);
writeln(f1,rezpoisk[12,i]);
writeln(f1);
end;
closefile(f1);
reset(f1);
while eof(f1)<>true do begin
readln(f1,s);
richedit1.Lines.Add(s);
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
end;
if PrintDialog1.Execute then
RichEdit1.Print('rezultat');
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
label22.Visible:=true;
if t>=1 then begin
if t=2 then
button6.Enabled:=false;
t:=t-1;
label22.Caption:=inttostr(t)+' из '+inttostr(j);
panel1.Visible:=true;
label9.Visible:=true;
label10.Visible:=true;
label11.Visible:=true;
label9.Caption:=rezpoisk[1,t];
label10.Caption:=rezpoisk[3,t];
label11.Caption:=rezpoisk[5,t]+' ('+rezpoisk[4,t]+' форма обучения)' ;
s:=rezpoisk[6,t];
for i:=1 to length(s) do
if (s[i]='.') or (s[i]='-') then Insert(#13,s,i+1);
label17.Caption:=s;
s:=rezpoisk[7,t];
for i:=1 to length(s) do
if (s[i]='.') or (s[i]='-') then Insert(#13,s,i+1);
label18.Caption:=s;
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
label19.Caption:=rezpoisk[8,t];
label20.Caption:=rezpoisk[9,t];
label21.Caption:=rezpoisk[10,t]+#13+rezpoisk[11,t]+#13+rezpoisk[12,t];
end;
if t<j then
button4.Enabled:=true;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
rewrite(f1,'rezultat.txt');
for i:=1 to j do begin
writeln(f1,'Результат №'+inttostr(i));
writeln(f1,rezpoisk[1,i]);
writeln(f1,rezpoisk[3,i]);
writeln(f1,'Форма обучения: '+rezpoisk[4,i]);
writeln(f1,rezpoisk[5,i]);
writeln(f1,'Специальность: '+rezpoisk[6,i]);
writeln(f1,'Квалификация: '+rezpoisk[7,i]);
writeln(f1,'Конкурс: '+rezpoisk[8,i]);
writeln(f1,'Проходной балл: '+rezpoisk[9,i]);
writeln(f1,'Вступительные испытания: ');
writeln(f1,rezpoisk[10,i]);
writeln(f1,rezpoisk[11,i]);
writeln(f1,rezpoisk[12,i]);
writeln(f1);
end;
closefile(f1);
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
close;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
begin
form2.show;
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
label1.Visible:=true;
button3.Visible:=true;
button4.Visible:=true;
button5.Visible:=true;
button6.Visible:=true;
button7.Visible:=true;
button8.Visible:=true;
bitbtn1.Visible:=true;
button9.Visible:=false;
label23.Visible:=false;
image1.Visible:=false;
image2.Visible:=true;
end;
procedure TForm1.ComboBox6Change(Sender: TObject);
begin
reset(f);
combobox1.Clear;
while eof(f)<>true do begin
readln(f,s);
if s[1]=':' then begin
readln(f,s);
Лист
Изм.
Лист
№ докум.
Подпись
Дата
ДП.2-40 01 01.Т11.11.ПЗ
readln(f,s1);
if s1=combobox6.Text then
combobox1.Items.Add(s);
end;
end;
closefile(f);
end;
end.