3. Кодификатор тем занятий

Таблица 3

Код занятия	Наименование темы
331	Неинфекционные заболевания кожи и пупочной ранки
332	Асфиксия, родовые травмы, гемолитическая болезнь новорожденных
333	Гнойно-воспалительные заболевания кожи и пупка. Сепсис.

Текст программы Глобальный модуль

Перем глПользователь Экспорт;

Перем глТема Экспорт;

Перем глУровеньСложности Экспорт;

Перем AddComp Экспорт;

Перем глВремяНачала,глВремяОкончания Экспорт;

Перем ТекПротокол Экспорт;

//_____________________________________________________________________________

Процедура ПроверкаВремени() Экспорт

Перем Часы,Минуты,Секунды;

ТекущееВремя(Часы,Минуты,Секунды);

ТекВремя=(Часы*60+Минуты)*60+Секунды;

ВремОст=глВремяОкончания-ТекВремя;

ТекПроц=Цел(100-ВремОст/(глУровеньСложности.Время*60)*100);

AddComp.GaugePosition(ТекПроц);

Если ТекВремя>=глВремяОкончания Тогда

Если ТекПроц<100 Тогда

AddComp.GaugePosition(100);

КонецЕсли;

ОбработкаОжидания("ПроверкаВремени",0);

AddComp.SendKey("VK_F7");

КонецЕсли;

КонецПроцедуры //ПроверкаВремени

//_____________________________________________________________________________

Процедура ПриНачалеРаботыСистемы()

ФБ=КаталогИБ()+"Miracle.Dll";

Попытка

AddComp=СоздатьОбъект("Miracle.VCL");

Исключение

Если ФС.СуществуетФайл(ФБ)=0 Тогда

Предупреждение("Не найдена внешняя компонента, необходимая для работы данной конфигурации! Программа будет закрыта!");

ЗавершитьРаботуСистемы(0);

КонецЕсли;

ЗапуститьПриложение("regsvr32.exe"+Симв(34)+ФБ+Симв(34));

Для А=1 По 500000 Цикл; КонецЦикла;

Предупреждение("Установлена внешняя компонента"+РазделительСтрок+

"Программу необходимо перезагрузить!");

ЗавершитьРаботуСистемы(0);

КонецПопытки;

AddComp.SetMainIcon(КаталогИБ()+"128.ico");

Если ИмяПользователя()="Студент" Тогда

ОткрытьФорму("Обработка.Авторизация");

КонецЕсли;

КонецПроцедуры //ПриНачалеРаботыСистемы

//_____________________________________________________________________________

Функция ЧислоПрописью(Ном) Экспорт

Стр=Формат(Ном,"ЧП");

Возврат Стр;

КонецФункции //ЧислоПрописью

//**********************************************************

//

Функция глКоличествоСловВСтр(Фраза,Разделитель) Экспорт

Перем Рез;

Перем Счетчик;

Рез=0;

//Фраза=СокрЛП(Фраз)+Разделитель;

Если ПустоеЗначение(Фраза)=0 Тогда

Для Счетчик=1 по СтрДлина(Фраза) Цикл

Если Сред(Фраза,Счетчик,1)=Разделитель Тогда

Если (Счетчик<СтрДлина(Фраза))И(Сред(Фраза,Счетчик+1,1)<>Разделитель) Тогда

Рез=Рез+1;

ИначеЕсли (Счетчик=СтрДлина(Фраза))И(Сред(Фраза,Счетчик-1,1)<>Разделитель) Тогда

Рез=Рез+1;

КонецЕсли;

КонецЕсли;

КонецЦикла;

КонецЕсли;

Возврат Рез;

КонецФункции

//******************************************************************************

//

Функция глКоличествоСлов(Фраза) Экспорт

Возврат глКоличествоСловВСтр(Фраза," ");

КонецФункции

//******************************************************************************

//

Функция глСловоПоНомеруВСтр(Номер,Фраз,Разделитель) Экспорт

Перем Счетчик;

Перем Рез;

//Перем Фраз;

Перем Ном;

//Фраз=СокрЛП(Фраза)+Разделитель;

Ном=1;

Рез="";

Для Счетчик=1 по СтрДлина(Фраз) Цикл

Если Счетчик<СтрДлина(Фраз) Тогда

Если (Ном=Номер)И(Сред(Фраз,Счетчик,1)<>Разделитель) Тогда

Рез=Рез+Сред(Фраз,Счетчик,1);

КонецЕсли;

Если (Сред(Фраз,Счетчик,1)=Разделитель)И(Сред(Фраз,Счетчик+1,1)<>Разделитель) Тогда

Ном=Ном+1;

КонецЕсли;

КонецЕсли;

КонецЦикла;

Возврат Рез;

КонецФункции // глСловоПоНомеру(Номер,Фраза,Разделитель)

//******************************************************************************

//

Функция глСловоПоНомеру(Номер,Фраза) Экспорт

Возврат глСловоПоНомеруВСтр(Номер,Фраза," ");

КонецФункции

//******************************************************************************

//

Функция глФИО(Стр) Экспорт

Перем Рез;

Рез="";

Рез=глСловоПоНомеру(1,Стр)+" "+Сред(глСловоПоНомеру(2,Стр),1,1)+"."+Сред(глСловоПоНомеру(3,Стр),1,1)+".";

Возврат Рез;

КонецФункции