12.4. Практическая работа

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

Опишите в разделе описания переменных модуля первой формы переменную i целого типа, чтобы она была доступна остальным модулям нашего проекта.

В разделе USES каждого модуля в список подключаемых модулей добавьте слово unit1, это будет говорить о том, что данные модули используют Unit1.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, unit1;

Теперь вернемся на первую форму и напишем процедуру по нажатию на кнопку «Далее»…

Следует учесть, что пользователь может и не ответить на вопрос. В нашем случае правильный ответ номер 2 «нет крыльев». Для компонента RadioGroup это строка имеет номер 1 (свойство ItemIndex), так как нумерация начинается с нуля. В переменной i будем накапливать количество правильных ответов.

Таким образом, процедура по нажатию на кнопку «Далее» выглядит следующим образом:

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

if radiogroup1.ItemIndex= ‑1 then // если не ответили на вопрос

showmessage('Забыли ответить на вопрос!')

else

begin

if radiogroup1.ItemIndex=1 then i:=i+1;//счетчик правильных ответов увеличили

form1.close;/закрыли первую форму

form2.show;//вызвали форму со следующим вопросом

end;

end;

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

Определите, сколько в вашем тесте нужно правильных ответов, чтобы получить «5», «4», и т.д.

case i of

0,1,2:Showmessage (‘Вы получили 2’)

3: Showmessage (‘Вы получили 3’)

4: Showmessage (‘Вы получили 4’)

5: Showmessage (‘Вы получили 5’)

end;

12.5. Самостоятельная работа

Создайте программу вычисления площади треугольника по известным параметрам (по трем сторонам, по двум сторонам и углу между ними и по стороне и двум прилежащим к ней углам)

12.6. Самостоятельная работа

Разработать программу, с помощью которой пользователь мог бы выполнить следующее. После запуска программы появляется изображение, аналогичное рисунку. Пользователь по своему усмотрению выбирает один переключатель в группе (после этого группа становится недоступной для предотвращения повторного выбора). Каждому переключателю соответствует определенный балл. После выбора в последней группе в зависимости от суммы набранных баллов появляется одно из сообщений “Вы пессимист”, “Вы реалист” или “Вы оптимист”.

Глава XIII. Регуляторы величины

13.1. Объект ScrollBar

Компонент ScrollBar представляет собой стандартный для Windows управляющий элемент, использующийся для визуального управления значением числовой величины.

Свойства компонента:

Свойство	Значение
Kind	Определяет ориентацию компонента: SbHorizontal – бегунок перемещается по горизонтали SbVertical – бегунок перемещается по вертикали
Max	Максимальное значение диапазона изменения числовой величины
Min	Минимальное значение диапазона изменения числовой величины
Position	Текущее значение числовой величины

С помощью метода

SetParams(Position, Max, Min); можно сразу установить свойства Position, Max, Min.

С компонентом связано два события: OnScroll – возникает при любом изменении cсвойства Position; OnChange – возникает при изменении параметров методом SetParams.