Дипломная работа: Автоматизация процесса управления знаниями в ПАО "Нижнекамскенефтехим"
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
102
Список использованной литературы
1. ГОСТ Р ИСО/МЭК 12207-2010 Информационная технология (ИТ).
Системная и программная инженерия. Процессы жизненного цикла
программных средств
2. Александров Д.В. Инструментальные средства информационного
менеджмента. CASE-технологии и распределенные информационные системы:
Учебное пособие / Д.В. Александров. - М.: ФиС, 2011. - 224 c.
3. Баронов В.В. Автоматизация управления предприятия. – М.: Инфо-М,
2015.
4. Быков В. Ю. Современные задачи информатизации образования / В.
Ю. Быков // Информационные технологии и средства обучения. - 2016. - № 1
(15).
5. Есина А. Г. Электронные учебники: преимущества и недостатки
использования [Текст] / А. Г. Есина, Л. Н. Лингура // Вестник социально-
экономических исследований. - 2014. - № 44 (1). - С. 181-186.
6. Казакова, Н. Ф. Влияние информационных технологий на
общественное сознание и образование. — 2014. — № 1. — С. 39-47.
7. Лемке Джуди Microsoft Office Visio 2007 (+ CD-ROM); ЭКОМ
Паблишерз - Москва, 2014. - 368 c.
8. Варфоломеева А.О. Информационные системы предприятия: Учебное
пособие / А.О. Варфоломеева, А.В. Коряковский, В.П. Романов. - М.: НИЦ
ИНФРА-М, 2013. - 283 c.
9. Гартвич А. 1С:Упрощенка 8.3 с нуля. 77 уроков для начинающих. –
БХВ-Петербург.: 2016. - 384 с.
10. Габец А.П. Профессиональная разработка в системе 1С: Предприятие
8.0 / А.П. Габец и др. - М .: 1С-Паблишинг, 2016. - 808 с.
11. Данелян Т.Я. Экономические информационные системы (ЭИС)
предприятий и организаций / Т.Я. Данелян. - М.: Юнити-Дана, 2015. - 284 c.
12. Зегжда Д.П. Основы безопасности информационных систем / Д.П.
Зегжда, А.М. Ивашко. - М.: Горячая линия - Телеком, 2017. - 452 c.
103
13. Ипатова Э. Р. Методологии и технологии системного проектирования
информационных систем / Э.Р. Ипатова, Ю.В. Ипатов. - М.: Флинта, 2016.-256 c.
14. Катернюк А. В. Исследование систем управления. Введение в
организационное проектирование: моногр. / А.В. Катернюк. - М.: Феникс, 2015. -
320 c.
15. Малюк А.А. Введение в защиту информации в автоматизированных
системах. Учебное пособие / А.А. Малюк. - М.: Горячая линия - Телеком, 2017. -
148 c.
16. Маклаков С.В. BPwin и ERwin. CASE-средства разработки
информационных систем / С.В. Маклаков. – М. : ДИАЛОГ-МИФИ, 2001. – 304 с.
17. Маклаков С.В. Создание информационных систем с AllFusion Modeling
Suite / С.В. Маклаков. – М. : ДИАЛОГ-МИФИ, 2005. – 432 с.
18. Ощенко И. Азбука программирования в 1С:Предприятие 8.3 /BHV,
2015. – 288 с.
19. Приемы объектно-ориентированного проектирования. Паттерны
проектирования / Э. Гамма и др. - Москва: СИНТЕГ, 2016. - 366 c.
20. Хаббард Дж. Автоматизированное проектирование баз данных / Дж.
Хаббард. - М.: Мир, 2016. - 296 c.
21. Шаймарданов Р.Б. Моделирование и автоматизация проектирования
структур баз данных / Р.Б. Шаймарданов. - М.: Радио и связь, 2017. - 120 c.
22. Ярочкин, В. Безопасность информационных систем / В. Ярочкин. - М.:
Ось-89, 2015. - 320 c.
23. Ясинская, С. Ю. Концепция информационно-образовательной
среды: дидактика применения / С. Ю. Ясинская, Г. В. Васильченко //
Гармонизация общества - новейший направление развития государства: - СПБ. -
С. 43-48.
24. Фирма 1С. URL: http://www.1c.ru (дата обращения: 15.08.2019)
104
Приложение А. Листинг программных модулей
Модуль документа «Результат тестирование»
Перем СтатусТеста;
Процедура Пересдать()
Если Вопрос("Вы уже сдавали этот тест!
|Хотите его пересдать?", "Да+Нет", 0) = "Да" Тогда
глНомерДок = НомерДок;
ОткрытьФорму("Обработка.Тестирование", "Пересдача");
Форма.Закрыть();
КонецЕсли;
КонецПроцедуры
Функция Картинка()
Если Верно = Перечисление.ДаНет.Да Тогда
Ном = 1;
Иначе
Ном = 2;
КонецЕсли;
Возврат Ном;
КонецФункции
Процедура ПриОткрытии()
Если НазваниеНабораПрав() = "Пользователь" Тогда
Форма.ПравОтв.Видимость(0);
КонецЕсли;
Если ЗакончилосьВремя = Перечисление.ДаНет.Да Тогда
СтатусТеста = "Тест не сдан! Закончилось время отведенное на тест!";
Иначе
Если ТестОкончен = Перечисление.ДаНет.Да Тогда
СтатусТеста = "Тест окончен";
Если ТестСдан = Перечисление.ДаНет.Да Тогда
СтатусТеста = СтатусТеста + " и успешно сдан!";
ИначеЕсли ТестСдан = Перечисление.ДаНет.Нет Тогда
СтатусТеста = СтатусТеста + ", но сдан неудовлетворительно! ";
КонецЕсли;
ИначеЕсли ТестОкончен = Перечисление.ДаНет.Нет Тогда
СтатусТеста = "Тест не сдан до конца!";
КонецЕсли;
КонецЕсли;
КонецПроцедуры
105
Модуль обработки «Тестирование»
Перем ТекстВопр, Отв1, Отв2, Отв3, Отв4, ПравОтв, НП_1, НП_2, НП_3, НП_4, НескОтв,
НескПрав, Верно;
Перем СпрВопросы, СпрПольз, ДокРез, ТЗ;
Перем ТекВопр, КолПрав, КолВопр;
Перем флОкончания;
Перем Часов, Минут, Секунд;
Процедура ИзменитьПараметр()
СпрПольз.Параметр = флПараметра;
СпрПольз.Записать();
КонецПроцедуры
Процедура КонтрольВремени()
Если (Число(Лев(глВремяНаФорме, 2)) >= Число(Лев(Константа.ВремяНаТест, 2))) И
(Число(Прав(глВремяНаФорме, 2)) >= Число(Прав(Константа.ВремяНаТест, 2))) Тогда
Форма.ОбработкаОжидания("КонтрольВремени", 0);
Если ТекВопр > 1 Тогда
ДокРез.ВремяСдачи = глВремяНаФорме;
ДокРез.ЗакончилосьВремя = Перечисление.ДаНет.Да;
ДокРез.Процент = Окр(КолПрав/(ТекВопр-1)*100,1,1);
ДокРез.ТестОкончен = Перечисление.ДаНет.Да;
ДокРез.ТестСдан = Перечисление.ДаНет.Нет;
ДокРез.Записать();
ОткрытьФорму(ДокРез.ТекущийДокумент(),,1);
Предупреждение("Закончилось время отведенное на тест!");
Иначе
Предупреждение("Закончилось время отведенное на тест!
|Вы не дали ответа ни на один вопрос!
|Попробуйте начать тест сначала!");
КонецЕсли;
ФлОкончания = 1;
Форма.Закрыть();
КонецЕсли;
КонецПроцедуры
106
Процедура Таймер(Параметр)
Если Параметр = "Запуск" Тогда
ТекущееВремя(Часов, Минут, Секунд);
глНачВрем = Секунд + Минут*60 + Часов*60*60;
глМинута = 0;
глСекунда = 0;
ОбработкаОжидания("глТаймер", 1);
Форма.ОбработкаОжидания("КонтрольВремени", 1);
// Сообщить("Таймер запущен!");
ИначеЕсли Параметр = "Стоп" Тогда
ОбработкаОжидания("глТаймер", 0);
Форма.ОбработкаОжидания("КонтрольВремени", 0);
// Сообщить("Таймер остановлен!");
КонецЕсли;
КонецПроцедуры
//**********************************************************************************
***
Процедура СправочникВТЗ()
ТЗ.НоваяСтрока();
ТЗ.ТекстВопроса = СпрВопросы.ТекстВопроса;
ТЗ.Ответ1 = СпрВопросы.Ответ1;
ТЗ.Ответ2 = СпрВопросы.Ответ2;
ТЗ.Ответ3 = СпрВопросы.Ответ3;
ТЗ.Ответ4 = СпрВопросы.Ответ4;
ТЗ.ПравОтв = СпрВопросы.ПравОтв;
ТЗ.ПравНесколько = СпрВопросы.ПравНесколько;
ТЗ.НескПрав_1 = СпрВопросы.НескПрав_1;
ТЗ.НескПрав_2 = СпрВопросы.НескПрав_2;
ТЗ.НескПрав_3 = СпрВопросы.НескПрав_3;
ТЗ.НескПрав_4 = СпрВопросы.НескПрав_4;
КонецПроцедуры
//**********************************************************************************
***
Процедура ПолучитьСлучайныйЭлемент()
Если (ТЗ.КоличествоСтрок() > 0) И (Число(КолВопр) >= Число(ТекВопр)) Тогда
Рандом=_GetPerformanceCounter()%(ТЗ.КоличествоСтрок()+1); //х – предел
значения случайного числа от 0 до х
Если Рандом = 0 Тогда
Рандом = Рандом + 1;
КонецЕсли;
Источник: https://baza.diplomsite.ru/previewfile/2144