гти».
3.2.6 Вихід
procedure TForm6.N2Click (Sender: TObject) ;. show; .Close ;;
Вихід здійснюється натисканням на кнопку «Назад». При натисканні в меню викладача кнопки «Назад» відкривається головне меню програми.
4. Опис тесту
Малюнок 27. Структура тесту
Структура навчального тесту представлена ??на малюнку 27. Всі використовуваних в нашій системі навчальних тести мають однакову структуру. Вони відрізняються лише тим, що здійснюють роботу з різними файлами-вопросниками.
Оголошення змінних:
const_k_data_base= Rezultati raquo ;; _ file_data_base= .txt raquo ;;: Ttesti ;: array of integer;// масив над яким будемо перекручуватися
Відкриття таблиці з питаннями:
DataModule2.Vopros.Locate(laquo;Номерraquo;,mass[nomer],[]);.Variant.First;.Caption:=DataModule2.Variant.FieldValues[laquo;Ответraquo;];DataModule2.Variant.FieldValues[laquo;Правильныйraquo;]=true then.Tag:=1 else RadioButton1.Tag:=0;.Obyasnenie.First;.Caption:=DataModule2.Obyasnenie.FieldValues[laquo;Объяснениеraquo;];DataModule2.Obyasnenie.FieldValues[laquo;Правильныйraquo;]=true then.Tag:=1 else RadioButton5.Tag:=0;
У цій роботі використовується тест, питання якого зберігаються у вигляді таблиці під назвою «Питання».
Підрахунок кількості питань у тесті:
for i:=0 to GroupBox1.ControlCount - 1 do:=TRadioButton (GroupBox1.Controls [i]); RB.Checked=true then.Caption:=inttostr (strtoint (Label1.Caption) + RB.Tag) ;; i:=0 to GroupBox2.ControlCount - 1 do:=TRadioButton (GroupBox2.Controls [i]);
Підрахунок кількості питань втесте здійснюється порядково з таблиці тестів.
Збереження правильних відповідей:
datamodule2.ADOTable3.Insert;.ADOTable3.FieldByName(laquo;rezultatraquo;).Value:=cena;.ADOTable3.FieldByName(laquo;famraquo;).Value:=form9.Label2.Caption;.ADOTable3.FieldByName(laquo;nameraquo;).Value:=form9.Label3.Caption;.ADOTable3.FieldByName(laquo;groupraquo;).Value:=form9.Label4.Caption;.ADOTable3.FieldByName(laquo;dataraquo;).Value:=datetostr(date);.ADOTable3.Post;fileexists(put_k_data_base+rasshirenie_file_data_base) then(file_db,put_k_data_base+rasshirenie_file_data_base);(file_db);(file_db,put_k_data_base+rasshirenie_file_data_base);(file_db);;(file_db,laquo;Имя + form9.Label3.Caption); (file_db, Прізвище + form9.Label2.Caption); (file_db, Група + form9.Label4.Caption); (file_db, Дата + datetostr (date)); (file_db, Час + timetostr (time)); (file_db, Результат + cena); (file_db, ); (file_db);
Результати здачі тесту заносяться в спеціальну таблицю і також сохраняютя в тектових файлі.
Висновок статистики на екран:
if strtoint (Label1.Caption) gt; 16 then:= 5 elsestrtoint (Label1.Caption) gt; 13 then:= 4 elsestrtoint (Label1.Caption) gt; 9 then:= 3 else:= 2 raquo ;; MessageDlg ( Набрано балів + Label1.Caption + . + # 13 +
Ваша оцінка: + cena + ! ,, [mbYes], 0)=mrYes then
Висновок
Програма з клієнт - серверною архітектурою взаємодії з користувачем через головне меню програми, де користувачеві пропонується увійти в систему або зареєструватися.
Реєстрація - це збереження даних про користувача, таких як ім'я, прізвище, номер групи, логін, пароль втабліце для зберігання особистих даних про студентів.
Вхід в систему - введення логіна і пароля.
Дані про користувача зберігаються в таблиці, куди і будуть зберігатися дані про хід його навчання.
Після входу в систему перед користувачем з'явитися меню, в якому він зможе вибрати свої подальші дії.
Викладач може створювати і редагувати лекції та тести, які пропонується пройти студентам. Також викладач встановлює порядок проходження тестів. Зв'язок зі студентами відбувається за допомогою повідомлень.
Після здійснення вибору користувач зможе прочитати повний курс лекцій з лданному премету, або пройти тест. Проходження кожного тесту здійснюється тільки один раз.
При проходженні тесту пользовательотвечает на питання по конуретному курсом навчання. Інформація про студента і результаті здачі тесту записується в таблицю і тестовий файл.
Викладач проходить ідентифікацію засобами введення пароля, який зберігається в спеціальному масиві. Якщо пароль введений вірно, то викладач переходить в головне меню, д...
