27. Программирование графических тестов.

Цель занятия: Изучение свойств и методов компонента RadioButton

Кнопка выбора – RadioButton – предлагает пользователю набор альтернатив, из которых выбирается одна.

ЗАДАЧА1: Поместить на форму следующие компоненты: две радиокнопки RadioButton1 и RadioButton2. Написать программу, которая подсчитывает сколько раз выбрана первая кнопка RadioButton1 и вторая кнопка RadioButton2 из десяти возможных выборов.

Для этого необходимо:

-поместить на форму две кнопки выбора RadioButton1 и RadioButton2.

-написать программы:

для события OnClick первой кнопки:

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

s:=s+1;

RadioButton1.Checked:=false;

if s+t=10 then showmessage(inttostr(s)+','+inttostr(t))

end;

для события OnClick второй кнопки:

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

t:=t+1;

RadioButton2.Checked:=false;

if s+t=10 then showmessage(inttostr(s)+','+inttostr(t))

end;

Если строчки RadioButton1.Checked:=false и RadioButton2.Checked:=false не включать в программу, то повторный выбор одной и той же кнопки будет невозможен.

по событию Create формы:

procedure TForm1.FormCreate(Sender: TObject);

begin

s:=0;

t:=0;

RadioButton1.Checked:=False;

RadioButton2.Checked:=False;

end;

Объявим переменные s, t как глобальные переменные (в общей программе).

ЗАДАЧА2: Поместить на форму следующие компоненты: две радиокнопки RadioButton1 и RadioButton2. Написать программу, которая с каждым выбором (пять выборов) меняет надпись кнопок выбора, причём надписи меняются циклически.

Для этого необходимо:

-поместить на форму две кнопки выбора RadioButton1 и RadioButton2.

-написать программы:

для события OnClick первой кнопки:

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

if n<6 then

RadioButton1.Caption:=text1[n];

RadioButton2.Caption:=text2[n];

RadioButton1.Checked:=False;

n:=n+1;

if n=6 then n:=1;

end;

для события OnClick второй кнопки:

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

if n<6 then

RadioButton2.Caption:=text2[n];

RadioButton1.Caption:=text1[n];

RadioButton2.Checked:=False;

n:=n+1;

if n=6 then n:=1;

end;

для события Create формы:

procedure TForm1.FormCreate(Sender: TObject);

begin

text1[1]:='1 левая кнопка';

text1[2]:='2 левая кнопка';

text1[3]:='3 левая кнопка';

text1[4]:='4 левая кнопка';

text1[5]:='5 левая кнопка';

text2[1]:='1 правая кнопка';

text2[2]:='2правая кнопка';

text2[3]:='3 правая кнопка';

text2[4]:='4 правая кнопка';

text2[5]:='5 правая кнопка';

RadioButton1.Caption:=text1[1];

RadioButton2.Caption:=text2[1];

RadioButton1.Checked:=False;

RadioButton2.Checked:=False;

n:=2;

end;

Строчки RadioButton1.Caption:=text1[1] и RadioButton2.Caption:=text2[1] выводят первые надписи по активизации формы.

Объявим переменную n и массивы в общей области программы.

ЗАДАНИЕ: Осуществить работу графического теста следующим образом: поместить на форму компонент Image и RadioButton. В компонент Image помещается рисунок, число выбора кнопок выбора RadioButton зависит от числа вариантов ответов.

П ервая картинка и название надписей кнопок выбора, относящейся к этой картинке, помещаются на форму по её активизации, далее картинки и названия надписей кнопок выбора меняются после щелчка по кнопке выбора. По окончанию тестирования вывести результат теста, а на форме опять появляется первая картинка и соответствующие ей названия кнопок выбора и т.д. Форма должна иметь вид на рисунке справа.

Указания:

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

2. В тестах, где не указан подсчёт результатов за каждый правильный ответ + 1 балл.