На языке delphi разработка учебного пособия по основам программирования на языке delphi

ВВЕДЕНИЕ 4
1. Технико-экономическое обоснование разработки. Постановка задачи 7
1.1 Цель работы 7
1.2 Назначение, область применения разрабатываемого курса обучения 7
1.3 Электронные учебные пособия в образовательном процессе 10
2. Разработка структуры курса обучения 18
2.1 Структура курса обучения 18
2.2 Существующие модели структуры 19
2.3 Разработка процедуры обучения 20
2.4 Классификация и взаимосвязь разделов электронного учебника 26
3. ВЫБОР ИНСТРУМЕНТАЛЬНО-ПРОГРАММНЫХ СРЕДСТВ ПРОГРАММНОЙ СИСТЕМЫ 29
3.1 Выбор среды программирования 29
3.2 Основные характеристики HTML 35
3.3 Структурное объектно-ориентированное программирование 39
4.ПРОЕКТИРОВАНИЕ ЭЛЕМЕНТОВ ДИСТАНЦИОННОГО КУРСА ОБУЧЕНИЯ 42
4.1 Текст электронного курса обучения 42
4.2 Разработка интерфейса 43
4.3 Руководство пользователя 51
4.4 Тестирование разработанного курса обучения 61
5. ОЦЕНКА ЭКОНОМИЧЕСКОЙ ЭФФЕКТИВНОСТИ ПРОЕКТА 69
5.1. Ленточный график 69
5.2 Составление сметы затрат на разработку 70
5.3. Определение цены создания системы 72
5.4. Расчет показателей экономической эффективности 77
6. БЕЗОПАСНОСТЬ И ЭКОЛОГИЧНОСТЬ ПРОЕКТА 78
6.1 Анализ технического обеспечения системы 78
6.2 Мероприятия по эргономическому обеспечению 79
6.3 Мероприятия по технике безопасности 82
6.4 Мероприятия по пожарной безопасности 89
ЗАКЛЮЧЕНИЕ 93
ЛИТЕРАТУРА 95
ПРИЛОЖЕНИЕ А ЛИСТИНГ ПРИЛОЖЕНИЯ 99

К тому же на них устанавливаются фильтры, что позволяет очищать воздух от примесей и пылей.Повышенный уровень шумаПри работе на персональном компьютере шум, воздействующий на инженера, не должен превышать максимально допустимых уровней звукового давления, определенных в ГОСТ 12.1.003-83* и указанных в таблице 6.4.Таблица 6.4 Нормы уровня шумаПовышенный уровень вибрацииРаботающие персональные компьютеры создают вибрацию, вызванную вращением электродвигателей вентиляторов, дисководов. Нормы вибрации по ГОСТ 12.1.012-90 приведены в таблице 6.5.Таблица 6.5Нормы вибрацииОднако работающая компьютерная техника не создает значительных вибраций. Исключение составляют только приводы чтения дисков. Но их относительное время работы невелико, и для снижения вибрации достаточно переставить системный блок со стола на пол. Для большего снижения уровня вибрации.Повышенное значение напряжения в электрической цепиПредельно допустимые уровни напряжений и токов в зависимости от времени прикосновения регламентируются в ГОСТ 12.1.038-82* и приведены в таблице 6.6.Таблица 6.6 Предельно допустимые уровни напряжений и токовРисунок 6.4 – Схема расположения светильников в помещенииПомещения, где расположены компьютеры, должны иметь определенное освещение. Нормы освещенности определены в СНиП 23-05-95 и приведены в таблице 5.7 для данного типа работ.Рассчитываемое помещение имеет следущие характеристики:Длина А – 10 мШирина В – 8 мВысота – 3,7 мДлина подвеса светильников – 0,2 мВысота рабочей поверхности – 0,8 мНеобходимо рассчитать освещение помещения исходя из того, что будет использоваться 20 светильников.Для данного вида работ достаточно использовать одно общее освещение без применения местного. В качестве источников света выбраны люминесцентные лампы, так как они обладают высокой световой отдачей, большим сроком службы, равномерный спектр.Таблица 6.7Нормы освещенностиХарактеристика зрительной работыРазряд и подразряд зрительной работыКонтраст объекта различения с фономХарактеристика фонаМинимальный размер объекта различения,(мм)Искусственное освещениеЕстественное освещениеОсвещенность, лкКЕО, %При комбинированном освещенииПри общем освещенииПри верхнем или верхнем и боковом освещенииСредняя точностьIV (г)БольшойСветлыйот 0,5 до 1,0-2004Световой поток одного светильника определяется по формуле,где EH – нормируемое значение освещенности (табл. 6.1),КЗ – коэффициент запасаS – освещаемая площадьZ=EСР/EМИН, где EСР и EМИН – среднее и минимальное значения освещенностиn – число светильниковUОУ – коэффициент использования светового потокаДля люминесцентных ламп коэффициент Z принимается равным 1,1/Значения коэффициента запаса для различных помещений приведены в таблице 6.8Таблица 6.8 Значения коэффициента запасаТип помещенияТип источника светагазоразрядныенакаливанияС незначительным содержанием пыли и копоти1,51,3Со средним содержанием пыли и копоти1,81,5Открытые территории1,51,4Используя таблицу 6.2 находим Z=1,5Индекс помещения определяется по формуле ,где А и В – длина и ширина помещения соответственно, hР – высота подвеса над рабочей поверхностью.Так как в рассчитываемом помещении побеленный потолок и светлые стены, то примем значения коэффициентов отражения равными ρП=0,7; ρС=0,5; ρР=0,1. Используя найденные коэффициенты отражения и индекс помещения найдем коэффициент использования светового потока UОУ=0,35Вычислим необходимый световой поток светильника лкДля обеспечения требуемого светового потока выберем лампу ЛДЦ40-1, обеспечивающую световой поток в 2200 лкЛампы будем размещать в светильниках ЛСП02-2x40-13-15, которые имеют габаритные размеры 1234x280x159 ммВнешний вид светильника представлен на рисунке 6.5.Рис. 6.5 – Внешний вид светильникаСветильники с люминесцентными лампами устанавливают рядами, параллельно длинной стороне помещения или стенке с окнами.Расстояние между светильниками по длине и ширине помещения выбирается из условия La / Lb l,5.Расстояние от крайних светильников до стены выбирается из 0,3 0,5 La, 0,3 0,5 Lb. L1 ~ 0, 6-0,7 м, L2 ~2 м.Схема размещения светильников в помещении приведена на рисунке 6.4.6.4 Мероприятия по пожарной безопасностиСогласно НПБ 105-03 помещения, где располагаются персональные компьютеры, относятся к категории ‘В’ пожарной опасности, при которой горючие и трудногорючие жидкости, твердые материалы и вещества, а также материалы, которые при взаимодействии с водой, воздухом или друг с другом способны только гореть.СНиП 2101-97 регламентирует число, размеры и конструкторские решения устройства эвакуационных путей. В соответствии с ним выбираем:число выходов – 2;высота потолка в проходах – не менее 2 м;ширина проходов – не менее 0.8 м. Проходы должны иметь естественное и искусственное освещение.Согласно ГОСТ 12.4.009-83* помещения вычислительного центра объемом 200 м2 должны иметь следующие средства пожаротушения:углекислотный огнетушитель ОУ-8 – 1 шт;порошковый огнетушитель ОП-5-01 – 1 шт;спринклерная система пожаротушения.Технические характеристики спринклеров приведены в таблице 6.9.Таблица 6.9Технические характеристики спринклеровПараметрЗначениерасход Q0,6 - 2,5 л/cрабочее давление Pp6 -10 барзащищаемая площадь Sз12 м2-30 м2угол распыла120°-240°Cинтенсивность орошения qср0,03 -0,08 л/(с·м2)среднеквадратическое отклонение Sq<50%Возможность работы на растворах пенообразователяПод пожаром понимают неконтролируемый процесс горения, сопровождающийся уничтожением материальных ценностей и создающий опасность для жизни людей. Пожар может принимать различные формы, однако все они в конечном счете сводятся к химической реакции между горючими веществами и кислородом воздуха (или иным видом окислительных сред), возникающей при наличии инициатора горения или в условиях самовоспламенении.Пожары и возгорания на производственных предприятиях могут привести к ожогам разных степеней работающего персонала, отравлению продуктами горения, а так же могут стать причиной смерти.Для предупреждения пожаров, возникающих от неправильной эксплуатации электроустановок, необходимо правильно выбирать и применять кабели, электропровода, двигатели, светильники и другое электрооборудование в соответствии с классом пожаровзрывоопасности помещений и условий окружающей среды.Все электроустановки должны иметь аппараты защиты от токов короткого замыкания и других нарушений режимов, могущих привести к пожарам и загораниям. Электрическую сеть необходимо монтировать так, чтобы электрические светильники не соприкасались со сгораемыми конструкциями зданий и горючими материалами; светильники должны быть закрытыми или защищёнными от пыли.Большое значение для пожарной профилактики имеет система мер по предотвращению распространения огня: противопожарные разрывы между зданиями и сооружениями, противопожарные внутренние и внешние преграды, наличие противопожарного водоснабжения и первичных средств для тушения очагов возгораний, пожарной сигнализации и связи и др.Расчет эвакуации при пожаре Лаборатория имеет один эвакуационный выход. Количество человек работающих в ней равно 4. Число людей, которые могут оказаться в лаборатории по служебной необходимости, принимается равным 50 % . Определяем общее количество людей в лаборатории: SN = Nт + 0,5 · Nт SN = 4 + 0,5 · 4 = 6 человек Определяем равномерное перераспределение людей по потокам эвакуации: SN / n = 6 / 1 = 6 человек Минимальную скорость движения людских потоков принимаем равной 20 м / мин. Определяем время перемещения (эвакуации): t = l / v, где t - максимальная продолжительность эвакуации людей от рабочих мест до ближайшего выхода, мин.; l - наибольшее расстояние от рабочего места до ближайшего эвакуационного выхода, м.; v - скорость перемещения людей при эвакуации, м / мин.t = 6/ 20 = 0,3 минутыСуммарную ширину проходов (В) для эвакуации всех находящихся в лаборатории людей определяем по формуле: В = (N * C) / (t *j), где N - общее число людей в лаборатории, человек; С - минимальная ширина одного потока, С = 0,8 м; t - время эвакуации, мин.; j - средняя пропускная способность одного потока; j = 20 чел/мин. В = (6 * 0,8) / (0,3 * 20) = 0,8 метра Полученная ширина соответствует нормам противопожарной безопасности, установленными для лабораторииЗАКЛЮЧЕНИЕВ дипломном проекте был разработано Электронное учебное пособиена базе которого был создан курс обучения “Основы программирования на языке Delphi”, который предназначен для обучения студентов. Благодаря дружественному и простому в использовании интерфейсу у пользователя есть возможность быстро и эффективно освоить данный курс, оценить свои знания, с помощью программы самоконтроля проверить, усвоен ли материал. В рамках работы над этой системой было проанализировано техническое задание на разработку информационно-обучающей системы, разработана его информационная часть, сформированы требования к аппаратной, информационной частям системы, выполнено функциональное проектирование системы.На основании полученных результатов спроектирована информационная часть информационно-обучающей системы по энергосистемам автомобиля, разработано алгоритмическое и программное обеспечение системы проведения тестирующего опроса база данных.В качестве средств разработки информационной обучающей системы в виде электронного учебного пособия использовалось средство визуального проектирования Borland Development Studio 2006, а так же язык разметки Web документов HTML.Было разработано алгоритмическое и программное обеспечение тестирующей системы, которое способнонакапливать сведения о результатах тестирования студентами разных групп и отображать результаты тестирования, а так же дополнять систему новыми тестами и вариантами ответов.С разработанным проектом были проведены все необходимые мероприятия по тестированию и испытанию в среде Windows. На основании проведения тестирования были сделаны следующие выводы:Созданная система выполняет все функции, указанные в ТЗ.Система корректно осуществляет свою работу при работе с большими объемами данных и при выполнении запросов.При тестировании было определено, что система обрабатывает все исключительные ситуации, но имеет недостаточную информационную поддержку сообщений об ошибках и недостаточное описание ошибок.В ходе тестирования на разных конфигурациях было определено, что система способна эффективно работать в среде Windows на компьютере минимальной конфигурацией, все ошибки, выявленные в результате тестирования, были устранены.В завершении работы была проведена оценка экономической эффективности предлагаемых решений, а так же экологической безопасности предлагаемых проектных решений.ЛИТЕРАТУРАDelphi 7 на примерах/Под ред. Ю. С. Ковтанюка — К.: Издательство Юниор, 2003. — 384 с., ил.Автоматизированные информационные системы. Криницкий Н.А., Миронов Г.А., Фролов Г.Д./ Под ред. А.А.Дородницына.-М.: Наука. Главная редакция физико-математической литературы, 1982.-384 с.Андрианова E.Г., Колесников Г.С., Сыромятников В. П. Структуры и алгоритмы обработки данных - часть 2. / Лабораторный практикум. МИРЭА, Москва, 2004 г.Архангельский А.Я. 100 компонентов общего назначения библиотеки Delphi 5. — М.: Бином, 1996. — 266 с.Архангельский А.Я. Программирование в Delphi 6. — М.: Бином, 2001. — 564 с.Архангельский А.Я. Язык SQL в Delphi 5. — М.: Бином, 2000. — 205 с.Ахо Альфред. В.. Хопкрофт, Джон, Ульман, Джеффри Д. Структуры данных и алгоритмы. : Пер. с англ. : Уч. пос. — М. : Издательский дом "Вильяме", 2000, — 384 сАхтамова С.С. Алгоритмы поиска данных // Современные наукоемкие технологии. – 2007. – № 3 – С. 11-14.Бакнелл Джулиан М. Фундаментальные алгоритмы и структуры данных в Delphi. Пер. с англ./Джулиан М. Бакнелл. - СПб: ООО «ДиаСофтЮП», 2003.- 560 с.Башмаков А.И., Башмаков И.А. Разработка компьютерных учебников и обучающих систем. – М.: Информационно-издательский дом «Филинъ», 2003Безопасность жизнедеятельности: Электробезопасность: учеб.пособие / В. С. Розанов. - М. : 1999 г. Беспалько В.П. Образование и обучение с участием компьютера (педагогика третьего тысячелетия). М.: Изд-во Моск. психол.-соц. Ин-та-Воронеж: Изд-во НПО "МОДЭК", 2002. - 352 с.Буч Г. Объектно-ориентированное проектирование с примерами применения. М., 1992. - 654с.Вирт Н. Алгоритмы и структуры данных: Пер. с англ. М.: Мир, 2001.Гагарина Л.Г. Алгоритмы и структуры данных: учеб. пособие/ Л.Г. Гагарина, В.Д. Колдаев. - М.: Финансы и статистика; ИНФРА-М, 2006. -304 с.Гайдамакин Н. А. Автоматизированные информационные системы, базы и банки данных. Вводный курс: Учебное пособие. — М.: Гелиос АРВ, 2002. — 368 с.Гасфилд Д. Строки, деревья и последовательности в алгоритмах: Информатика и вычислительная биология / Пер с англ. И.В. Романовского. — СПб.: Невский диалект; БХВ-Петербург, 2003 г. — 654 с.Гиндикин С.Г., Рассказы о физиках и математиках. - 3-е изд., расширенное. М.: МЦНМО, 2001. - 448 с/Голицына ОЛ., Попов И.И. Основы алгоритмизации и программирования: учеб. пособие. — 3-е изд., испр. и доп. — М: ФОРУМ, 2008. — 432 сГолубков Е.П. Маркетинговые исследования: теория, методология и практика. М., Финпресс, 1998. – 280с.ГОСТ 16.701–90 (ИСО 5807-85). Схемы алгоритмов программ, данных и систем. Условные обозначения и правила выполнения. - Введ. 01.01.92. – М.: Госстандартиздат, 1990. – 20 с. ГОСТ 16.701–90 (ИСО 5807-85). Схемы алгоритмов программ, данных и систем. Условные обозначения и правила выполнения. - Введ. 01.01.92. – М.: Госстандартиздат, 1990. – 20 с.Гофман В.Э. Хомоненко А.Д. Delphi 6. - СПб.: - Санкт-Петербург, 2001. –1145с.Информатика : учебник для вузов / под ред. Н.В. Макаровой. – М. : Финансы и статистика, 2007. – 768 с.Каймин В.А., Горелов Ю.Н., "Об электронных учебниках по информатике и финансовому менеджменту", / Материалы конференции "Информационные технологии в образовании", Троицк. 1998.Ковалев А. И., Войленко В. В. Маркетинговый анализ. М., Центр экономики и маркетинга, 1996.Конноли Томас, Бегг Каролин. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. — М.: Вильямс, 2000. – 1111 с.Культин Н.Б. Delphi 6: Программирование на Object Pascal. — М.: Бином, 2001. — 526 с.Культин Н.Б. Delphi 7: Программирование на Object Pascal. — М.: Бином, 2003. — 535 с.Нестандартные приемы программирования на Delphi. — СПб.: БХВ-Петербург, 2005. — 560 с : ил.Питер Роб, Карлос Коронел. Системы баз данных: проектирование, реализация и управление, БХВ-Петербург, Сп-б, 2004 г.Смирнов А.Н. Проблемы электронного учебника // "Математика в школе", 2000 год., №5.Фатрелл Р., Шафер Д. Шафер Л. Управление программными проектами: достижение оптимального качества при минимуме затрат. М.: «Вильямс», 2003. – 1128с.Федотова Д.Э. Технология разработки и отладки программ: Учебн. пособие / МИРЭА.-М., 1987.-80с.Федотова Д.Э. Типы и структуры данных в современных языках программирования. / Учебное пособие. Москва, 1981 г.Федотова Д.Э., Семенов Ю.Д., Чижик К.Н. CASE - технологии. Москва, Горячая линия - Телеком, 2003 г.Челышкова М.Б. Адаптивное тестирование в образовании М.: Информационно-издательский дом «Филинъ», 2003.- 440 с.Шумаков П.В., Фаронов В.В. Delphi 5. Руководство разработчика баз данных. — М.: Нолидж, 2000. — 635 с.Экономика предприятия (фирмы):/ Учебник/ под ред.проф. О.И.Волкова и доц. О.В.Девяткина.- 3-е изд., перераб. и доп. ._М.: ИНФРА, М.-2004 г.Якобсон А., Буч Г., Рамбо, Дж Унифицированный процесс разработки программного обеспечения. - СПб.: Питер,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;// Update; 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;{Width := (Screen.Width * 8) div 10;Height := (Screen.Height * 6) div 8; }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;{DragAcceptFiles(Handle, True);HintWindow := THintWindow.Create(Self);HintWindow.Color := $CCFFFF; }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;// Self.Caption := DocumentTitle; 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. 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;//Caption := DocumentTitle; {keep the caption updated}//Viewer.SetFocus; end;end;end.unit edit;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, Grids, RzGrids, ExtCtrls, RzPanel, StdCtrls, RzCmboBx, Mask, RzEdit, RzSpnEdt, main, rezult;type TEditForm = class(TForm) RzStringGrid1: TRzStringGrid; RzSpinEdit1: TRzSpinEdit; RzComboBox1: TRzComboBox; Label1: TLabel; Label2: TLabel; RzPanel1: TRzPanel; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; RzBitBtn3: TRzBitBtn; RzBitBtn4: TRzBitBtn; Label3: TLabel; procedure RzBitBtn4Click(Sender: TObject); procedure RzComboBox1Change(Sender: TObject); procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn3Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure RzSpinEdit1Change(Sender: TObject); private { Private declarations } public { Public declarations } end;var EditForm: TEditForm; j:integer;implementation{$R *.dfm}procedure TEditForm.FormCreate(Sender: TObject);begineditform.RzStringGrid1.ColWidths[0]:=250;editform.RzStringGrid1.Cells[0,0]:='Вопрос';editform.RzStringGrid1.ColWidths[1]:=100;editform.RzStringGrid1.Cells[1,0]:='Вариант 1';editform.RzStringGrid1.ColWidths[2]:=100;editform.RzStringGrid1.Cells[2,0]:='Вариант 2';editform.RzStringGrid1.ColWidths[3]:=100;editform.RzStringGrid1.Cells[3,0]:='Вариант 3';editform.RzStringGrid1.ColWidths[4]:=100;editform.RzStringGrid1.Cells[4,0]:='№ прав.';editform.RzComboBox1Change(sender);end;procedure TEditForm.RzBitBtn1Click(Sender: TObject); var j:integer;begineditform.Label3.Caption:=''; gShortFileName := 'v'+inttostr(editform.RzComboBox1.ItemIndex)+'.txt'; gFileName := ExtractFilePath(Application.ExeName) + '\' + gShortFileName; AssignFile(gF, gFileName); Rewrite(gF); for j:=1 to editform.RzStringGrid1.rowcount-1 do begin vopros[j].tema:=editform.RzComboBox1.ItemIndex; vopros[j].soder:=editform.RzStringGrid1.Cells[0,j]; vopros[j].otvet1:=editform.RzStringGrid1.Cells[1,j]; vopros[j].otvet2:=editform.RzStringGrid1.Cells[2,j]; vopros[j].otvet3:=editform.RzStringGrid1.Cells[3,j]; if editform.RzStringGrid1.Cells[4,j]='' then showmessage('не введен правильный ответ в строке '+inttostr(j)) else vopros[j].prav:=strtoint(editform.RzStringGrid1.Cells[4,j]); //Записываем данные Write(gF, vopros[j]); end; //Закрываем файл. CloseFile(gF); editform.Label3.Caption:='файл успешно сохранен';end;procedure TEditForm.RzBitBtn2Click(Sender: TObject);begineditform.Label3.Caption:=''; gShortFileName := 'v'+inttostr(editform.RzComboBox1.ItemIndex)+'.txt'; gFileName := ExtractFilePath(Application.ExeName) + gShortFileName; AssignFile(gF, gFileName); Reset(gF); j:=1; editform.RzStringGrid1.RowCount:=5; while not(eof(gf)) do begin read(gF, vopros[j]); editform.RzStringGrid1.Cells[0,j]:= vopros[j].soder; editform.RzStringGrid1.Cells[1,j]:=vopros[j].otvet1; editform.RzStringGrid1.Cells[2,j]:=vopros[j].otvet2; editform.RzStringGrid1.Cells[3,j]:=vopros[j].otvet3; editform.RzStringGrid1.Cells[4,j]:= inttostr(vopros[j].prav); j:=j+1; end; //Закрываем файл. editform.RzSpinEdit1.IntValue:=j-1; CloseFile(gF); editform.Label3.Caption:='файл успешно загружен'; //close(gf);end;procedure TEditForm.RzBitBtn3Click(Sender: TObject);begin editform.Close; mainform.Visible:=true;end;procedure TEditForm.RzBitBtn4Click(Sender: TObject);begin rezform.FormCreate(sender); rezform.show;end;procedure TEditForm.RzComboBox1Change(Sender: TObject);begin gShortFileName := 'v'+inttostr(editform.RzComboBox1.ItemIndex)+'.txt'; gFileName := ExtractFilePath(Application.ExeName) + gShortFileName; AssignFile(gF, gFileName); Reset(gF); j:=1; editform.RzStringGrid1.RowCount:=5; while not(eof(gf)) do begin read(gF, vopros[j]); editform.RzStringGrid1.RowCount:=j+1; editform.RzStringGrid1.Cells[0,j]:= vopros[j].soder; editform.RzStringGrid1.Cells[1,j]:=vopros[j].otvet1; editform.RzStringGrid1.Cells[2,j]:=vopros[j].otvet2; editform.RzStringGrid1.Cells[3,j]:=vopros[j].otvet3; editform.RzStringGrid1.Cells[4,j]:= inttostr(vopros[j].prav); j:=j+1; end; editform.RzSpinEdit1.IntValue:=j-1; CloseFile(gF);end;procedure TEditForm.RzSpinEdit1Change(Sender: TObject);begineditform.RzStringGrid1.RowCount:=editform.RzSpinEdit1.IntValue+1;end;end.unit test;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, ExtCtrls, RzPanel, RzRadChk, RzRadGrp, StdCtrls, Mask, RzEdit,main, RzPrgres;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; RzProgressBar1: TRzProgressBar; Label3: TLabel; RzProgressBar2: TRzProgressBar; Label4: TLabel; procedure FormCreate(Sender: TObject); 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,kk:word; gf1:TOtvetFile;implementation{$R *.dfm}procedure TTestForm.FormCreate(Sender: TObject);beginkk:=0;end;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;Testform.RzProgressBar1.Percent:= Round((cur_vopros+1)/cur_count*100);if a[cur_vopros]<> vopros[cur_vopros].prav thenbegin Testform.RzProgressBar2.Percent:= Round((kk)/(cur_vopros+1)*100); kk:=kk+1;end;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:='Темы 1-5. Основы программирования в Delphi'; 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:='Темы 6-14. Свойства, методы и события в Delphi'; 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:='Темы 15-25. Работа с базами данных в Delphi'; 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:='Темы 26-29. Основы ООП'; 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:='Тема 30. Осовы SQL'; 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; { f_student.vsego:=0; f_student.osh:=0; }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.