1. Відкрити новий додаток. Дати заголовок Form1.Caption ― 'Підсумки сесії':

Розмістити на формі:

1. Зі сторінки Standard мітку Label1; властивість Caption ― 'Підсумки сесії по групі 37_';

2. Зі сторінки Additional таблицю рядків StringGrid1; встановити властивості:

ColCount ― 5 {Кількість стовпців};

RowCount ― 5 {Кількість рядків};

FixedCols ― 0 {Кількість фіксованих стовпців};

FixedRows ― 1 {Кількість фіксованих рядків};

Name ― StringGrid1 ( або SG1 );

Options.goEditing ― True {Редагування клітинок таблиці};

Options.goTab ― True;

1. Зі сторінки Standard прапорець CheckBox; встановити його властивість Caption ― 'Середній бал по групі';

2. Зі сторінки Standard кнопку Button1; встановити властивість Caption ― 'Пуск';

3. Зі сторінки Standard для виведення середнього бала по групі Label2 (чи Panel1); Caption ― ' ' (очистити).

1. Для початкового програмного заповнення заголовка таблиці обробити подію активації форми:

Procedure TForm1.FormActivate(Sender: TObject);

begin

StringGrid1.Cells[0,0]:=' Ф И О';

StringGrid1.Cells[1,0]:=' Програм.';

StringGrid1.Cells[2,0]:=' Мат.Ан.';

StringGrid1.Cells[3,0]:=' Диф.Ур.';

StringGrid1.Cells[4,0]:=' Ср.Бал';

end;

1. Основну обробку і введення елементів масиву (при заповненні таблиці) оформити як процедуру обробки події натискання клавіші "Пуск":

procedure TForm1.Button1Click(Sender: TObject);

var

a:array [1..5,1..10] of integer; {робочий масив}

S, {середній бал студента}

SR:real; {середній бал по групі}

i, {лічильник стовпців}

j:integer; {лічильник рядків}

begin

SR:=0;

For j:=1 to SG1.RowCount-1 do {цикл по рядках}

begin

S:=0;

For і:=1 to 3 do {цикл по стовпцях}

begin

a[i,j]:=StrToInt(SG1.Cells[i,j]);

S:=S+a[i,j];

end; {For і}

S:=S/3; {підрахунок середнього балу студента}

SG1.Cells[4,j] := FloatToStr(s);

SR:=SR+S;

end; {For j}

{аналіз значення прапорця - обчислення середнього бала по групі}

If CheckBox1.State=cbChecked then

begin

SR:=SR/(SG1.RowCount-1);

Label2.Caption:=FloatToStr(SR);

end; {Then}

end; {Proc}

1. Виконати перевірку коректності введення даних процедурою OnKeyPressed. У випадку помилки вивести повідомлення

"Дані не входять у діапазон [1..5]" і повторити введення.

1. Перевірити, чи введені дані в клітинку, якщо ні ― повідомлення на екран і корегування таблиці.

Заповнити початковий масив випадковими числами ( RANDOM ).

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

1. Компонент StringGrid, його властивості і події.

2. Компонент CheckBox, його властивості і події.

3. Методи введення й обробки елементів масиву.

4. Перевірка коректності введення даних.

Лабораторна робота №13

Тема: ”Анкета студента”

Мета: Використання зображення (фото, картинки), створення ехе-файла.

Постановка задачі:

Розробити додаток із зображеннями, що перекриваються.

Хід роботи:

I. Конструювання форми:

1. Відкрити новий додаток. Дати заголовок Form1.Caption – ‘Анкета студента’

2. Вибрати піктограму (іконку) для запуску задачі {Icon

Load (завантажити) вибираємо зі списку файлів *.ico

переглядаємо відкрити ОК іконка в системному рядку форми змінилася на обрану}

3. За бажанням змінити колір, фон, стиль, розмір форми.

4. Забрати кнопки системного меню форми ( ) {Borderconst biSystemMenu; biMinimize; biMaximize установити False }

На формі розмістити:

5. Зі сторінки Standard – мітку Label1; властивість Caption – 'Студент КТРЕ'

6. Зі сторінки Standard – поле Мемо (чи вікно Edit, чи Label) – для введення анкетних даних.

7. Розмістити 2 кнопки Button (з Standard)

Установити:

Caption.Button1 – ‘портретнe фото’

Caption.Button2 – ‘художнє фото’

8. Для коректного виходу з задачі (див.п.4) використовувати кнопку BitBtn зі сторінки палітри компонентів Additional. Установити властивість Kind(сорт) – вид кнопки на bkClose на кнопці з'явилася піктограма і напис Close.

9.На кнопці виведемо спливаючу підказку – “натяк”:

{властивість Hint – (це текст підказки, що з'являється при наведенні покажчика миші) – 'вихід із задачі’; властивість ShowHint – (показувати/непоказувати підказку) установити True}

10.Розмістити на формі об'єкт Image1 («картинка») зі сторінки Additional.

11.Уставити своє чи фото малюнок: {Image1 Picture вікно редактора Picture Load вибираємо файл із *.jpg; *.bmp; *.ico; *.wmf OK картинка у вікні}

12.Привести розмір зображення до заданих розмірів об'єкта Image: {властивість Stretch TRUE}

13.Аналогічно п.п.10-13 вибрати 2-і фото (картинку), наклавши її цілком на першу картинку і сполучивши розміри.

II. Розробка кодів (процедур):

procedure TForm1.Button1Click(Sender: TObject);

begin

Image1.Visible:=true; {портретне фото візуальне}

Image2.Visible:=false; {художнє фото не візуальне}

button1.Visible:=false; {кнопка1 не візуальна}

button2.Visible:=true; {кнопка2 візуальна}

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Image2.Visible:=true; {портретне фото візуальне}

Image1.Visible:=false; {художнє фото не візуальне}

button2.Visible:=false; {кнопка2 не візуальна}

button1.Visible:=true; {кнопка1 візуальна}

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

close;

end;

III. Зберегти розроблений додаток:

{гол. меню File Save all (зберегти усі) чи Shift+Ctrl+S}

чи для іншої папки:

{гол.меню File Save as…(SaveUnitas…)шлях ім'я Anketa.pas.

гол.меню Save Project as…шлях ім'я Foto.dpr}

У в а г а!!!

Файли проекту і тексту програми повинні мати різні імена.

IV. Створити ехе-файл проекту:

1. {гол.меню Project Build all (сконструювати все)}

2. Закрити Delphi:

Запустити задачу як ехе-файл через піктограму

КОНТРОЛЬНІ ПИТАННЯ :

1. Властивості компонента Image.

2. Властивості і події компонента BitBtn.

3. Створення ехе-файла.

4. Вибір піктограми задачі

5. Спливаюча підказка.

Лабораторна робота № 14

Тема : Створення довідкової системи додатка

Мета : Навчитися створювати довідкову систему проекту

Складається з двох етапів:

Створення файлу документа

Компіляції файлу довідки.

I Етап

Файл документа створюється будь-яким текстовим процесором (напр. Microsoft Word) і зберігається як rtf файл.

1. Набираємо текст розділів довідки.

2. Заголовки розділів оформляємо одним зі стилів «Заголовок ».

3. Текст кожного розділу довідки повинен бути на окремій сторінці документа, тобто закінчуватися «розривом сторінки ».

4. Позначаємо заголовки розділів виносками. Універсальна виноска для ідентифікатора теми, по якому на цю виноску можуть посилатися інші теми - #. Її потрібно ставити перед кожним розділом довідки; {Вставка → посилання → виноска → інша → # у поле введення → Ok}. У нижній частині вікна редагування розкривається вікно введення тексту виноски, де вводимо ідентифікатор уставленої виноски; {# розділ1 # razd 2}.

5. Перехід до інших розділів довідки по виділеному слову (ключу): ключове слово в загальному тексті rtf файлу підкреслюємо подвійною лінією {Формат → Шрифт → Підкреслення → Подвійне → Ок застосовуємо до виділеного ключового слова}. За ключовим словом у тексті rtf файлу набираємо ідентифікатор посилання, куди необхідний перехід у довідці і «ховаємо» цей набраний ідентифікатор {Формат → Шрифт → Схований → Ок}. При цьому опція «подвійне підкреслення» повинна бити відключена.

6. Зразок фрагменту rtf – файлу: