Варіант 1. Тема:Розробка програмних проектів з використанням компонентів-кнопок

ООП_РП31 Лабораторна робота 1

Тема: Розробка програмних проектів з використанням компонентів-кнопок

Мета: Набуття практичних навичок створення програмних проектів з використанням компонентів-кнопок.

Середовище програмування: IDE RAD Studio XE7.

Теоретичні відомості: Лекція 10

Завдання:

Варіант 1

1. Створити програмний проект «Калькулятор для цілих чисел». Цілі числа, з якими виконуватимуться арифметичні операції, формувати випадковим чином в діапазоні [1, 100]. В інтерфейсі використовувати компоненти-кнопки Button, SpeedButton, BitBtn. Забезпечити керування виглядом інтерфейсу залежно від стадії виконання задачі (формування чисел, визначення операції, виконання операції, відновлення початкового стану). Вигляд вікна на кінцевій стадії обчислень повинен бути таким, як зображено на рис.1.

Рис.1. Вигляд вікна проекту «Калькулятор»

2. В звіті навести програмний код розв’язання задачі відповідного варіанту з детальними коментарями та зображення вікна проекту з результатами його роботи.

Хід виконання роботи:

1. Створити новий проект. На формі розташувати такі компоненти:

– В першому ряду ліва і права кнопки Button (властивості name: Number1, Number2) з початковими надписами “0”, п’ять центральних кнопок SpeedButton зі знаками операцій у надписах (властивості name: Plus, Minus, Mult, Int_div, Int_mod);

– В другому і третьому ряду – кнопки BitBtn (властивості name: Oper, Clear) з надписами “0” (синього кольору) і “Очистити” (червоного кольору).

2. Створити реалізацію події натискання кнопки Clear: відображати лише кнопку Number1, всі інші кнопки зробити невидимими.

3. Для події OnActivate форми призначити подію натискання кнопки Clear.

4. Створити реалізацію події натискання кнопки Number1: за допомогою функції random() сформувати випадкове число, відобразити його на кнопці, зробити видимою кнопку Number2:

procedure TForm1.Number1Click(Sender: TObject);

var x: integer;

begin

randomize;

x:= random(100)+1;

Number1.Caption:= IntToStr(x);

Number2.Visible:= true;

end;

5. Створити реалізацію події натискання кнопки Number2: за допомогою функції random() сформувати випадкове число, відобразити його на кнопці, зробити видимими кнопки з надписами операцій.

6. Для кнопок з надписами операцій створити спільну подію їх натискання:

procedure TForm1.PlusClick(Sender: TObject);

var z: string;

begin

//надпис на кнопці зберігається в змінній z рядкового типу

z:=(Sender as TSpeedButton).Caption;

//в глобальній змінній znak типу char зберігається перший символ рядку z

znak:= z[1];

//В надпис кнопки Oper записується операція

Oper.Caption:= Number1.Caption + znak + Number2.Caption;

//Кнопка Oper робиться видимою

Oper.Visible:= true;

end;

7. Створити реалізацію події натискання кнопки Oper:

- у змінних цілого типу зберегти числа, що відображаються в надписах кнопок Number1, Number2:

x:= StrToInt(Number1.Caption);

y:= StrToInt(Number2.Caption);

- виконати обчислення за допомогою оператора case з селектором znak та зберегти результат у змінній цілого типу z;

- додати до надпису кнопки Oper знак “=” та результат обчислень:

Oper.Caption:= Oper.Caption + '=' + IntToStr(z);

- зробити видимою кнопку Clear.

8. Виконати тестування роботи проекту та відобразити їх у звіті.