12726 Разработка автоматизированной обучающей системы для технического колледжа

ПЭВМ генерирует в окружающее пространство широкий спектр ЭМП различной интенсивности, в том числе: — электростатическое поле;

низкочастотные ЭМП; - электромагнитное излучение радиочастотного диапазона;

излучение оптического (видимого) диапазона;

(УФ) и рентгеновское излучения ЭЛТ. Кроме того, на рабочем месте пользователя всегда присутствует электромагнитный фон промышленной частоты, обусловленный как ПЭВМ, так и сторонними источниками. Рентгеновское и ультрафиолетовое излучения практически полностью поглощаются внутри корпуса дисплея, а интенсивность излучений радиочастотного диапазона пренебрежимо мала, поэтому радиочастотные, УФ и рентгеновское излучения в качестве вредных производственных факторов не рассматриваются. Источником электростатического поля является экран дисплея, несущий высокий электростатический потенциал (ускоряющее напряжение ЭЛТ). Заметный вклад в общее электростатическое поле вносят электризующиеся от трения поверхности клавиатуры и мыши. ПДУ электромагнитного поля и поверхностного электростатического потенциала ВДТ нормируются в соответствии с СаНПиН 2.

2.2. 542−96 и приведены в таблице 4.

1.Таблица 4.1ПДУ электромагнитного поля и поверхностного электростатического потенциала ВДТВид поля.

Диапазон частот.

Единица измерения.

ПДУмагнитное поле5Гц- 2кГцн.

Тл250магнитное поле2- 400 кГц, нТл25электрическое поле5Гц- 2кГцВ/м25электрическое поле2- 400 кГцВ/м2,5эквивалентный (поверхностный) электростатический потенциал.

В5004.

1.2 Неблагоприятный микроклимат рабочей зоны.

Работа инженера за персональным компьютером малоподвижна, его энергозатраты не превышают 172 Дж/с. Данные работы относятся к категории — легкая (Iа). Нормы микроклимата для теплого и холодного периодов определены в ГОСТ 12.

1.005−88 и приведены в таблице 4.

2.Таблица 4.2 Нормы микроклимата.

ПараметрыТеплый период.

Холодный период.

Температура, С23−2522−24Относительная влажность, %40−6040−60Скорость движения воздуха, м/с0,10,1Объем помещений, в которых размещены работники вычислительного центра, не должен быть меньше 19.5 м3/чел с учетом максимального числа работающих в смену. Нормы подачи свежего воздуха в помещение, где расположены компьютеры, приведены в таблице 5.

3.Таблица 4.3 Нормы подачи свежего воздуха в помещение.

Характеристика помещения, м3/чел.

Объемный расход подаваемого в помещение свежего воздуха, м3/ч в час.

Объем до 20Не менее 30Объем 20−40Не менее 20Объем более 40Естественная вентиляция.

Для обеспечения нормирования параметров микроклимата необходимо установить кондиционер. Современные кондиционеры не только регулируют температуру, но и обеспечивают необходимую циркуляцию воздуха, а также влажность. К тому же на них устанавливаются фильтры, что позволяет очищать воздух от примесей и пылей.

4.1. 3 Повышенный уровень шума.

При работе на персональном компьютере шум, воздействующий на инженера, не должен превышать максимально допустимых уровней звукового давления, определенных в ГОСТ 12.

1.003−83* и указанных в таблице 4.

4.Таблица 4.4 Нормы уровня шума.

Уровни звукового давления (дБ), в октавных полосах со средне геометрическими частотами (Гц)Уровни звука и эквивалентные уровни, дБА631 252 505 001 000 216 507 183 515 614 999 221 161 164 800.

Существуют разные аппаратные решения для создания «тихих» ПК. Их можно применять как по отдельности, так и в комплексе. Перечислим некоторые из них: Звукоизолирующая прокладка. Прокладка из звукопоглощающей пены, устанавливаемая внутри корпуса, заглушает практически все звуки, создаваемые компонентами ПК. Однако вместе со звуком затрудняется и отвод наружу тепла.

Оболочка для жёсткого диска. Диск, заключенный в изолирующую оболочку, гудит тише, но такая конструкция устанавливается только в отсек, соседствующий с CD-приводом. Звукопоглощающий корпус. Если вы собираете ПК самостоятельно, возможно, имеет смысл приобрести корпус с тихими вентиляторами охлаждения как самого корпуса, так и блока питания, а также с расширенными вентиляционными отверстиями. Вентиляторы охлаждения корпуса.

Вентиляторы охлаждения корпуса, имеющие специальную конструкцию и термостатический контроль, с одной стороны, подают достаточно воздуха для охлаждения системы, а с другой — создают минимум шума. Вентиляторы охлаждения блока питания. Самым шумным компонентом ПК часто является блок питания. В таких случаях для обретения спокойствия достаточно заменить его на более тихий.

4.1. 4 Повышенный уровень вибрации.

Работающие персональные компьютеры создают вибрацию, вызванную вращением электродвигателей вентиляторов, дисководов. Нормы вибрации по ГОСТ 12.

1.012−90 приведены в таблице 4.

5.Таблица 4.5 Нормы вибрации.

Вид вибрации.

Среднеквадратическое значение виброскорости, м/с*10−2 (не более) Логарифмические уровни виброскорости (дБ), в октавных полосах со среднегеометрическими частотами (Гц)В вычислительных центрах12 481 631,5631252601,18 910,063820,32 760,028750,28 750,02875.

Однако работающая компьютерная техника не создает значительных вибраций. Исключение составляют только приводы чтения дисков. Но их относительное время работы невелико, и для снижения вибрации достаточно переставить системный блок со стола на пол. Для большего снижения уровня вибрации часто бывает достаточно открыть корпус, снять крышку и хорошенько подтянуть крепежные винты таких компонентов, как блок питания, дисководы, материнская плата и вентиляторы. Иногда в комплекте с блоком поставляются пластиковые или резиновые шайбы, которые еще больше снижают вибрацию. Недорогие наборы пластиковых прокладок изолируют вентиляторы и другие источники вибраций от корпуса. Существуют такие наборы и для жёстких дисков.

4.1. 5 Повышенное значение напряжения в электрической цепи.

Предельно допустимые уровни напряжений и токов в зависимости от времени прикосновения регламентируются в ГОСТ 12.

1.038−82* и приведены в таблице 4.6Таблица 4.6Предельно допустимые уровни напряжений и токов.

Род тока.

Норми-руемая вели-чина.

Предельно допустимые уровни, не более, при продолжительности воздействия тока, t, с. 0,010,10,20,30,40,50,60,70,80,91,0Пере-менный, 50ГцU, ВI, мА6 505 002 501 651 251 378 501 189 632.

Посто-янныйU, ВI, мА6 505 004 003 503 002 079 452 632 251 891 712.

2 Расчет общей освещенности.

Помещения, где расположены компьютеры, должны иметь определенное освещение. Нормы освещенности определены в СНиП 23−05−95 и приведены в таблице 4.7 для данного типа работ. Рассчитываемое помещение имеет следущие характеристики:

длина, А — 10 м;ширина В — 8 м;высота — 3,7 м;длина подвеса светильников — 0,2 м;высота рабочей поверхности — 0,8 м;Необходимо рассчитать освещение помещения исходя из того, что будет использоваться 20 светильников. Для данного вида работ достаточно использовать одно общее освещение без применения местного. В качестве источников света выбраны люминесцентные лампы, так как они обладают высокой световой отдачей, большим сроком службы, равномерный спектр. Таблица 4.7Характеристика зрительной работы.

Разряд и подразряд зрительной работы.

Контраст объекта различения с фоном.

Характеристика фона.

Минимальный размер объекта различения,(мм)Искусственное освещение.

Естественное освещение.

Освещенность, лк.

КЕО, %При комбинированном освещении.

При общем освещении.

При верхнем или верхнем и боковом освещении.

СредняяточностьIV (г)Большой.

Светлыйот 0,5 до 1,0−2004.

Световой поток одного светильника определяется по формуле, где EH — нормируемое значение освещенности (таблицу 4.1), КЗ — коэффициент запасаS — освещаемая площадьZ=EСР/EМИН, где EСР и EМИН — среднее и минимальное значения освещенностиn — число светильниковUОУ — коэффициент использования светового потока.

Для люминесцентных ламп коэффициент Z принимается равным 1,1Значения коэффициента запаса для различных помещений приведены в таблице 4.8Таблица 4.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−2×40−13−15, которые имеют габаритные размеры 1234×280×159 мм.

Внешний вид светильника представлен на рисунке 4.1Рис.

4.1 — Внешний вид светильника.

Светильники с люминесцентными лампами устанавливают рядами, параллельно длинной стороне помещения или стенке с окнами. Расстояние между светильниками по длине и ширине помещения выбирается из условия La / Lb l, 5. Расстояние от крайних светильников до стены выбирается из 0,3 0,5 La, 0,3 0,5 Lb. L1 ~ 0, 6−0,7 м, L2 ~2 м. Схема размещения светильников в помещении приведена на рисунке 5.2Рис.

4.2 — Схема расположения светильников в помещении4.

3 Пожарная безопасность.

Согласно НПБ 105−03 помещения, где располагаются персональные компьютеры, относятся к категории ‘В' пожарной опасности, при которой горючие и трудногорючие жидкости, твердые материалы и вещества, а также материалы, которые при взаимодействии с водой, воздухом или друг с другом способны только гореть. СНиП 2101−97 регламентирует число, размеры и конструкторские решения устройства эвакуационных путей. В соответствии с ним выбираем:

число выходов — 2;высота потолка в проходах — не менее 2 м;ширина проходов — не менее 0.8 м. Проходы должны иметь естественное и искусственное освещение. Согласно ГОСТ 12.

4.009−83* помещения вычислительного центра объемом 200 м² должны иметь следующие средства пожаротушения:

углекислотный огнетушитель ОУ-8 — 1 шт;порошковый огнетушитель ОП-5−01 — 1 шт;спринклерная система пожаротушения. Технические характеристики спринклеров приведены в таблице 4.9Таблица 4.9 Технические характеристики спринклеров.

ПараметрЗначениерасход Q0,6 — 2,5 л/cрабочее давление Pp6 -10 барзащищаемая площадь Sз12 м2−30 м2угол распыла120°.

— 240°Cинтенсивность орошения qср0,03 -0,08 л/(с· м2) среднеквадратическое отклонение Sq<50%Возможность работы на растворах пенообразователя.

ЗАКЛЮЧЕНИЕ

В рамках выполнения дипломной работы, в соответствии с полученным техническим заданием была разработана информационно-обучающая система для технического колледжа по энергосистемам автомобиля. В рамках работы над этой системой было проанализировано техническое задание на разработку информационно-обучающей системы, разработана его информационная часть, сформированы требования к аппаратной, информационной частям системы, выполнено функциональное проектирование системы. На основании полученных результатов спроектирована информационная часть информационно-обучающей системы по энергосистемам автомобиля, разработано алгоритмическое и программное обеспечение системы проведения тестирующего опроса база данных. В качестве средств разработки информационной обучающей системы в виде электронного учебного пособия использовалось средство визуального проектирования Borland Builder C++ 6.0, а так же язык разметки Web документов HTML, для реализации базы данных использовалась система управления база данных MS Access 2007.

Было разработано алгоритмическое и программное обеспечение тестирующей системы, которое способнонакапливать сведения о результатах тестирования студентами разных групп и отображать результаты тестирования, а так же дополнять систему новыми тестами и вариантами ответов. С разработанным проектом были проведены все необходимые мероприятия по тестированию и испытанию в среде Windows. На основании проведения тестирования были сделаны следующие выводы:

Созданная система выполняет все функции, указанные в ТЗ. Система корректно осуществляет свою работу при работе с большими объемами данных и при выполнении запросов. При тестировании было определено, что система обрабатывает все исключительные ситуации, но имеет недостаточную информационную поддержку сообщений об ошибках и недостаточное описание ошибок. В ходе тестирования на разных конфигурациях было определено, что система способна эффективно работать в среде Windows на компьютере минимальной конфигурацией, все ошибки, выявленные в результате тестирования, были устранены. В завершении работы была проведена оценка экономической эффективности предлагаемых решений, а так же экологической безопасности предлагаемых проектных решений.

ЛИТЕРАТУРА

Архангельский А.Я. Buider c++. Справочное пособие. — М.: Бином, 2001. — 1024 с. Архангельский А. Я. Программирование в Buider c++. — М.: Бином, 2001. — 564 с. Базы данных: модели, разработка, реализация / Карпова Т.- СПб.: Питер, 2001.

— 304с. Базы данных: модели, разработка, реализация / Карпова Т.- СПб.: Питер, 2010. — 304с. Буч Г. Объектно-ориентированное проектирование с примерами применения. М., 1992.

— 654с. Гофман В. Э. Хомоненко А.Д. Delphi 5. — СПб.: — Санки-Петербург, 2000. -.

800с.Гофман В. Э. Хомоненко А.Д. Delphi 6. — СПб.: — Санки-Петербург, 2001. — 1145с. Якобсон А., Буч Г., Рамбо, Дж Унифицированный процесс разработки программного обеспечения. — СПб.: Питер, 2002.-496 с. Мацяшек Л Анализ требований и проектирование систем. Разработка информационных систем с использованием UML.

— М.: Издательский дом «Вильямс», 2002.-432 с. Галатенко В. Информационная безопасность // Открытые системы- 1996. — N 1−4.Жидецкий В. Ц. Охрана труда пользователей компьютеров.

— К.: «Освіта», 1999. 186с. Актуальные проблемы качества педагогического образования: материалы науч.

практ. конф., 1 февр. 2002 г. — Новосибирск: НГПУ, 2002. — 214 с. Башмаков А. И., Башмаков И. А. Разработка компьютерных учебников и обучающих систем. — М.: Информационно-издательский дом «Филинъ», 2003.

Белов А. А. Система анализа результатов тестирования // Университетское образование: Сборник материалов VIII Междунар. науч.

методич. конф. — Пенза: ПДЗ, 2004. — С.497−498.Бершадский А. М., Кревский И. Г., Вергазов Р. И. Использование компьютерных средств контроля знаний для проведения междисциплинарного экзамена // Университетское образование: Сборник материалов VII Междунар. науч.

методич. конф. — Пенза: ПДЗ, 2003. — С.492−493.Беспалько В. П. Образование и обучение с участием компьютера (педагогика третьего тысячелетия). М.: Изд-во Моск. психол.

соц. Ин-та-Воронеж: Изд-во НПО «МОДЭК», 2002. — 352 с. Васильев В. И., Демидов А. Н., Малышев Н. Г., Тягунова Т. Н. «Методологические правила конструирования компьютерных педагогических тестов», М., ВТУ, 2000, 64 с. Фридланд А. Я. Информатика и компьютерные технологии. — М.: Астрель, 2002. — 279 с. Челышкова М. Б. Адаптивное тестирование в образовании М.: Информационно-издательский дом «Филинъ», 2003. 440 с. Каймин В. А., Горелов Ю. Н., «Об электронных учебниках по информатике и финансовому менеджменту», / Материалы конференции «Информационные технологии в образовании», Троицк. 1998 г. Смирнов А. Н. Проблемы электронного учебника // «Математика в школе», 2000 год., № 5Приложение АЛистинг программы//—————————————————————————————————————-#include <vcl.h>#pragma hdrstop#include «Unit1.h» #include «Unit2.h» #include «Unit3.h» #include «Unit4.h» #include «Unit6.h» //—————————————————————————————————————-#pragma package (smart_init)#pragma link «SHDocVw_OCX» #pragma resource «*.dfm» TForm1 *Form1;//—————————————————————————————————————-__fastcall TForm1: TForm1(TComponent* Owner): TForm (Owner){}//—————————————————————————————————————-void __fastcall TForm1: Button1Click (TObject *Sender){Form2->Show ();}//—————————————————————————————————————-void __fastcall TForm1: Button5Click (TObject *Sender){Form1->Close ();}//—————————————————————————————————————-void __fastcall TForm1: Button3Click (TObject *Sender){ Form1->Visible=false; if (InputBox («ввод пароля» ," Введите пароль" ," «) == „admin“) { Form3->ShowModal ();} else { ShowMessage („Пароль неправильный“); Form1->Visible=true; }}//—————————————————————————————————————-void __fastcall TForm1: FormCreate (TObject *Sender){WideString NewConnection; WideString qqq;ADOConnection1->Close (); // указываем файл .udl для ADOConnection1 String pr, dpr; pr="MSDataShape.1»; dpr="Microsoft.Jet.OLEDB.

4.0″; String tmp = ExtractFilePath (Application->ExeName) + «baza.mdb»; const String ConnStr = «Provider=%s;Data Provider=%s;Data Source=%s» ;if (!ADOConnection1->Connected) {ADOConnection1->ConnectionString = Format (ConnStr, ARRAYOFCONST ((pr, dpr, tmp)));Form1->ADOQuery1->ConnectionString=Format (ConnStr, ARRAYOFCONST ((pr, dpr, tmp))); ADOConnection1->Open (); }//активация таблицForm1->ADOTable1->Active=true;Form1->ADOTable2->Active=true;}//—————————————————————————————————————-void __fastcall TForm1: Button2Click (TObject *Sender){Form4->Show ();}//—————————————————————————————————————-void __fastcall TForm1: Button4Click (TObject *Sender){Form6->Show ();}//—————————————————————————————————————-//—————————————————————————————————————-#include <vcl.h>#pragma hdrstop#include «Unit2.h» //—————————————————————————————————————-#pragma package (smart_init)#pragma link «SHDocVw_OCX» #pragma resource «*.dfm» TForm2 *Form2;//—————————————————————————————————————-__fastcall TForm2: TForm2(TComponent* Owner): TForm (Owner){}//—————————————————————————————————————-void __fastcall TForm2: Button1Click (TObject *Sender){CppWebBrowser1->GoBack ();}//—————————————————————————————————————-void __fastcall TForm2: FormCreate (TObject *Sender){WideString path = ExtractFilePath (Application->ExeName) + «index.html» ;CppWebBrowser1->Height=800;CppWebBrowser1->Navigate (path.c_bstr ());Form2->Button5Click (Sender);}//—————————————————————————————————————-void __fastcall TForm2: Button2Click (TObject *Sender){CppWebBrowser1->GoForward ();}//—————————————————————————————————————-void __fastcall TForm2: Button3Click (TObject *Sender){CppWebBrowser1->Stop ();}//—————————————————————————————————————-void __fastcall TForm2: Button4Click (TObject *Sender){CppWebBrowser1->Refresh ();}//—————————————————————————————————————-void __fastcall TForm2: Button5Click (TObject *Sender){WideString path = ExtractFilePath (Application->ExeName) + «index.html» ;CppWebBrowser1->Height=800;CppWebBrowser1->Navigate (path.c_bstr ());}//—————————————————————————————————————-void __fastcall TForm2: Button6Click (TObject *Sender){Form2->Close ();}//—————————————————————————————————————-//—————————————————————————————————————-#include <vcl.h>#pragma hdrstop#include «Unit1.h» #include «Unit3.h» #include<stdio.h>#include<io.h>#include<io.h>#include<alloc.h>#include<fcntl.h>#include<process.h>#include<sysstat.h>//—————————————————————————————————————-#pragma package (smart_init)#pragma resource «*.dfm» #include «Unit5.h» TForm3 *Form3;TParameter *P1;//—————————————————————————————————————-__fastcall TForm3: TForm3(TComponent* Owner): TForm (Owner){}//—————————————————————————————————————-void __fastcall TForm3: FormCreate (TObject *Sender){ DBGrid1->Columns->Items[0]->Width = 30; DBGrid1->Columns->Items[1]->Width =100; DBGrid1->Columns->Items[2]->Width = 200; DBGrid1->Columns->Items[3]->Width = 110; DBGrid1->Columns->Items[4]->Width = 110; DBGrid1->Columns->Items[5]->Width = 110;Form3->ComboBox1Change (Sender);}//—————————————————————————————————————-void __fastcall TForm3: ComboBox1Change (TObject *Sender){ Form1->ADOTable1->Filtered=false; // Отменяем предыдущую фильтрацию если была Form1->ADOTable1->Filter="тема ="+QuotedStr (Form3->ComboBox1->Text); Form1->ADOTable1->Filtered=true;}//—————————————————————————————————————-void __fastcall TForm3: UpDown1Changing (TObject *Sender, bool &AllowChange){//Form3->StringGrid1->RowCount=Form3->UpDown1->Tag+1;}//—————————————————————————————————————-void __fastcall TForm3: BitBtn1Click (TObject *Sender){ Form1->DataSource1->DataSet=Form1->ADOQuery1; Form1->ADOQuery1->Active=false; Form1->ADOQuery1->SQL->Clear (); P1=Form1->ADOQuery1->Parameters->AddParameter (); String S=Form3->ComboBox1->Text; P1->Name="P1″; P1->DataType=ftString; P1->Direction = ptInput; P1->Value=S; P1->Value=S;}//—————————————————————————————————————-void __fastcall TForm3: Button1Click (TObject *Sender){Form3->GroupBox1->Visible=true;Form3->GroupBox2->Visible=false;}//—————————————————————————————————————-void __fastcall TForm3: Button3Click (TObject *Sender){Form3->GroupBox2->Visible=true;Form3->GroupBox1->Visible=false;}//—————————————————————————————————————-void __fastcall TForm3: Button2Click (TObject *Sender){Form1->ADOTable1->Insert ();Form1->ADOTable1->FieldByName («Тема»)->AsString=Form3->ComboBox1->Text;Form1->ADOTable1->FieldByName («содержание»)->AsString= Edit1->Text;Form1->ADOTable1->FieldByName («ответ 1″)->AsString= Edit2->Text;Form1->ADOTable1->FieldByName („ответ 2″)->AsString= Edit3->Text;Form1->ADOTable1->FieldByName („ответ 3″)->AsString= Edit4->Text;Form1->ADOTable1->FieldByName („№ правильного“)->AsInteger= StrToInt (Edit5->Text);Form1->ADOTable1->Post ();Form3->GroupBox1->Visible=false; }//—————————————————————————————————————-void __fastcall TForm3: Button4Click (TObject *Sender){TLocateOptions Options;Options << loPartialKey, loCaseInsensitive;int kod=StrToInt (Edit6->Text);Form1->ADOTable1->Locate („код“, kod, Options);Form1->ADOTable1->Delete ();Form1->ADOTable1->Post ();}//—————————————————————————————————————-void __fastcall TForm3: Button5Click (TObject *Sender){Form5->ShowModal ();}//—————————————————————————————————————-//—————————————————————————————————————-#include <vcl.h>#pragma hdrstop#include „Unit4.h“ #include „Unit1.h“ //—————————————————————————————————————-#pragma package (smart_init)#pragma resource „*.dfm“ TForm4 *Form4;struct TVopros { Integer tema; String soder; String otvet1; String otvet2; String otvet3; Integer prav;}; TVopros vopros[30]; int a[30]; int cur_vopros=0; int cur_count; int s; String studentFIO, studentNomer, studenttest;//—————————————————————————————————————-__fastcall TForm4: TForm4(TComponent* Owner): TForm (Owner){}//—————————————————————————————————————-void __fastcall TForm4: Button7Click (TObject *Sender){Form4->Close ();}//—————————————————————————————————————-void __fastcall TForm4: Button1Click (TObject *Sender){if ((Form4->Edit1->Text≠““)&& (Form4->Edit2->Text≠»")) {Form4->Panel2->Visible=true;Form4->Panel3->Visible=false;Form4->Button9->Visible=false;studentFIO=Form4->Edit1->Text;studentNomer=Form4->Edit2->Text;Form4->Panel1->Caption="Источники тока" ;studenttest=Form4->Panel1->Caption; Form1->ADOTable1->Filtered=false; // Отменяем предыдущую фильтрацию если была Form1->ADOTable1->Filter="тема ="+QuotedStr («Источники тока»); Form1->ADOTable1->Filtered=true; int i; Form1->ADOTable1->First (); for (i = 1; i <= Form1->ADOTable1->RecordCount; i++) { vopros[i]. soder= Form1->ADOTable1->FieldByName («содержание»)->AsString; vopros[i]. otvet1= Form1->ADOTable1->FieldByName («Ответ 1»)->AsString; vopros[i]. otvet2= Form1->ADOTable1->FieldByName («Ответ 2»)->AsString; vopros[i].

otvet3= Form1->ADOTable1->FieldByName («Ответ 3″)->AsString; vopros[i]. prav= Form1->ADOTable1->FieldByName („№ правильного“)->AsInteger; Form1->ADOTable1->Next (); } cur_count=i;int j=1; cur_vopros=0; }else ShowMessage („Не введена фамилия студента или номер группы“);Form4->Button8Click (Sender);}//—————————————————————————————————————-void __fastcall TForm4: Button8Click (TObject *Sender){ // cur_vopros=cur_vopros+1; a[cur_vopros]=0;Form4->CheckBox1->Caption= vopros[cur_vopros]. otvet1;Form4->CheckBox2->Caption= vopros[cur_vopros]. otvet2;Form4->CheckBox3->Caption= vopros[cur_vopros]. otvet3;Form4->Panel1->Caption=vopros[cur_vopros].soder ;if (Form4->CheckBox1->Checked)a[cur_vopros]=1;if (Form4->CheckBox1->Checked) a[cur_vopros]=2;if (Form4->CheckBox1->Checked)a[cur_vopros]=3;Form4->CheckBox1->Checked=false;Form4->CheckBox2->Checked=false;Form4->CheckBox3->Checked=false;if (cur_vopros<=cur_count-1){}else{s=0;for (int t = 0; t <=cur_vopros; t++){ if (a[t]==vopros[t]. prav) { s=s+1; }}Form1->ADOTable2->Insert ();Form1->ADOTable2->FieldByName („Студент“)->AsString=studentFIO;Form1->ADOTable2->FieldByName („Группа“)->AsString=studentNomer;Form1->ADOTable2->FieldByName („Дата“)->AsDateTime=Now ();Form1->ADOTable2->FieldByName („тема“)->AsString=studenttest;Form1->ADOTable2->FieldByName („Правильно“)->AsInteger= s+1;Form1->ADOTable2->FieldByName („Ошибка“)->AsInteger= cur_vopros-s-1;Form1->ADOTable2->Post ();} if (cur_vopros>=cur_count){Form4->Button8->Visible=false;Form4->Button9->Visible=true;}}//—————————————————————————————————————-void __fastcall TForm4: Button9Click (TObject *Sender){Form4->Panel3->Visible=true;Form4->Panel2->Visible=false;}//—————————————————————————————————————-//—————————————————————————————————————-void __fastcall TForm4: Button2Click (TObject *Sender){if ((Form4->Edit1->Text≠»")&& (Form4->Edit2->Text≠"")) {Form4->Panel2->Visible=true;Form4->Panel3->Visible=false;Form4->Button9->Visible=false;studentFIO=Form4->Edit1->Text;studentNomer=Form4->Edit2->Text;Form4->Panel1->Caption="Потребители тока" ;studenttest=Form4->Panel1->Caption; Form1->ADOTable1->Filtered=false; // Отменяем предыдущую фильтрацию если была Form1->ADOTable1->Filter="тема ="+QuotedStr («Потребители тока»); Form1->ADOTable1->Filtered=true; int i; Form1->ADOTable1->First (); for (i = 1; i <= Form1->ADOTable1->RecordCount; i++) { vopros[i].

soder= Form1->ADOTable1->FieldByName («содержание»)->AsString; vopros[i]. otvet1= Form1->ADOTable1->FieldByName («Ответ 1″)->AsString; vopros[i]. otvet2= Form1->ADOTable1->FieldByName („Ответ 2″)->AsString; vopros[i]. otvet3= Form1->ADOTable1->FieldByName („Ответ 3″)->AsString; vopros[i]. prav= Form1->ADOTable1->FieldByName („№ правильного“)->AsInteger; Form1->ADOTable1->Next (); } cur_count=i;int j=1; cur_vopros=0; }else ShowMessage („Не введена фамилия студента или номер группы“);Form4->Button8Click (Sender);}//—————————————————————————————————————-void __fastcall TForm4: Button3Click (TObject *Sender){if ((Form4->Edit1->Text≠““)&& (Form4->Edit2->Text≠»")) {Form4->Panel2->Visible=true;Form4->Panel3->Visible=false;Form4->Button9->Visible=false;studentFIO=Form4->Edit1->Text;studentNomer=Form4->Edit2->Text;Form4->Panel1->Caption="Система пуска двигателя" ;studenttest=Form4->Panel1->Caption; Form1->ADOTable1->Filtered=false; // Отменяем предыдущую фильтрацию если была Form1->ADOTable1->Filter="тема ="+QuotedStr («Система пуска двигателя»); Form1->ADOTable1->Filtered=true; int i; Form1->ADOTable1->First (); for (i = 1; i <= Form1->ADOTable1->RecordCount; i++) { vopros[i]. soder= Form1->ADOTable1->FieldByName («содержание»)->AsString; vopros[i]. otvet1= Form1->ADOTable1->FieldByName («Ответ 1»)->AsString; vopros[i].

otvet2= Form1->ADOTable1->FieldByName («Ответ 2″)->AsString; vopros[i]. otvet3= Form1->ADOTable1->FieldByName („Ответ 3″)->AsString; vopros[i]. prav= Form1->ADOTable1->FieldByName („№ правильного“)->AsInteger; Form1->ADOTable1->Next (); } cur_count=i;int j=1; cur_vopros=0; }else ShowMessage („Не введена фамилия студента или номер группы“);Form4->Button8Click (Sender);}//—————————————————————————————————————-void __fastcall TForm4: Button4Click (TObject *Sender){if ((Form4->Edit1->Text≠“»)&& (Form4->Edit2->Text≠"")) {Form4->Panel2->Visible=true;Form4->Panel3->Visible=false;Form4->Button9->Visible=false;studentFIO=Form4->Edit1->Text;studentNomer=Form4->Edit2->Text;Form4->Panel1->Caption="Приборы освещения и сигнализации" ;studenttest=Form4->Panel1->Caption; Form1->ADOTable1->Filtered=false; // Отменяем предыдущую фильтрацию если была Form1->ADOTable1->Filter="тема ="+QuotedStr («Приборы освещения и сигнализации»); Form1->ADOTable1->Filtered=true; int i; Form1->ADOTable1->First (); for (i = 1; i <= Form1->ADOTable1->RecordCount; i++) { vopros[i]. soder= Form1->ADOTable1->FieldByName («содержание»)->AsString; vopros[i]. otvet1= Form1->ADOTable1->FieldByName («Ответ 1″)->AsString; vopros[i]. otvet2= Form1->ADOTable1->FieldByName („Ответ 2″)->AsString; vopros[i]. otvet3= Form1->ADOTable1->FieldByName („Ответ 3″)->AsString; vopros[i]. prav= Form1->ADOTable1->FieldByName („№ правильного“)->AsInteger; Form1->ADOTable1->Next (); } cur_count=i;int j=1; cur_vopros=0; }else ShowMessage („Не введена фамилия студента или номер группы“);Form4->Button8Click (Sender);}//—————————————————————————————————————-void __fastcall TForm4: Button5Click (TObject *Sender){if ((Form4->Edit1->Text≠““)&& (Form4->Edit2->Text≠»")) {Form4->Panel2->Visible=true;Form4->Panel3->Visible=false;Form4->Button9->Visible=false;studentFIO=Form4->Edit1->Text;studentNomer=Form4->Edit2->Text;Form4->Panel1->Caption="Контрольно-измерительные приборы" ;studenttest=Form4->Panel1->Caption; Form1->ADOTable1->Filtered=false; // Отменяем предыдущую фильтрацию если была Form1->ADOTable1->Filter="тема ="+QuotedStr («Контрольно-измерительные приборы»); Form1->ADOTable1->Filtered=true; int i; Form1->ADOTable1->First (); for (i = 1; i <= Form1->ADOTable1->RecordCount; i++) { vopros[i].

soder= Form1->ADOTable1->FieldByName («содержание»)->AsString; vopros[i]. otvet1= Form1->ADOTable1->FieldByName («Ответ 1″)->AsString; vopros[i]. otvet2= Form1->ADOTable1->FieldByName („Ответ 2″)->AsString; vopros[i]. otvet3= Form1->ADOTable1->FieldByName („Ответ 3″)->AsString; vopros[i]. prav= Form1->ADOTable1->FieldByName („№ правильного“)->AsInteger; Form1->ADOTable1->Next (); } cur_count=i;int j=1; cur_vopros=0; }else ShowMessage („Не введена фамилия студента или номер группы“);Form4->Button8Click (Sender);}//—————————————————————————————————————-void __fastcall TForm4: Button6Click (TObject *Sender){{if ((Form4->Edit1->Text≠““)&& (Form4->Edit2->Text≠»")) {Form4->Panel2->Visible=true;Form4->Panel3->Visible=false;Form4->Button9->Visible=false;studentFIO=Form4->Edit1->Text;studentNomer=Form4->Edit2->Text;Form4->Panel1->Caption="Неисправности электрооборудования" ;studenttest=Form4->Panel1->Caption; Form1->ADOTable1->Filtered=false; // Отменяем предыдущую фильтрацию если была Form1->ADOTable1->Filter="тема ="+QuotedStr («Несиправности электрооборудования»); Form1->ADOTable1->Filtered=true; int i; Form1->ADOTable1->First (); for (i = 1; i <= Form1->ADOTable1->RecordCount; i++) { vopros[i]. soder= Form1->ADOTable1->FieldByName («содержание»)->AsString; vopros[i]. otvet1= Form1->ADOTable1->FieldByName («Ответ 1»)->AsString; vopros[i]. otvet2= Form1->ADOTable1->FieldByName («Ответ 2»)->AsString; vopros[i].

otvet3= Form1->ADOTable1->FieldByName («Ответ 3»)->AsString; vopros[i]. prav= Form1->ADOTable1->FieldByName («№ правильного»)->AsInteger; Form1->ADOTable1->Next (); } cur_count=i;int j=1; cur_vopros=0; }else ShowMessage («Не введена фамилия студента или номер группы»);Form4->Button8Click (Sender);}}//—————————————————————————————————————;