Тәжірибелік жұмыс №6

Тапсырма: RadioGroup компонентi арқылы тест бағдарламасын құру.

Орындалуы:Пуск> Все программы> Borland Delphi 7 ортасын ашып жаңа формаға RadioGroup(5),Panel (1), Button(1)және Label(6) компоненттерін алып, форманы келесі түрге келтіреміз (11-сурет). Алынған компоненттерге келесі қасиеттерді орнатамыз. (Кесте 6)

Компонент	Терезе бөлігінен Object Inspector	Қасиеті	Сипаттама
Button1	Properties	Caption	Выход
Label1	Properties	Caption	СССР-дың ең бірінші электронды есептуіш машинасы
Label2	Properties	Caption	Основоположник алгебры логики
Label3	Properties	Caption	Обьем блока начальной загрузки
Label4	Properties	Caption	Автор первого счетного устройства
Label5	Properties	Caption	Энергозависимая память
Label6	Properties	Caption	Информатикадан тест
Panel1	Properties	Caption	' '
RadioGroup1	Properties	Caption	Вопрос1
		Columns	5
		Items	Урал-1 М-20 3В-60 МЭСМ БЭСМ
RadioGroup2	Properties	Caption	Вопрос2
		Columns	4
		Items	Лейбниц Буль Нейман Паскаль
RadioGroup3	Properties	Caption	Вопрос3
		Columns	4
		Items	1024байт 512байт 1,5кбайт 2кбайт
RadioGroup4	Properties	Caption	Вопрос4
		Columns	4
		Items	Бэббидж Паскаль Нейман Лавлейс
RadioGroup5	Properties	Caption	Вопрос5
		Columns	3
		Items	ПЗУ ОЗУ Внешняя

11-сурет. Форма түрі.

Var sum:integer;

Button1 компонентінің OnClick қасиетіне келесі кодты жазамыз:

procedure TForm1.Button1Click(Sender: TObject);

begin

Close;

end;

RadioGroup1 компонентінің OnClick қасиетіне келесі кодты жазамыз:

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

begin

sum:=0;

If RadioGroup1.ItemIndex=3 then

sum:=Sum+1;

end;

RadioGroup2 компонентінің OnClick қасиетіне келесі кодты жазамыз:

procedure TForm1.RadioGroup2Click(Sender: TObject);

begin

If RadioGroup2.ItemIndex=2 then

sum:=Sum+1;

end;

RadioGroup3 компонентінің OnClick қасиетіне келесі кодты жазамыз:

procedure TForm1.RadioGroup3Click(Sender: TObject);

begin

If RadioGroup3.ItemIndex=2 then

sum:=Sum+1;

end;

RadioGroup4 компонентінің OnClick қасиетіне келесі кодты жазамыз:

procedure TForm1.RadioGroup4Click(Sender: TObject);

begin

If RadioGroup4.ItemIndex=2 then

sum:=Sum+1;

end;

procedure TForm1.RadioGroup5Click(Sender: TObject);

begin

RadioGroup5 компонентінің OnClick қасиетіне келесі кодты жазамыз:

If RadioGroup5.ItemIndex=2 then

sum:=Sum+1;

case sum of

0..2:Panel1.Caption:='Плохо!';

3:Panel1.Caption:='Удовлетварительно!';

4:Panel1.Caption:='Хорошо!';

5:Panel1.Caption:='Отлично!';

end;

end;

end.

12-сурет. Нәтиже.