8.2 Теоретичні відомості
Об’єкт
StringGrid
призначений для того, щоб на формі
створювати двовимірні таблиці з
символьними рядками, які можна редагувати.
До властивостей даного об’єкта,
окрім вивчених на попередніх роботах,
слід віднести наступні:
Властивість |
Опис властивості |
Приклад значення |
ColCount |
Кількість стовпців |
4;6 |
RowCount |
Кількість рядків |
5;8 |
FixedCols |
Кількість фіксованих стовпців |
1;4 |
FixedRows |
Кількість фіксованих рядків |
2;6 |
Об’єкт
BitBtn
– це кнопка з малюнком і визначеним
типом дій. До вибору дій має відношення
властивість Kind,
яка може набирати кілька різних значень:
bkClose
(закрити вікно), bkCanсel
(кнопка відміни діалового вікна). bkNo
(кнопка “Ні”).
Об’єкт
SpeedButton
використовується для створення кнопки
панелі інструментів. Взаємне розташування
текста і малюнка на кнопці визначається
відповідними значеннями властивостей
Margin,
Layout,
Spacing.
8.3 Хід роботи
8.3.1 Завантажують середовище Delphi.
8.3.2 Змінюють заголовок форми. Властивість Caption отримає значення “Розрахунок партії деталей – Прізвище, група”. Зберігають форму та проект у цілому (з допомогою команди Save All…) у відповідній папці.
8.3.3 Розташовують на формі об’єкт BitBtn (закладка Additional палітри компонентів Delphi). Надають властивості Kind значення bkClose, а властивості Caption значення “Закрити”.
8.3.4 За допомогою команди Run (клавіша F9) запускають програму і перевіряють, чи виконується команда “Сlose” після натискання кнопки “Закрити”.
8.3.5 Pозташовують таблицю текстових рядків StringGrid1 (закладка Additional). Задають значення кількості стовпців ColCount – 2 i кількості рядків RowCount – 101.Значення FixedCount i FixedRow задаєм рівними 1.
8.3.6 Розташовують на формі об’єкт SpeedButton1 (закладка Additional). Із спеціального набору піктограм можна вставити на даний об’єкт піктограмку (властивість Glyph). Змінюють заголовок на “Розрахунок якості деталей”.
8.3.7 Розташовують на формі два об’єкти – Label1 i Label2. Змінюють їх властивість Caption на “Кількість якісних деталей” і “Кількість комплектів”. Поруч з ними розміщують об’єкти Label3 i Label4 із написами “-“.
8.3.8 Розташовують на формі поле редагування – Edit1 (для встановлення кількості деталей в партії - m).
8.3.9 Програмують кнопку SpeedButton1, двічі клацнувши на ній лівою клавішою миші.
procedure TForm1.SpeedButton1Click(Sender:TObject);
{кнопка розрахунку якості деталей}
var
m, a, qual, n, z, cod: Integer;
s, s1: string;
begin
qual:=0;
z:=0;
Val(Edit1.Text, m, cod);
{зчитування внесеного користувачем прикладної програми значення велисчини партії - m}
for n:=1 to m do
begin
Str(n, s1);
{введення номерів деталей в перший стовпчик таблиці}
StringGrid1.Cells[0, n]:=’деталь’+s1;
a:=0; { виконавці найнижчої кваліфікації}
qual:=qual+Round(((a/10+2.6)*(Abs(Sin(Pi/2*n/m)))));
{застосовується 100-бальна шкала оцінки якості деталей}
if qual >100 then qual:=100;
Str(qual, s); StringGrid1.Cells[1, n]:=s +’ балів’; {у другий стовпчик таблиці вносяться дані розрахованої якості усіх деталей кількістю m штук}
if qual < 75 then { визначення тільки якісних деталей}
x:=0
else
x:=1;
z:=z+x;
komp:=Trunc(z/5); { визначення кількості комплектів}
Str(z,s); Label3.Caption:=s +’ штук’; { виведення кількості якісних деталей}
Str(komp,s); Label4.Caption:=s + ‘ штук’;{виведення кількості комплектів}
end;
end;
8.3.10 Зберігають проект у відповідній папці і виконують команду Build All Projects для створення exe-файлу прикладної програми і подальшого користування готовою програмою без завантаження середовища Delphi.