Практичне завдання Візуалізація елементів табличної величини з використанням графічних примітивів
Практичне завдання
Візуалізація елементів табличної величини з використанням графічних примітивів
Увага! Під час роботи з комп’ютером дотримуйтеся правил безпеки та санітарно-гігієнічних норм
Завдання. Багаторядкове текстове поле містить 8 цілих чисел. Створити обробник події Click для кнопки, виконання якого зафарбує в зелений колір фігури, для яких відповідні значення додатні, у червоний колір — фігури, для яких відповідні значення від’ємні, і в жовтий колір — фігури, для яких відповідні значення дорівнюють нулю.
- Відкрийте вікно середовища Lazarus.
- Розмістіть на формі
- багаторядкове текстове поле заввишки 150;
- кнопку з текстом Зобразити;
- є 8 компонентів Фігура та встановіть для кожного з них значення stTriangle властивості Shape і значення 80 властивості Height.
- Збережіть проект у папці з іменем Вправа 6.3, створеній у вашій папці.
- Створіть обробник події Click для кнопки. Уведіть такий текст процедури:
var a: array [0..7] of integer; b: array [0..7] of TShape; i: integer;
begin
b|0] ;= Shape1; b[1] := Shape2; b[2] := Shaped; b[3] := Shape4;
b[4] := Shape5; b[5] := Shape6; b[6] := Shape7; b[7] := Shape8;
for і := 0 to 7 do
a[i] := StrToInt(Memo1.Lines[i]);
for і := 0 to 7 do
If a[i] < 0 Then b[i].Brush.Color ;= clred
Else If a[i] = 0 Then b[i].Brush.Color := clyellow
Else b[і].Brush.Color := clgreen;
end;
- Збережіть оновлену версію проекту.
- Запустіть проект на виконання.
- Уведіть у багаторядкове текстове поле числа: 2; 5; -11; 56; -6; 0; 3; 0. Виберіть кнопку Зобразити. Проаналізуйте отриманий результат
- Закрийте вікно виконання проекту.
- Закрийте вікно середовища Lazarus.
Роботу відправити на перевірку до 02.02.2022!!!
про публікацію авторської розробки
Додати розробку