Реферат Система тестування користувачів

gn="justify"> {_user = neprav_user + +; -> Font-> Color = clRed;

}

// якщо користувач не поставив "галочку" на правильній відповіді

if (QOtvet-> FieldByName ("Prav_otvet") -> AsInteger == 1 & CheckBox2-> Checked == false)

{-> Font-> Color = clGreen;

}> Next ();

// якщо користувач відповів правильно (CheckBox3-> Checked == true & QOtvet-> FieldByName ("Prav_otvet") -> AsInteger == 1)

{_user = prav_user + +;

}

// якщо користувач поставив "галочку" на неправильній відповіді

if (CheckBox3-> Checked == true & QOtvet-> FieldByName ("Prav_otvet") -> AsInteger == 0)

{_user = neprav_user + +; -> Font-> Color = clRed;

}

// якщо користувач не поставив "галочку" на правильній відповіді

if (QOtvet-> FieldByName ("Prav_otvet") -> AsInteger == 1 & CheckBox3-> Checked == false)

{-> Font-> Color = clGreen;

}> Next ();

// якщо користувач відповів правильно (CheckBox4-> Checked == true & QOtvet-> FieldByName ("Prav_otvet") -> AsInteger == 1)

{_user = prav_user + +;

}

// якщо користувач поставив "галочку" на неправильній відповіді

if (CheckBox4-> Checked == true & QOtvet-> FieldByName ("Prav_otvet") -> AsInteger == 0)

{_user = neprav_user + +; -> Font-> Color = clRed;

}

// якщо користувач не поставив "галочку" на правильній відповіді

if (QOtvet-> FieldByName ("Prav_otvet") -> AsInteger == 1 & CheckBox4-> Checked == false)

{-> Font-> Color = clGreen;

}

// перевірка правильності відповідей:

QOtvet-> First (); (! QOtvet-> Eof)

{= prav + QOtvet-> FieldByName ("Prav_otvet") -> AsInteger;

QOtvet-> Next ();

}

// підрахунок балів за відповідь

if

Pie1-> Angles-> EndAngle = 1;

// якщо всі відповіді правильні - час затримки менше

if (neprav_user == 0)

{-> Visible = false; -> Interval = 500; -> Enabled = true;

}// інакше - затримка 2 сек.

{-> Visible = true; -> Interval = 1800; -> Enabled = true;

Timer2-> Enabled = true;

}

// Обнуляємо всі значення для наступного питання

prav = 0; _user = 0; _user = 0;