Лабораторна робота №6 Програмування циклів. Об’єкти : CheckBox I GroupBox

6.1 Мета роботи

Запрограмувати команди закінченння роботи з програмою – “Вийти” і очистки багаторядкового поля редагування – “Очистити”. Запрограмувати розрахунок і табулювання значень глибини стружкової канавки h в залежності від вибору величини подачі (підйому) на зуб – а. Результати табулювання ввести в багаторядкове поле редагування. Передбачити можливість виведення результатів не тільки на екран, але і у файл. Напрямок виведення задати за допомогою прапорців (об’єкт CheckBox), розташованих на панелі групи об’єктів GroupBox.

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

Об’єкт CheckBox використовують для створення дво- чи трипозиційного прапорця: увімкнено/вимкнено чи недоступний. Для цього об’єкта існують такі властивості:

Властивість	Опис властивості	Приклади значень
AllowGrayed	Наявність третьої позиції (сірий увімкнений)	True (трипозиційний прапорець), False (двопозиційний прапорець)
State	Стан прапорця	cbGrayed (сірий), сbUnChecked (вимкнений), cbChecked (ввімкнений).

Панель групи об’єктів GroupBox призначена для розміщення на ній групи із декількох об’єктів. Властивості цього об’єкта такі ж, як і у об’єкта CheckBox.

6.3 Хід роботи

6.3.1 Вводять в вікно форми об’єкт RadioGroup, надаючи значення Caption – “Підйом на зуб”. Для того, щоб ввести всі запропоновані в таблиці 5.1 значення а, використовують властивість Items (детально це розглядається в комплексній лабораторній роботі – “Склад металів”). Отже, вносять до переліку групи перемикачів RadioGroup1 значення: 0.02, 0.05, 0.08, 0.10, 0.15, 0.20, 0.25, 0.30.

6.3.2 Програмують команду “Вийти” головного меню. Для цього двічі клацають лівою клавішою миші по кнопці “Вийти” і з’явиться заготовка процедури, яка після введення команди Close набуде такого вигляду:

procedure TForm1.N2Click (Sender: TObject);

{Тут №2 може бути іншим};

begin

Close

end;

6.3.3 Програмують команду “Вийти” контекстового меню аналогічно як попередню.

6.3.4 Програмують команду “Очистити” контекстового меню, двічі клацнувши на ній. Відкриється заготовка процедури, в яку вкладають команду виклику методу Clear. Отже вказана процедура набутиме такого вигладу:

procedore Tform1.N4Click (Sender: TObject);

{№4 може бути іншим}

begin

Memo1.Clear

end;

6.3.5 Програмують команду “ Протабулювати”. Двічі клацнувши по ній відкривають заготовку іі процедури і далі доповнюють її до такого вигляду:

procedure TForm1.N1Click(Sender: TObject);

var

a, L, h, k, k1, min, max : real;

cd : integer;

str1, str2, str3, str4 : string;

begin

Val(Edit1.Text, min,cd);

{одержують числове значення найменшого коефіціенту заповнення стружкової канавки};

Val(Edit2.Text, max,cd);

{одержують числове значення найбільшого коефіціенту заповнення стружкової канавки};

Val(Edit3.Text,k1,cd);

{одержують числове значення кроку розрахунку коефіціентів заповнення стружкової канавки};

Val(Edit4.Text,L,cd); {одержують числове значення довжини протягування};

Memo1.Lines.Add(‘k a L h ’);

{ вставляють в об’єкт Memo рядок з параметрами процесу протягування};

k: = min;

while k<=max+k1/2 do { в межах між min i max значеннями коефіціента заповнення стружкової канавки табулюють з кроком к1};

begin

case RadioGroup1.ItemIndex of

0: a:=0.02;

1: a:=0.05;

2: a:=0.08;

3: a:=0.10;

4: a:=0.15;

5: a:=0.20;

6: a:=0.30;

end;

{програмують перемикачі групи перемикачів з різними значеннями а};

h:=1.13*Sqrt(k*L*a);

Str(k:2:1,str1);

Str(a:3:2,str2);

Str(L:4:1,str3);

Str(h:4:2,str4); {формують символьні рядки параметрів};

if CheckBox1.Checked then