Практична робота №6

ПРАКТИЧНЕ ЗАНЯТТЯ №35

Тема: Розробка простих додатків та елементів керування у формах

Мета: Створити програму-тест, у якій на кожне питання потрібно буде вибрати відповідь із перерахованих варіантів. Результати тесту визначаються по кількості вірних відповідей.

Теоретичні відомості

У процесі виконання першої частини лабораторної роботи необхідно створити програму-тест, у якій використати радіокнопки. Для цього створити проект та форму, помістити на форму три компоненти групових вікон і у кожне групове вікно додати по одному компоненту мітки. Також додати у кожне групове вікно по одному компоненту - група радіо кнопок. Додати униз вікна кнопку результат і три компоненти мітки. Для кнопки результат потрібно написати процедуру використовуючи умовні речення if…then…else (або...то...інакше). Щоб відповідь на питання можливо було дати одним кліком, на кожній кнопці потрібно написати процедуру неможливості кліка на будь-якій іншій кнопці. Також потрібно написати процедури відключення, кнопок для усіх варіантів відповідей на питання, а також добавити кнопку “Повторити текст” та написати для неї процедуру, якщо потрібно повторити тест ще раз.

Звіт по роботі повинний містити теоретичні відомості зі створення проекту, розміщення на формі кнопок, міток, вікон для редагування, написання процедур відключення кнопок для усіх варіантів відповідей на питання тесту, процедуру вставки у всі редагуємі вікна пустих строк та обробку цих процедур, інформацію про функцію яка преобразує текст у число, та інформацію про зворотню функцію, преобразуючу число в текст, а також лістінги програми та малюнки форм програми.

Необхідні теоретичні відомості для практичної роботи:

У цій вправі Ви створите програму-тест, у якій на кожне питання треба буде вибрати відповідь із запропонованих варіантів. Результати тесту визначаються по кількості вірних відповідей.

Створіть папку «Тест», Створіть проект. Назвіть форму; «Тест» (властивість Caption). Дайте формі ім'я FormTest (властивість Name), збережіть модуль і проект під іменами відповідно UnitTest і ProjectTest у папці «Тест». Вид форми представлений на рис. 61

Помістіть на форму три компоненти TGroupBox (групове вікно) зі сторінки Standard (стандартні). У властивості Caption (заголовок) для них запишіть: «Перше питання», «Друге питання», «Третє питання». У кожне групове вікно вставте по одному компоненту TLabel (мітка). У властивості Caption (заголовок) для них запишіть: «2x2», «30/5», «15+6». У кожне групове вікно вставте по одному компоненту TRadioGroup (група радіокнопок). У властивості Caption (заголовок) для групи радіокнопок запишіть: «Варіанти відповідей:». У групи радіокнопок вставте по 4 компоненти TRadioButton (радіокнопка). У властивості Caption (заголовок) для радіокнопок запишіть: (3; 7; 4; 5), (7; 6; 4; 5), (24; 22; 25; 21). Отже, правильними будуть відповіді: RadioButton, RadioButton6, RadioButtonl2. Оголосіть перемінну s перемінною цілого типу, яка буде служити лічильником вірних відповідей:

var

FormTest: TFormTest; s:Integer=0;

Перемінній s привласнене значення «0». При кліку на кнопці, що містить правильну відповідь, значення перемінної s буде збільшуватися на одиницю. Для цього подія OnClick (клік) для кнопок RadioButton, RadioButton, RadioButtonl2 повинна містити в тілі процедури наступний оператор: s:=s+l;

У нижній частині форми розташуйте кнопку «Результат» (властивість Caption для кнопки) і три компоненти TLabel (мітка). Дайте імена двом міткам: lb_Sum і lb_Text. Використовуйте для цього властивість Name (ім'я) для міток. У властивості Visible (видимий) міток виберіть значення: False (неправда).

Рис. 61. Вікно форми «Тест»

При кліку на кнопці будуть відбуватися наступні події: в об'єкті lb_Sum буде відображатися кількість вірних відповідей, в об'єкті lb_Text будуть відображатися слова: «Молодець!», «Нормально», «Погано» чи «Дуже погано» у залежності від того, скільки дано правильних відповідей. Для третьої мітки у властивості Caption (заголовок) запишіть: «Кількість вірних відповідей:». Дайте кнопці «Результат» ім'я bt_Rez і запишіть для неї процедуру:

procedure TFormTest.bt_RezClick(Sender: TObject);

begin

lb_Sum.Visible:=True;

lb_Sum.Caption:=IntToStr(s);

if s=3 then

begin

lb_Text.Visible:=True;

lb_Text.Caption:='Молодець!';

end

else

if s=2 then

begin

lb_Text.Visible:=True;

lb_Text.Caption:='Нормально';

end

else

if s=l then

begin

lb_Text.Visible:=True;

lb_Text.Caption:='Погано';

end

else

if s=0 then

begin

lb_Text.Visible:=True;

lb_Text.Caption:='Дуже погано';

end;

end;

Збережіть зміни, запустіть програму і спробуйте з нею попрацювати. Ви бачите, що при відповіді на питання можна кілька разів натискати різні кнопки. Для того щоб відповідь на питання складалась з єдиного кліка, треба для кліка на кожній кнопці написати процедуру неможливості кліка на будь-якій іншій кнопці. Далі наведено приклад такої процедури для кнопки RadioButtonl:

procedure TFormTest.RadioButtonlClicMSender: TObject);

begin

FormTest.RadioButton2.Enabled:=False; FormTest.RadioButton3.Enabled:=False; FormTest.RadioButton4.Enabled:=False;

end;

Слідуючи аналогії потрібно написати процедури і для інших кнопок варіантів відповіді на перше питання.

Тепер, після відповіді на перше питання тестуємий буде змушений перейти до другого питання. Напишіть процедури відключення кнопок для усіх варіантів відповідей на питання. Перевірте роботу програми. Ви бачите, що тепер варто зняти обмеження для кнопок, якщо Ви хочете використовувати тест ще раз. Додайте на форму кнопку, яку назвіть: «Повторити тест». Дайте кнопці ім'я: bt_Povtor. Запишіть наступну процедуру кліка на цій кнопці:

procedure TFormTest.bt_PovtorClick(Sender: TObject);

begin

s:=0;

lb_Sum.Visible:=False;

lb_Text.Visible:=False;

FormTest.RadioButtonl.Enabled:=True; FormTest.RadioButton2.Enabled:=True; FormTest.RadioButton3.Enabled:=True; FormTest.RadioButton4.Enabled:=True; FormTest.RadioButton5.Enabled:=True; FormTest.RadioButton6.Enabled:=True; FormTest.RadioButton7.Enabled:=True; FormTest.RadioButton8.Enabled:=True; FormTest.RadioButton9.Enabled:=True; FormTest.RadioButtonl0.Enabled:=True; FormTest.RadioButton11.Enabled:=True; FormTest.RadioButton12.Enabled:=True; FormTest.RadioButtonl.Checked:=False; FormTest.RadioButton2.Checked:=False; FormTest.RadioButton3.Checked:=False; FormTest.RadioButton4.Checked:=False; FormTest.RadioButton5.Checked:=False; FormTest.RadioButton6.Checked:=False; FormTest.RadioButton7.Checked:=False; FormTest.RadioButton8.Checked:=False; FormTest.RadioButton9.Checked:=False; FormTest.RadioButtonl0.Checked:=False; FormTest.RadioButton11.Checked:=False; FormTest.RadioButton12.Checked:=False;

end;

У цій процедурі обнуляється лічильник, виключається відображення суми правильних відповідей і оцінки, виключається обмеження кліка на кнопці, виключається сам клік на кнопці.

Контрольні питання:

1. Опишіть принципи роботи компонента F1book та процедуру забезпечення синтаксично правильного виводу текстових та цмфрових даних.

2. Охарактеризуйте масиви та їх використання у оболонці Delphi.

3. Опишіть компоненти відображення заголовків.

4. Опишіть компоненти відображення ієрархічних даних TreeView, OutLine, ListView.

5. Охарактеризуйте роботу з компонентом Memo та пошуком даних в масивах.

6. Опишіть компоненти відображення графічної інформації.

7. Опишіть методи сортування масивів.

1. Охарактеризуйте компонент Image та Paintox.
2. Опишіть процедуру побудови графіків та діаграм.

АУДИТОРНЕ ЗАНЯТТЯ

ЗМІСТОВИЙ МОДУЛЬ 6: ПРОГРАМУВАННЯ З ГРАФАМИ. ВІЗУАЛЬНІ КОМПОНЕНТИ. БАЗИ ДАНИХ

ТЕМА 6.2: Візуальні компоненти

Лекція №36 – Загальна характеристика візуальних компонентів

Дата добавления: 2014-12-25