Программная система комплексного контроля знаний студентов по курсу "Вычислит. техника и инф. технологии"

СОДЕРЖАНИЕ
The Abstract
Введение
1.Технико-экономическое обоснование разработки. Постановка задачи
1.1Цель работы
1.2Назначение, область применения разрабатываемого электронного учебника
1.3Электронный учебник в образовательном процессе
2.Понятие электронного учебника. Требования, предъявляемые к электронным учебникам и тестирующим системам
2.1Понятие электронного учебника
2.2 Обоснования проведения работы и требования к тестирующим системам
2.2Выводы
3.Разработка структуры электронного учебника.
3.1Структура электронного учебника
3.2Существующие модели структуры
3.3Разработка процедуры обучения
3.4Классификация и взаимосвязь разделов электронного учебника
4. ВЫБОР ИНСТРУМЕНТАЛЬНО-ПРОГРАММНЫХ СРЕДСТВ ПРОГРАММНОЙ СИСТЕМЫ
4.1 Выбор среды программирования
4.2 Основные характеристики HTML
4.3 Структурное объектно-ориентированное программирование
5.Проектирование элементов учебнОГО ПОСОБИЯ
5.1 Текст электронного учебного пособия
5.2 Графические изображения в учебном пособии
5.3Разработка программы проведения интерактивного тестирования
5.3 Разработка раздела практических заданий
6.Разработка интерфейса
7.Экспериментальная часть
7.1Методы и результаты экспериментального исследования
7.2 Тестирование методом «белого ящика»
7.3 Тестирование методом «черного ящика»
8Разработка программной документации
8.4Описание применения
8.5Руководство оператора
8.6Руководство программиста
8.4. Разработка программы и методики испытания
8.4.1Объект испытаний
8.4.2Цель испытаний
8.4.3Требования к программе
8.4.4Требования к программной документации
8.4.5Средства и порядок испытаний
9Экономическая часть
9.1Ленточный график
9.2Составление сметы затрат на разработку
9.3.Определение цены создания системы
9.4. Расчет показателей экономической эффективности
10.Безопасность и экологичность проекта
10.1 Обеспечение безопасности при эксплуатации компьютерной техники
10.1.1 Электромагнитные поля и излучения
10.1.2 Неблагоприятный микроклимат рабочей зоны
10.1.3 Повышенный уровень шума
10.1.4 Повышенный уровень вибрации
10.1.5 Повышенное значение напряжения в электрической цепи
10.2 Расчет общей освещенности
10.3 Пожарная безопасность
Заключение
Литература
Листинг ПрограммА электронного учебного пособия

Затраты на запасные части к оборудованию составили 2% в год от его стоимости:4 энергосберегающих ламп (11Вт) = 4 *11*504=22176Вт/час;2 настольные лампы (60Вт), интенсивность использования 65% = 2 * 60 * 504 *0,65= 39312 Вт/час;4 компьютера мощностью 350Вт/час = 4*350*504 = 705600Вт/час;1 принтер 50 Вт/час интенсивность использования 30% =1*25*504*0,3 = 3780/час;1 сканер 50Вт/час интенсивность использования 30% =1*50*504*0,3 = 7560/час;1 ксерокс 150Вт/час интенсивность использования 15% = 150Вт*504* 0,15 = 11340/час;= 22176+39312+705600+3780+7560+11340 = 789768 Вт/час или 790 кВт.Тариф 1,5руб за 1кВт: 790*1,5= 1185 рублей В затраты на материалы входят следующие составляющие (таб.9.6.).Таблица 9.6.Затраты на материалы№ н/пНаименование материалаЕдиницы измеренияКоличествоСтоимость, руб.Общая стоимость руб.1Бумага писчаяпачка1525037502Бумага для принтера пачка51507503Картриджи шт.390527154Компакт -дискишт.30103005Канцелярские принадлежности12006ИТОГО8715Накладные расходы на : воду, отопление, охрану, уборку помещения, антенну, запирающие устройство составляют в месяц 6000руб..6000*3= 18 000 руб. на срок разработки.Прочие затраты составляют около 2000 руб. в месяц, следовательно, на весь период составят: 2000*3= 6 000 руб.Мы не учитываем затраты по статьям «Дополнительная заработная плата», «Командировочные расходы, «Расходы на специальное оборудование», «Оплата работ, выполняемых сторонними организациями», т.к они не используются.Подсчитаем все затраты на разработку и внедрение, для этого составим смету(таб.9.7.).Таблица 9.7.Смета затрат№ н/пСтатья затратСумма (руб.)1Затраты на текущий ремонт и профилактику технического оборудования1387,5 руб.2Затраты на запасные части555 руб.3.Фонд заработной платы 19200 руб.4.Налоговые отчисления69120 руб.5. Амортизация технического оборудования6937,5 руб.6.Затраты на электроэнергию:1185 руб.7.Материалы8715 руб.8.Накладные расходы18000 руб.9.Прочие затраты6000 руб.ИТОГО:126035 руб.Автоматизированная система для работы отдела закупок и сбыта, разработана отделом IT технологий для внутреннего пользования, поэтому ценой программного продукта для компании выступает его себестоимость, т.е затраты на его разработку, внедрение и применение. Цена данного продукта будет складываться только из затрат на его создание (126035 руб.), прибыли в размере 25% от затрат (31509 руб.) и НДС 18 % (28357.875 руб.)9.4. Расчет показателей экономической эффективностиДля оценки экономической эффективности определим цену аналогичного программного обеспечения. В качестве аналога выступает электронное учебное пособие «Информатика. Телекоммуникационные технологии». Цена аналога составляет 18 000 руб.В качестве аналога выступает электронное учебное пособие «Информатика. Телекоммуникационные технологии». Рассматриваемое пособие содержит два теоретических раздела и 2 практических задания, тестирующую системуСчитаем, что прибыль от реализации проекта может быть выраженаСчитаем что для окупаемости П=0, тогдаОтсюда Таким образом точка окупаемости равна 7 электронным учебным пособиям. Набор функций аналогичен разрабатываемому пособию, однако в предлагаемом собственном пособие содержится больше тем теоретического характера и более насыщен практикум по дисциплине.Безопасность и экологичность проекта10.1 Обеспечение безопасности при эксплуатации компьютерной техникиВ процессе решения, поставленной в дипломной работе задачи, необходимо разработать электрическую схему специализированного связного адаптера, разработать прошивку для конфигурации ПЛИС. Для выполнения перечисленных задач инженеру потребуется находиться в вычислительном центре. В данном разделе дипломной работы рассматриваются проблемы охраны труда в помещении вычислительной лаборатории согласно ГОСТ 12.0.003-74.К основным ОВПФ в вычислительном центре относятся:повышенный уровень шума на рабочем месте;неблагоприятный микроклимат рабочей зоны;повышенный уровень вибрации;недостаточная освещенность рабочей зоны (отсутствие или недостаток естественного света;опасный уровень напряжения в электрической цепи, замыкание которого может пройти через тело человека;повышенный уровень электромагнитных излучений.Воздействие указанных неблагоприятных факторов способствует развитию различных болезней и переутомлений, поэтому необходимы меры по снижению этих факторов.10.1.1 Электромагнитные поля и излученияНепременной составляющей персонального компьютера является дисплей (ВДТ), обеспечивающий связь машины с оператором. В сущности, дисплей является телевизором специального назначения, генерирующим, как и обычный телевизор, широкий спектр ЭМП, отрицательное воздействие которых на человека давно известно. В области телевидения проблема обеспечения электромагнитной безопасности зрителей решается тривиально: исходя из того факта, что интенсивность ЭМП резко падает при удалении от источника, телезрителям просто рекомендуется смотреть передачи с расстояния не менее 2 - 3 м от экрана, где уровни ЭМП пренебрежимо малы.При работе на компьютере проблема состоит в том, что пользователь по необходимости размещается в непосредственной близости от экрана, вынужденно подвергая себя воздействию ЭМП.ПЭВМ генерирует в окружающее пространство широкий спектр ЭМП различной интенсивности, в том числе: - электростатическое поле; - переменные низкочастотные ЭМП; - электромагнитное излучение радиочастотного диапазона; - электромагнитное излучение оптического (видимого) диапазона; - ультрафиолетовое (УФ) и рентгеновское излучения ЭЛТ. Кроме того, на рабочем месте пользователя всегда присутствует электромагнитный фон промышленной частоты, обусловленный как ПЭВМ, так и сторонними источниками.Рентгеновское и ультрафиолетовое излучения практически полностью поглощаются внутри корпуса дисплея, а интенсивность излучений радиочастотного диапазона пренебрежимо мала, поэтому радиочастотные, УФ и рентгеновское излучения в качестве вредных производственных факторов не рассматриваются. Источником электростатического поля является экран дисплея, несущий высокий электростатический потенциал (ускоряющее напряжение ЭЛТ). Заметный вклад в общее электростатическое поле вносят электризующиеся от трения поверхности клавиатуры и мыши.ПДУ электромагнитного поля и поверхностного электростатического потенциала ВДТ нормируются в соответствии с СаНПиН 2.2.2.542-96 и приведены в таблице 10.1.Таблица 10.1ПДУ электромагнитного поля и поверхностного электростатического потенциала ВДТВид поляДиапазон частотЕдиница измеренияПДУмагнитное поле5Гц- 2кГцнТл250магнитное поле2- 400 кГц,нТл25электрическое поле5Гц- 2кГцВ/м25электрическое поле2- 400 кГцВ/м2,5эквивалентный (поверхностный) электростатический потенциалВ50010.1.2 Неблагоприятный микроклимат рабочей зоныРабота инженера за персональным компьютером малоподвижна, его энергозатраты не превышают 172 Дж/с. Данные работы относятся к категории – легкая (Iа). Нормы микроклимата для теплого и холодного периодов определены в ГОСТ 12.1.005-88 и приведены в таблице 10.2.Таблица 10.2 Нормы микроклиматаПараметрыТеплый периодХолодный периодТемпература, С23-2522-24Относительная влажность, %40-6040-60Скорость движения воздуха, м/с0,10,1Объем помещений, в которых размещены работники вычислительного центра, не должен быть меньше 19.5 м3/чел с учетом максимального числа работающих в смену. Нормы подачи свежего воздуха в помещение, где расположены компьютеры, приведены в таблице 10.3.Таблица 10.3 Нормы подачи свежего воздуха в помещениеХарактеристика помещения, м3/челОбъемный расход подаваемого в помещение свежего воздуха, м3/ч в часОбъем до 20Не менее 30Объем 20-40Не менее 20Объем более 40Естественная вентиляцияДля обеспечения нормирования параметров микроклимата необходимо установить кондиционер. Современные кондиционеры не только регулируют температуру, но и обеспечивают необходимую циркуляцию воздуха, а также влажность. К тому же на них устанавливаются фильтры, что позволяет очищать воздух от примесей и пылей.10.1.3 Повышенный уровень шумаПри работе на персональном компьютере шум, воздействующий на инженера, не должен превышать максимально допустимых уровней звукового давления, определенных в ГОСТ 12.1.003-83* и указанных в таблице 10.4.Таблица 10.4 Нормы уровня шумаУровни звукового давления (дБ), в октавных полосах со средне геометрическими частотами (Гц)Уровни звука и эквивалентные уровни, дБА631252505001000200040008000507161544945424038Существуют разные аппаратные решения для создания «тихих» ПК. Их можно применять как по отдельности, так и в комплексе. Перечислим некоторые из них:Звукоизолирующая прокладка. Прокладка из звукопоглощающей пены, устанавливаемая внутри корпуса, заглушает практически все звуки, создаваемые компонентами ПК. Однако вместе со звуком затрудняется и отвод наружу тепла. Оболочка для жёсткого диска. Диск, заключенный в изолирующую оболочку, гудит тише, но такая конструкция устанавливается только в отсек, соседствующий с CD-приводом. Звукопоглощающий корпус. Если вы собираете ПК самостоятельно, возможно, имеет смысл приобрести корпус с тихими вентиляторами охлаждения как самого корпуса, так и блока питания, а также с расширенными вентиляционными отверстиями. Вентиляторы охлаждения корпуса. Вентиляторы охлаждения корпуса, имеющие специальную конструкцию и термостатический контроль, с одной стороны, подают достаточно воздуха для охлаждения системы, а с другой - создают минимум шума. Вентиляторы охлаждения блока питания. Самым шумным компонентом ПК часто является блок питания. В таких случаях для обретения спокойствия достаточно заменить его на более тихий.10.1.4 Повышенный уровень вибрацииРаботающие персональные компьютеры создают вибрацию, вызванную вращением электродвигателей вентиляторов, дисководов. Нормы вибрации по ГОСТ 12.1.012-90 приведены в таблице 10.5.Таблица 10.5 Нормы вибрацииВид вибрацииСреднеквадратическое значение виброскорости, м/с*10-2 (не более)Логарифмические уровни виброскорости (дБ), в октавных полосах со среднегеометрическими частотами (Гц)В вычислительных центрах12481631,5631252601,18910,063820,032760,028750,028750,02875Однако работающая компьютерная техника не создает значительных вибраций. Исключение составляют только приводы чтения дисков. Но их относительное время работы невелико, и для снижения вибрации достаточно переставить системный блок со стола на пол. Для большего снижения уровня вибрации часто бывает достаточно открыть корпус, снять крышку и хорошенько подтянуть крепежные винты таких компонентов, как блок питания, дисководы, материнская плата и вентиляторы. Иногда в комплекте с блоком поставляются пластиковые или резиновые шайбы, которые еще больше снижают вибрацию. Недорогие наборы пластиковых прокладок изолируют вентиляторы и другие источники вибраций от корпуса. Существуют такие наборы и для жёстких дисков.10.1.5 Повышенное значение напряжения в электрической цепиПредельно допустимые уровни напряжений и токов в зависимости от времени прикосновения регламентируются в ГОСТ 12.1.038-82* и приведены в таблице 10.6Таблица 10.6Предельно допустимые уровни напряжений и токовРод токаНорми-руемая вели-чинаПредельно допустимые уровни, не более, при продолжительности воздействия тока, t, с.0,010,10,20,30,40,50,60,70,80,91,0Пере-менный, 50ГцU, ВI, мА6505002501651251008570656550Посто-янныйU, ВI, мА65050040035030025024023022021020010.2 Расчет общей освещенностиПомещения, где расположены компьютеры, должны иметь определенное освещение. Нормы освещенности определены в СНиП 23-05-95 и приведены в таблице10.7 для данного типа работ.Рассчитываемое помещение имеет следующие характеристики:длина А – 10 м;ширина В – 8 м;высота – 3,7 м;длина подвеса светильников – 0,2 м;высота рабочей поверхности – 0,8 м;Необходимо рассчитать освещение помещения исходя из того, что будет использоваться 20 светильников.Для данного вида работ достаточно использовать одно общее освещение без применения местного. В качестве источников света выбраны люминесцентные лампы, так как они обладают высокой световой отдачей, большим сроком службы, равномерный спектр.Таблица 10.7Характеристика зрительной работыРазряд и подразряд зрительной работыКонтраст объекта различения с фономХарактеристика фонаМинимальный размер объекта различения,(мм)Искусственное освещениеЕстественное освещениеОсвещенность, лкКЕО, %При комбинированном освещенииПри общем освещенииПри верхнем или верхнем и боковом освещенииСредняяточностьIV (г)БольшойСветлыйот 0,5 до 1,0-2004Световой поток одного светильника определяется по формуле,где EH – нормируемое значение освещенности (см. таблицу 10.1),КЗ – коэффициент запасаS – освещаемая площадьZ=EСР/EМИН, где EСР и EМИН – среднее и минимальное значения освещенностиn – число светильниковUОУ – коэффициент использования светового потокаДля люминесцентных ламп коэффициент Z принимается равным 1,1Значения коэффициента запаса для различных помещений приведены в таблице 10.8Таблица 10.8Значения коэффициента запасаТип помещенияТип источника светагазоразрядныенакаливанияС незначительным содержанием пыли и копоти1,51,3Со средним содержанием пыли и копоти1,81,5Открытые территории1,51,4Используя таблицу 4.2 находим Z=1,5Индекс помещения определяется по формуле ,где А и В – длина и ширина помещения соответственно, hР – высота подвеса над рабочей поверхностью.Так как в рассчитываемом помещении побеленный потолок и светлые стены, то примем значения коэффициентов отражения равными ρП=0,7; ρС=0,5; ρР=0,1. Используя найденные коэффициенты отражения и индекс помещения найдем коэффициент использования светового потока UОУ=0,35Вычислим необходимый световой поток светильника лкДля обеспечения требуемого светового потока выберем лампу ЛДЦ40-1, обеспечивающую световой поток в 2200 лкЛампы будем размещать в светильниках ЛСП02-2x40-13-15, которые имеют габаритные размеры 1234x280x159 ммВнешний вид светильника представлен на рисунке 10.1Рисунок 10.1 – Внешний вид светильникаСветильники с люминесцентными лампами устанавливают рядами, параллельно длинной стороне помещения или стенке с окнами.Расстояние между светильниками по длине и ширине помещения выбирается из условия La / Lb l,5.Расстояние от крайних светильников до стены выбирается из 0,3 0,5 La, 0,3 0,5 Lb. L1 ~ 0, 6-0,7 м, L2 ~2 м.Схема размещения светильников в помещении приведена на рисунке 10.2Рисунок 10.2 – Схема расположения светильников в помещении10.3 Пожарная безопасностьСогласно НПБ 105-03 помещения, где располагаются персональные компьютеры, относятся к категории ‘В’ пожарной опасности, при которой горючие и трудногорючие жидкости, твердые материалы и вещества, а также материалы, которые при взаимодействии с водой, воздухом или друг с другом способны только гореть.СНиП 2101-97 регламентирует число, размеры и конструкторские решения устройства эвакуационных путей. В соответствии с ним выбираем:число выходов – 2;высота потолка в проходах – не менее 2 м;ширина проходов – не менее 0.8 м. Проходы должны иметь естественное и искусственное освещение.Согласно ГОСТ 12.4.009-83* помещения вычислительного центра объемом 200 м2 должны иметь следующие средства пожаротушения:углекислотный огнетушитель ОУ-8 – 1 шт;порошковый огнетушитель ОП-5-01 – 1 шт;спринклерная система пожаротушения.Технические характеристики спринклеров приведены в таблице 10.9Таблица 10.9 Технические характеристики спринклеровПараметрЗначениерасход Q0,6 - 2,5 л/cрабочее давление Pp6 -10 барзащищаемая площадь Sз12 м2-30 м2угол распыла120°-240°Cинтенсивность орошения qср0,03 -0,08 л/(с·м2)среднеквадратическое отклонение Sq<50%Возможность работы на растворах пенообразователяЗаключениеВ данном дипломном проекте был разработан интерактивный электронный учебник по курсу “Вычислительная техника и информационные технологии”, который предназначен для дистанционного обучения студентов. Благодаря дружественному и простому в использовании интерфейсу у пользователя есть возможность быстро и эффективно освоить данный курс, попробовать на практике свой знания, с помощью программы самоконтроля проверить, усвоен ли материал. В рамках дипломного проекта были проанализированы основные требования к разработке электронных интерактивных учебников и тестирующих систем. В результате чего был спроектирован электронное интерактивное учебное пособие с оптимальными возможностями.Основными преимуществами электронного учебника являются:1. Дружественный интерфейс, помогающий пользователю эффективнее изучать учебный материал;2. Эффективная система самоконтроля, с эффективной защитой от несанкционированного доступа;3. Практический раздел, позволяющий обучаемым более эффективно освоить курс;При испытании электронного учебника были получены хорошие результаты. Кроме того, наработки в этой сфере могут служить хорошей базой для дальнейшего развития функциональных возможностей данного программного продукта.ЛитератураБеспалько В.П. Образование и обучение с участием компьютера (педагогика третьего тысячелетия). М.: Изд-во Моск. психол.-соц. Ин-та-Воронеж: Изд-во НПО "МОДЭК", 2002. - 352 с.Башмаков А.И., Башмаков И.А. Разработка компьютерных учебников и обучающих систем. – М.: Информационно-издательский дом «Филинъ», 2003Челышкова М.Б. Адаптивное тестирование в образовании М.: Информационно-издательский дом «Филинъ», 2003.- 440 с.Каймин В.А., Горелов Ю.Н., "Об электронных учебниках по информатике и финансовому менеджменту", / Материалы конференции "Информационные технологии в образовании", Троицк. 1998.Смирнов А.Н. Проблемы электронного учебника // "Математика в школе", 2000 год., №5.Гиндикин С.Г., Рассказы о физиках и математиках. - 3-е изд., расширенное. М.: МЦНМО, 2001. - 448 с/Архангельский А.Я. 100 компонентов общего назначения библиотеки Delphi 5. — М.: Бином, 1999. — 266 с.Архангельский А.Я. Программирование в Delphi 6. — М.: Бином, 2001. — 564 с.Архангельский А.Я. Язык SQL в Delphi 5. — М.: Бином, 2000. — 205 с.Буч Г. Объектно-ориентированное проектирование с примерами применения. М., 1992. - 654с.Гофман В.Э. Хомоненко А.Д. Delphi 5. - СПб.: - Санки-Петербург, 2000. –800с.Гофман В.Э. Хомоненко А.Д. Delphi 6. - СПб.: - Санки-Петербург, 2001. –1145с.Культин Н.Б. Delphi 6: Программирование на Object Pascal. — М.: Бином, 2001. — 526 с.Культин Н.Б. Delphi 7: Программирование на Object Pascal. — М.: Бином, 2003. — 535 с.Шумаков П.В., Фаронов В.В. Delphi 5. Руководство разработчика баз данных. — М.: Нолидж, 2000. — 635 с.Якобсон А., Буч Г., Рамбо, Дж Унифицированный процесс разработки программного обеспечения. - СПб.: Питер,2002.-496 с.ЛистингПрограммА электронного учебного пособияunit main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzDlgBtn, RzButton, ExtCtrls, RzPanel, view, RzLabel, StdCtrls;type Tmainform = class(TForm) RzPanel1: TRzPanel; RzButton1: TRzButton; RzPanel2: TRzPanel; RzButton2: TRzButton; RzButton3: TRzButton; RzButton4: TRzButton; RzButton5: TRzButton; Label1: TLabel; RzLabel1: TRzLabel; Label2: TLabel; Label3: TLabel;procedure RzButton2Click(Sender:TObject);procedure RzButton3Click(Sender:TObject);procedure RzButton4Click(Sender:TObject);procedure FormCreate(Sender:TObject);procedure RzButton1Click(Sender:TObject);procedure RzButton5Click(Sender:TObject); private { Private declarations } public { Public declarations } end; TVopros= record tema:integer; soder:string[100]; otvet1:string[50]; otvet2:string[50]; otvet3:string[50]; prav:integer; end; totvet=record FIO:string[20]; Nomer:string[6]; test:string[25]; datetest:string[15]; vsego:word; osh:word; v: array[1..10] of string[1]; end; TVoprosFile = file of TVopros; TOtvetFile = file of TOtvet;var mainform: Tmainform; path,name_file:string; cur_tem,cur_vopros,cur_count:word; vopros:array[1..10] of Tvopros; student, f_student:totvet; //Файловая переменная. gF : TVoprosFile; gf2:TOtvetFile; //Полное имя файла gFileName,gShortFileName : String; gFileName1,gShortFileName1 : String;implementation uses Htmlabt , edit, test;{$R *.dfm}procedure Tmainform.FormCreate(Sender:TObject);begin Left := Left div 2+100;Top := Top div 2;cur_vopros:=0;end;procedure Tmainform.RzButton1Click(Sender:TObject);begin mainform.Visible:=false; path:=ExtractFilePath(Application.ExeName); name_file:=path+'html\index.html'; htmlform.Viewer.LoadFromFile(name_file); Caption := htmlform.Viewer.DocumentTitle;htmlform.Show;end;procedure Tmainform.RzButton2Click(Sender:TObject);begin mainform.Visible:=false;testform.Show;testform.RzPanel1.Top:=0;testform.RzPanel1.left:=0;end;procedure Tmainform.RzButton3Click(Sender:TObject);begin mainform.Visible:=false; if InputBox('ввод пароля','Введите пароль','') = 'admin' then editform.Show else begin ShowMessage('Пароль неправильный'); mainform.Visible:=true;; end;end;procedure Tmainform.RzButton4Click(Sender:TObject);beginAboutBox := TAboutBox.CreateIt(Self, 'Учебное пособие ', 'TFrameViewer');try AboutBox.ShowModal;finally AboutBox.Free; end;end;procedure Tmainform.RzButton5Click(Sender:TObject);beginmainform.Close;end;end.unit view;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, ExtCtrls, RzPanel, Htmlview, Menus, Readhtml, FramView; const MaxHistories = 6; {size of History list}type Thtmlform = class(TForm) RzPanel1: TRzPanel; FwdButton: TRzBitBtn; backbutton: TRzBitBtn; RzBitBtn3: TRzBitBtn; ReLoadButton: TRzBitBtn; MainMenu: TMainMenu; File1: TMenuItem; PrinterSetup1: TMenuItem; Printpreview: TMenuItem; Print1: TMenuItem; N1: TMenuItem; Exit1: TMenuItem; HistoryMenuItem: TMenuItem; About1: TMenuItem; Viewer: TFrameViewer; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn;procedure About1Click(Sender:TObject);procedure RzBitBtn2Click(Sender:TObject);procedure RzBitBtn1Click(Sender:TObject);procedure Exit1Click(Sender:TObject);procedure ViewerHistoryChange(Sender:TObject);procedure FwdButtonClick(Sender:TObject);procedure HistoryClick(Sender:TObject);procedure FormCreate(Sender:TObject);procedure backbuttonClick(Sender:TObject);procedure ReLoadButtonClick(Sender:TObject);procedure RzBitBtn3Click(Sender:TObject); private { Private declarations } Histories: array[0..MaxHistories-1] of TMenuItem; public { Public declarations } end;var htmlform: Thtmlform; i:word;implementationuses main, Htmlabt;{$R *.dfm}procedure Thtmlform.ReLoadButtonClick(Sender:TObject);beginwith htmlform.Viewer do begin ReLoadButton.Enabled := False; ReLoad; ReLoadButton.Enabled := CurrentFile <> ''; Viewer.SetFocus; end;end;procedure Thtmlform.Exit1Click(Sender:TObject);begin htmlform.Close; mainform.Visible:=true;end;procedure Thtmlform.FormCreate(Sender:TObject);begin Left := Left div 2;Top := Top div 2;Viewer.HistoryMaxCount := MaxHistories; {defines size of history list}for I := 0 to MaxHistories-1 do begin {create the MenuItems for the history list} Histories[I] := TMenuItem.Create(HistoryMenuItem); HistoryMenuItem.Insert(I, Histories[I]); with Histories[I] do begin OnClick := HistoryClick; Caption := 'XX'; Tag := I; end; end;end;procedure Thtmlform.FwdButtonClick(Sender:TObject);begin htmlform.Viewer.GoFwd;end;procedure Thtmlform.About1Click(Sender:TObject);beginAboutBox := TAboutBox.CreateIt(Self, 'Вычислительная техника и информационные технологии ', 'TFrameViewer');try AboutBox.ShowModal;finally AboutBox.Free; end;end;procedure Thtmlform.backbuttonClick(Sender:TObject);begin with Viewer do begin if Sender = BackButton then HistoryIndex := HistoryIndex +1 else HistoryIndex := HistoryIndex -1; end;end;procedure Thtmlform.HistoryClick(Sender:TObject);begin Viewer.HistoryIndex := (Sender as TMenuItem).Tag;end;procedure Thtmlform.RzBitBtn1Click(Sender:TObject);begin htmlform.Close; mainform.Visible:=true;end;procedure Thtmlform.RzBitBtn2Click(Sender:TObject);begin htmlform.close; mainform.RzButton1Click(sender);end;procedure Thtmlform.RzBitBtn3Click(Sender:TObject);begin htmlform.close; mainform.RzButton1.Click;end;procedure Thtmlform.ViewerHistoryChange(Sender:TObject);var I: integer; Cap: string[80];beginwith Sender as TFrameViewer do begin {check to see which buttons are to be enabled} FwdButton.Enabled := FwdButtonEnabled; BackButton.Enabled := BackButtonEnabled; {Enable and caption the appropriate history menuitems} HistoryMenuItem.Visible := History.Count > 0; for I := 0 to MaxHistories-1 do with Histories[I] do if I < History.Count then Begin Cap := History.Strings[I]; if TitleHistory[I] <> '' then Cap := Cap + '--' + TitleHistory[I]; Caption := Cap; {Cap limits string to 80 char} Visible := True; Checked := I = HistoryIndex; end else Histories[I].Visible := False; end;end;end.unit test;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, ExtCtrls, RzPanel, RzRadChk, RzRadGrp, StdCtrls, Mask, RzEdit,main;type TTestForm = class(TForm) RzPanel1: TRzPanel; RzButton1: TRzButton; RzPanel2: TRzPanel; RzButton2: TRzButton; RzButton3: TRzButton; RzButton4: TRzButton; RzButton5: TRzButton; RzButton6: TRzButton; RzPanel3: TRzPanel; RzPanel4: TRzPanel; RzCheckGroup1: TRzCheckGroup; RzCheckBox1: TRzCheckBox; RzCheckBox3: TRzCheckBox; RzCheckBox2: TRzCheckBox; RzPanel5: TRzPanel; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; RzEdit1: TRzEdit; RzEdit2: TRzEdit; Label1: TLabel; Label2: TLabel;procedure RzBitBtn1Click(Sender:TObject);procedure RzButton6Click(Sender:TObject);procedure RzButton4Click(Sender:TObject);procedure RzButton3Click(Sender:TObject);procedure RzButton2Click(Sender:TObject);procedure RzButton5Click(Sender:TObject);procedure RzBitBtn2Click(Sender:TObject);procedure RzButton1Click(Sender:TObject); private { Private declarations } public { Public declarations } end;var TestForm: TTestForm; j:integer; a:array[0..10] of word; t,s:word; gf1:TOtvetFile;implementation{$R *.dfm}procedure TTestForm.RzBitBtn1Click(Sender:TObject);begin a[cur_vopros]:=0;if testform.RzCheckBox1.Checked then a[cur_vopros]:=1;if testform.RzCheckBox2.Checked then a[cur_vopros]:=2;if testform.RzCheckBox3.Checked then a[cur_vopros]:=3;cur_vopros:=cur_vopros+1;testform.RzCheckBox1.Checked:=false;testform.RzCheckBox2.Checked:=false;testform.RzCheckBox3.Checked:=false;if cur_vopros<Cur_count thenbegintestform.RzCheckBox1.Caption:= vopros[cur_vopros].otvet1;testform.RzCheckBox2.Caption:= vopros[cur_vopros].otvet2;testform.RzCheckBox3.Caption:= vopros[cur_vopros].otvet3;testform.RzPanel5.Caption:=vopros[cur_vopros].soderendelsebegins:=0;for t := 1 to 6 do student.v[t]:=' ';for t:= 1 to cur_vopros-1 dobegin student.v[t]:='+'; if a[t]<>vopros[t].prav then begin s:=s+1; student.v[t]:='-'; end;end;showmessage('Количество вопросов = '+inttostr(cur_vopros-1)+ ' Количество ощибок = '+inttostr(s) ) ; {*****************************} gShortFileName1 := 'test.txt'; gFileName1 := ExtractFilePath(Application.ExeName) + '\' + gShortFileName1; AssignFile(gF1, gFileName1); if FileExists(gFileName1) then begin Reset(gF1); while not Eof(gF1) do begin //Читаем записи только для того, чтобы перемещать файловый указатель. Read(gF1, f_student); end; end else begin //Создаём файл. И открываем созданный файл в режиме "только запись". Rewrite(gF1); end; student.datetest:=datetostr(now); student.vsego:= cur_vopros-1; student.osh:= s; cur_vopros:=0; //Записываем данные о погоде в файл. Write(gF1, student); //Закрываем файл. CloseFile(gF1); testform.RzBitBtn2.Visible:=true;end;end;procedure TTestForm.RzBitBtn2Click(Sender:TObject);begintestform.RzPanel1.Visible:=true;testform.RzPanel3.Visible:=false;end;procedure TTestForm.RzButton1Click(Sender:TObject);begin if ((testform.RzEdit1.Text<>'') and (testform.RzEdit2.Text<>'')) then begin cur_tem:=0;cur_vopros:=0;testform.RzPanel1.Visible:=false;testform.Left:=100; testform.Height:=450; testform.Width:=405;testform.RzPanel3.Visible:=true; student.FIO:=testform.RzEdit1.Text; student.Nomer:=testform.RzEdit2.Text;testform.RzPanel4.Caption:='Информационные технологии. Основные понятия'; student.test:=testform.RzPanel4.Caption;gShortFileName := 'v'+inttostr(cur_tem)+'.txt'; gFileName := ExtractFilePath(Application.ExeName) + gShortFileName; AssignFile(gF, gFileName); Reset(gF); j:=1; while not(eof(gf)) do begin read(gF, vopros[j]); j:=j+1; end; //Закрываем файл. cur_count:=j; CloseFile(gF); testform.RzBitBtn2.Visible:=false;; testform.RzBitBtn1.Click; end else ShowMessage('Не введелия фамилия студента или номер группы')end;procedure TTestForm.RzButton2Click(Sender:TObject);begin if ((testform.RzEdit1.Text<>'') and (testform.RzEdit2.Text<>'')) then begin student.FIO:=testform.RzEdit1.Text; student.Nomer:=testform.RzEdit2.Text; cur_tem:=1;cur_vopros:=0;testform.RzPanel1.Visible:=false;testform.Left:=100; testform.Height:=450; testform.Width:=405;testform.RzPanel3.Visible:=true;testform.RzPanel4.Caption:='ИТ автоматизации офиса и обработки документов'; student.test:=testform.RzPanel4.Caption; gShortFileName := 'v'+inttostr(cur_tem)+'.txt'; gFileName := ExtractFilePath(Application.ExeName) + gShortFileName; AssignFile(gF, gFileName); Reset(gF); j:=1; while not(eof(gf)) do begin read(gF, vopros[j]); j:=j+1; end; //Закрываем файл. cur_count:=j; CloseFile(gF); testform.RzBitBtn2.Visible:=false;; testform.RzBitBtn1.Click; end else ShowMessage('Не введелия фамилия студента или номер группы')end;procedure TTestForm.RzButton3Click(Sender:TObject);begin if ((testform.RzEdit1.Text<>'') and (testform.RzEdit2.Text<>'')) then begin student.FIO:=testform.RzEdit1.Text; student.Nomer:=testform.RzEdit2.Text; cur_tem:=2;cur_vopros:=0;testform.RzPanel1.Visible:=false;testform.Left:=100; testform.Height:=450; testform.Width:=405;testform.RzPanel3.Visible:=true;testform.RzPanel4.Caption:='Мультимедийные технологии'; student.test:=testform.RzPanel4.Caption;gShortFileName := 'v'+inttostr(cur_tem)+'.txt'; gFileName := ExtractFilePath(Application.ExeName) + gShortFileName; AssignFile(gF, gFileName); Reset(gF); j:=1; while not(eof(gf)) do begin read(gF, vopros[j]); j:=j+1; end; //Закрываем файл. cur_count:=j; CloseFile(gF); testform.RzBitBtn2.Visible:=false;; testform.RzBitBtn1.Click; end else ShowMessage('Не введенна фамилия студента или номер группы')end;procedure TTestForm.RzButton4Click(Sender:TObject);begin if ((testform.RzEdit1.Text<>'') and (testform.RzEdit2.Text<>'')) then begin student.FIO:=testform.RzEdit1.Text; student.Nomer:=testform.RzEdit2.Text; cur_tem:=3;cur_vopros:=0;testform.RzPanel1.Visible:=false;testform.Left:=100; testform.Height:=450; testform.Width:=405;testform.RzPanel3.Visible:=true;testform.RzPanel4.Caption:='Кросс технологии. Видео и телеконференции'; student.test:=testform.RzPanel4.Caption;gShortFileName := 'v'+inttostr(cur_tem)+'.txt'; gFileName := ExtractFilePath(Application.ExeName) + gShortFileName; AssignFile(gF, gFileName); Reset(gF); j:=1; while not(eof(gf)) do begin read(gF, vopros[j]); j:=j+1; end; //Закрываем файл. cur_count:=j; CloseFile(gF); testform.RzBitBtn2.Visible:=false;; testform.RzBitBtn1.Click; end else ShowMessage('Не введелия фамилия студента или номер группы')end;procedure TTestForm.RzButton5Click(Sender:TObject);begin testform.Close; mainform.Visible:=true;end;procedure TTestForm.RzButton6Click(Sender:TObject);beginif ((testform.RzEdit1.Text<>'') and (testform.RzEdit2.Text<>'')) then begin student.FIO:=testform.RzEdit1.Text; student.Nomer:=testform.RzEdit2.Text; cur_tem:=4;cur_vopros:=0;testform.RzPanel1.Visible:=false;testform.Left:=100; testform.Height:=450; testform.Width:=405;testform.RzPanel3.Visible:=true;testform.RzPanel4.Caption:='Internet, emaile, IP-телефония'; student.test:=testform.RzPanel4.Caption; gShortFileName := 'v'+inttostr(cur_tem)+'.txt'; gFileName := ExtractFilePath(Application.ExeName) + gShortFileName; AssignFile(gF, gFileName); Reset(gF); j:=1; while not(eof(gf)) do begin read(gF, vopros[j]); j:=j+1; end; //Закрываем файл. cur_count:=j; CloseFile(gF); testform.RzBitBtn2.Visible:=false;; testform.RzBitBtn1.Click; end else ShowMessage('Не введелия фамилия студента или номер группы')end;end.unit rezult;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, RzGrids, RzButton;type TRezForm = class(TForm) RzStringGrid1: TRzStringGrid; RzBitBtn1: TRzBitBtn;procedure RzBitBtn1Click(Sender:TObject);procedure FormCreate(Sender:TObject); private { Private declarations } public { Public declarations } end;var RezForm: TRezForm; jj:integer;implementation uses main, edit;{$R *.dfm}procedure TRezForm.FormCreate(Sender:TObject);vari:word;begin Rezform.RzStringGrid1.ColWidths[0]:=100;Rezform.RzStringGrid1.Cells[0,0]:='Студент';Rezform.RzStringGrid1.ColWidths[1]:=50;Rezform.RzStringGrid1.Cells[1,0]:='Группа';Rezform.RzStringGrid1.ColWidths[2]:=75;Rezform.RzStringGrid1.Cells[2,0]:='Дата';Rezform.RzStringGrid1.ColWidths[3]:=150;Rezform.RzStringGrid1.Cells[3,0]:='Тема';Rezform.RzStringGrid1.ColWidths[4]:=100;Rezform.RzStringGrid1.Cells[4,0]:='всего';Rezform.RzStringGrid1.ColWidths[5]:=100;Rezform.RzStringGrid1.Cells[5,0]:='ошибки';Rezform.RzStringGrid1.ColWidths[6]:=25;Rezform.RzStringGrid1.Cells[6,0]:='1';Rezform.RzStringGrid1.ColWidths[7]:=25;Rezform.RzStringGrid1.Cells[7,0]:='2';Rezform.RzStringGrid1.ColWidths[8]:=25;Rezform.RzStringGrid1.Cells[8,0]:='3';Rezform.RzStringGrid1.ColWidths[9]:=25;Rezform.RzStringGrid1.Cells[9,0]:='4';Rezform.RzStringGrid1.ColWidths[10]:=25;Rezform.RzStringGrid1.Cells[10,0]:='5';Rezform.RzStringGrid1.ColWidths[11]:=25;Rezform.RzStringGrid1.Cells[11,0]:='6'; gShortFileName1 := 'test.txt'; gFileName1 := ExtractFilePath(Application.ExeName) + gShortFileName1; AssignFile(gF2, gFileName1); jj:=1; if FileExists(gFileName1) then begin Reset(gF2); while not Eof(gF2) do begin //Читаем записи только для того, чтобы перемещать файловый указатель. Read(gF2, f_student); Rezform.RzStringGrid1.ColWidths[0]:=100;Rezform.RzStringGrid1.Cells[0,jj]:=f_student.FIO;Rezform.RzStringGrid1.Cells[1,jj]:=f_student.Nomer;Rezform.RzStringGrid1.Cells[2,jj]:=f_student.datetest;Rezform.RzStringGrid1.Cells[3,jj]:=f_student.test;Rezform.RzStringGrid1.Cells[4,jj]:=inttostr(f_student.vsego);Rezform.RzStringGrid1.Cells[5,jj]:=inttostr(f_student.osh); for I := 1 to 6 do Rezform.RzStringGrid1.Cells[5+i,jj]:=f_student.v[i]; jj:=jj+1; Rezform.RzStringGrid1.RowCount:=jj; end; end; //Закрываем файл. CloseFile(gF2);end;procedure TRezForm.RzBitBtn1Click(Sender:TObject);beginrezform.Close;end;end.unit HTMLAbt;interfaceuses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Htmlview, ExtCtrls, RzButton;const Version = 'Вычислительная техника и информационные технологии';type TAboutBox = class(TForm) BitBtn1: TBitBtn; Panel1: TPanel; Viewer: THTMLViewer; RzButton5: TRzButton;procedure RzButton5Click(Sender:TObject); private { Private declarations } public { Public declarations }constructor CreateIt(Owner:TComponent; const ProgName, CompName: string); end;var AboutBox: TAboutBox;implementation{$R *.DFM}constructor TAboutBox.CreateIt(Owner:TComponent; const ProgName, CompName: string);var S: string[210];begininherited Create(Owner);Viewer.DefFontName := 'MS Sans Serif';Viewer.DefFontSize := 9;Viewer.DefFontColor := clNavy;S :='<body bgcolor="ffffeb" text="000080">'+ '<center>'+ '<h1>'+ProgName+'</h1>'+ '<font color="Maroon">Вычислительная техника и информационные технологии' + '</center>'+ '</body>';Viewer.LoadFromBuffer(@S[1], Length(S), '');end;procedure TAboutBox.RzButton5Click(Sender:TObject);begin AboutBox.Close;end;end.