procedure TF'orm1.N3Click (Sender: TObject);

⇐ ПредыдущаяСтр 8 из 10Следующая ⇒

procedure TF'orm1. N3Click (Sender: TObject);

begin

MultPageDlg. ShowModal;

end;

procedure Tform1. N5Click(Sender: TObject);

begin Close;

end;

end.

В результате тестирования за каждый правильный ответ начисляется 1 балл, и общая сумма баллов, при максимальном 5, должна выводиться в форму Результаты. Средствами визуального программирования эту задачу решить нельзя, поэтому перейдем к обычному программированию.

Процедура

procedure Tform1. N6Click (Sender: Tobject); суммирует баллы, полученные в результате тестирования, и помащает результат в переменную ball. При этом балл начисляется при условии, что тестируемый щелкнет мышью по правильной радиокнопке. В каждой радиогруппе только одна кнопка правильная, и в программе она помечается индексом, равным ее порядковому номеру в группе, начиная с 0. В первом вопросе правильным является второй ответ, индекс радиокнопки — 1, во втором вопросе — первый ответ, индекс радиокнопки — О и т. д. В программной строчке

if TestDlg. RadioGroup1. Itemlndex=1 then ball: =ball+l;

работает команда условного перехода. В ней говорится о том, что, если (if) щелчок мыши будет по второй кнопке первой группы (индекс элемента ltemlndex=1), тогда (then) в переменную ball добавится 1 балл (bal: =ball+1). В ином случае эта команда не сработает. Итак, для каждой радиогруппы формы TestDlg. Для упрощения ввода практически одинаковых строк программы, после написания первой строки, выделите ее и с помощью команд Copy и Paste меню Edit сделайте еще четыре копии и произведите в них соответствующую правку.

⇐ Предыдущая 1 2 3 4 5 6 789 10 Следующая ⇒