Save Project As.(зберегти проект). У поле Ім'я файлуім'я файлу проекту(LR 6-7).

Begin

If CloseQuery then Close; {чи Close}

End;

12.Зкомпілювати додаток {F9} і перевірити функції головного меню.

I I.Створення Контекстного (Спливаючого) меню.

1.На формі розмістити не візуальний компонент TРopUpMenu.

2.Аналогічно пунктам 5-7(першої частина LR) створити спливаюче меню.

3.Після створення спл. меню в редакторі Menu закрити вікно редактора Menu([x]) клацнути на формі

(для скасування вибору всіх компонентів) . у списку вікна, що розкривається, ObjectInspector буде

MForm:TMForm. Властивості PopUpMenu форми надати значення PopUpMenu1.

4.Аналогічно пункту 11 (I ч. LR) обробити пункт спливаючого меню «?Info» для інформаційного

діалогового вікна повідомлень.

Використати процедуру MessageDlg, що має 4 аргументи:

1 - симв. рядок з «переходом рядка» (код #13) і «поверненням каретки» (код #10) -для виведення

тексту у декілька рядків;

2 - mtInformation - вибір стилю діалогового вікна ;

3 - [mbOк] - множина кнопок у вікні;

4 - 0 - ознака контекстної довідки;

Текст процедури обробки події :

Procedure TMForm.Info1Click (Sender:Tobject);

Begin

MessageDlg ('Меню розробив(ла)'#13#10'студент(ка) гр. № ФИО', mtInformation,[mbOk],0);

End;

5.Зкомпілювати додаток і перевірити його роботу вибором пункту мишею ,клавішами еквіваленту та мнемонічного коду.

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

1.Візуальні та невізуальні компоненти. 2.Етапи збереження проекту.

3.Створення головного ( контекстного ) меню. 4.Клавіші еквіваленту.

5.Мнемонічний код. 6.Інформаційне діалогове вікно повідомлень.

Тема : Сторінка системних компонентів

Сторінка System : містить компоненти, що дозволяють мати доступ до програмного та апаратного забезпечення ПК.

Наприклад: Tіmer, Audіo - vіdіoplayer, вікно для малювання Paіnt - Box.

Компоненти Tіmer використовується для запуску процедур і функцій по обробці подій у зазначений інтервал часу, для контролю часу, тобто для виконання дій у реальному режимі часу. Це не візуальний компонент.

Має властивості:

- Enable (True, False) - використовується для генератора повідомлень.

- Іnterval - задається цілим числом у мілісекундах.

Має подію OnTіmer.

Сторінка Win32 : містить 32-бітні компоненти (після Delphi-2) загального призначення, що дозволяє розробку додатків у стилі Win98, 2000, NT.

Наприклад: календар, можливість корегування дат і часу, створення структури дерева, відтворення кліпів і т.д.

Візуальний компонент TdateTimePicker - поле введення, корегування дати і часу .

Має властивості :

Kind два значення:

dtk Date - корегування чи відображення дати.

dtk Time - корегування часу.

Властивість Data Mode дозволяє змінювати зовнішній вигляд календаря для дати, при цьому у властивостях Kind повинне бути значення dtkDate.

Значення dmComboBox - це поле зі списком (називається спадаючий чи календар, що випадає).

Значення dmUpDown - це коректування дати у вигляді лічильника.

Властивість Time - корегування часу.

Візуальний компонент TMonthCalendar - дозволяє швидко корегувати дату, готовий до роботи відразу після розміщення, ліворуч - колонка - номер тижня, використовуються кнопки переміщення, повернення на поточну дату з лічильником на сьогодні.

Лабораторна робота №8-9

Тема: Розробка інтерфейсу користувача з використанням компонентів SYSTEM і WIN32.

Ціль: засвоїти інтерфейс користувача з використанням компонентів сторінок SYSTEM. і WIN32.

Хід роботи:

I.Створення цифрового годинника.

1.Відкрити новий додаток (проект).

2.Вибрати форму {клацнувши на ній}, змінити Caption- на FORMLR8, Name- на FLR8.

3.Видалити кнопки мінімізації і максимізації вікна {на властивості BorderIcons розкрити [+] встановити biSystemMenu - у TRUE, biMinimize і biMaximize- у FALSE

Результат буде видний на формі лише після компіляції}.

4.Розмістити в центрі форми мітку { компонент LABEL сторінки STANDART}.

Для резервування місця під розташовувані цифри змінити :

Caption-00:00:00 AM; Name-TimeLable1.

5.У властивості Font об'єкта TimeLabel вибрати колір, шрифт, розмір, стиль для годин; наприклад - жирний курсив, розмір 24 і т.д.

6.Перенести на форму зі сторінки SYSTEM компонент Timer (його ім'я за замовчуванням Timer1).

7.Обробити подію OnTimer {вибрати об'єкт Timer1 і клацнути на закладці Events у вікні Інспектора Об'єктів.

Викликати процедуру (метод) обробки подвійним клацанням миші на значенні праворуч від події:

Procedure TFLR8.Timer1Timer(Sender: Tobject);

Begin

TimeLable1.Caption:=TimeToStr(Time);

End; Цей код конвертує (переводить) поточний час у рядок String }.

8.Зкомпілювати додаток і запустити його. Вікно форми з ім'ям FormLR8 - без кнопок максимізації і мінімізації.

9.Вийти в Delphi на форму FormLR8.

II. Маніпуляція з кольорами форми - мерехтіння кольору форми.

1.Вибрати об'єкт Timer1 на формі.

2.Установити властивість Interval = 100

3.Код обробки події OnTimer доповнити процедурою (методом):

FLR8.Color := trunc ( $02ffffff * random );

Ім'я (Name) форми властивість кольору

4.Зкомпелювати і запустити проект.

III. Робота з календарем. Виведення повідомлення.

1.Розмістити на формі кнопку, змінити заголовок Caption на «Час», ім'я Name - Button1.

2.Розмістити на формі зі сторінки WIN32 візуальний компонент TDateTimePicker.

3.Встановити режим відображення дати з розкритим календарем (поле зі списком):

властивість DateMode = dmComboBox; властивість Kind = dtkDate.

4.Встановити режим у вигляді лічильника:

властивість DateMode = dmUpDown.

5.Обробити подію натинення кнопки «Час» для виведення в інформаційному діалоговому вікні повідомлень поточного часу:

MessageDlg('Поточний час

+ TimeToStr(DateTimePicker1.Time),mtInformation, [mbOK],0);

6.Впорядкувати розміщення об'єктів на формі {вибрати всі об'єкти форми: меню Edit ( Select all};

{Впорядкувати об'єкти : Edit> Align > діалогове вікно - по горизонталі > Center (центрувати)

по вертикалі > SpaceEqual (рівна відстань)}

7.Зкомпілювати і запустити додаток.

8.Зберегти модуль і проект.

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

1.Призначення компонентів сторінки SYSTEM.

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

3.Призначення компонентів сторінки WIN32.

4.Властивості і значення компонента TDateTimePicker.

5.Властивості і значення компонента TMonthCalendar

6.Корегування дати і часу.

7.Впорядкуванння розміщення об'єктів на формі.

8.Видалення кнопок максимізації та мінімізіції на формі.

Директиви компілятора

Використовуються для зміни режимів функціонування (роботи) компілятора, впливають на ефективність виконання програми.

Розташовують директиви в коді програми безпосередньо перед текстом. Кожна директива заключається в фігурні дужки і має ознаку „$”. В одному рядку можна вказати декілька директив через кому: { $R+, $I+, $I_ Funct1.pas }

Типи директив:

1. перемикачі - вкл / відкл режим компілятора („+” / ”-„ , ON / OFF) . { $R+, $I+ }

Можуть бути локальними і глобальними.

2. з параметрами - конкретне значення. Наприклад: ім'я файла. { $I_ Funct1.pas }

3. умовної компіляціі - дозволяють в залежності від умов компілірувати або ні окремі фрагменти копій.

Для перевірки встановлених директив за замовчуванням -- функційні клавіші Ctrl + О або О (Options Compiler ).

Налагодити сторінку компілятора можна в діалоговому вікні Project Options установкою відповідних індикаторів.

1. {$R} - перевірка допустимих значень індексів масивів .

Дозволяє перевірити діапазон цілочисельних значень індексів, автоматично контролює

результати введення і виведення (за замовчуванням R- ).

2. {$І}- перевірка помилок введення /виведення, автоматично контролює результати введення - виведення (за замовчуванням І+).

Аналізується код помилки процедурою І / О RESULT

0 - Відсутність помилки;

2 - Файл не знайдений;

3 - Помилка в імені файла;

4 - Забагато відкритих файлів: збільшити кількість відкритих файлів в налаштуванні;

5 - Файл ушкоджений;

100 - Кінець файла;

101 - Диск переповнений;

106 - Помилка введення при роботі з файлами;

3. {$I_ім'я файла} - підключає на етапі компіляції розроблені раніше файли;

4. {$Q} - переповнення при цілочисельних операціях;

5. {$Р} - розширення параметрів процедур і функцій у вигляді рядків;

6. {$С+} - перевірка тверджень.

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

Тема: ”Консольний додаток”.

Ціль: У режимі консольного додатка відпрацювати основний модуль задачі курсового проекту.

Послідовність виконання:

1.Запустити Delphi; відкрити новий додаток {File New Application}.

2. Закрити наступні вікна:

форми Form1;

інспектора об'єктів Object inspector;

модуль додатку Unit1.pas( без збереження ).

на екрані лише головне вікно Delphi.

3. З меню Project View Source (перегляд) з'являється вікно головної

процедури додатка, назва Project1.dpr.

4. Набираємо текст (код) програми на Паскалі.

5. Перший рядок{$Apptype Console} - директива компілятора.

6. У тексті програми перед (end.) повинeн бути оператор Readln;

зкомпілювати код програми меню {Project Compile} і запустити в роботу

{RunF9}.

7. На екрані - вікно Dos.

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

1. Директиви компілятора.

2. Класифікація директив.

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

Тема: „Налагодження інтегрованого середовища розробника”

Хід роботи:

Відминити - відновити вивід на екран палітри компонентів

{View>ToolBars>Component Palette} {Вид>Панель инструментов>Палитра компонентов}.

Відминити - відновити вивід на екран панелі інструментів {View>ToolBars>Standard} {Вид>Панель инструментов>Стандарт}.

Додати кнопку на панелі інструментів, Comands {View>ToolBars>Customize(налагодження)> вiкно зі сторінками Categories (мелю) та Comands (команди). Вибрати меню файл і команду мишкою перетягнути кнопку на панель. Видалити кнопку з панелі}.

Відминити - відновити вивід на екран інспектора об'єктів {View>ToolBars>Object Inspeclor(Інспектор об'єктів)(F11)}.

Додати елемент в меню {Tools(інструменти)>Configure Tools(конфігурація інструментів)> у вікні діалогової панелі Tool Options натиснути Add>Tools Properties(властивосиі інструментів), натиснути Brows> зі списку вибрати задачу, відкрити її; у вікні Title дати заголовок - наприклад Matric>Ok y вікні Tools Properties>Close> задача включена в Tools}.

Змінити порядок задач у списку Tools {у списці Tool Option вибрати потрібну задачу і перемістити її на початок списку кнопками Move Up}.

7. Видалити задачу зі списка Tools {вибрати задачу зі списку Tools>Delete}.

Перемістити сторінку палітри компонентів System перед Standart {натиснути правою кнопкою миші на палітрі компонентів > висвітиться контексне меню Properties (властивості) > діалогове вікно Palette Properties з двома колонками > у списці сторінок Page вибираємо System та переміщуємо її}.

Додати нову сторінку в палітру з назвою "37 " {в діалоговому вікні Palette Properties натиснути на Add і вводимо нове ім 'я сторінки GR37 }.

Видалення сторінки {в діалоговому вікні Palette Properties натиснути на сторінці GR37_(mo6mo вибираємо її) та на кнопку Delete}.

Доповнити в Знавець Коду (Code Insight) шаблон для оператору цикла з

параметром - 1:

For |: = downto do // Ctrl+J - виклик знавця коду

{Tools>Edition Option>Code Insight>Code Templates> натиснути Add у вікні для виводу нового шаблону shotcut+name в його короткий опис Description набираємо текст

шаблону, встановлюємо " ¦ " перед " : =" > зберігаємо та виходимо }.

Видалити шаблон із Знавця Коду { Tools>Editer Option>Code Insight> знайти шаблон і.Del}.

Змінити затримку автоматичного спрацьовування Code Insight на максимум (Delay) {Tools>Edition Option>Code Insight>Delay> повзунок на max = 1.5 sec> Ok}.

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

Налагодження палітри компонентів.

Налагодження панелі інструментів.

Налагодження меню Tools.

Корегування знавця коду.

 Тема: Введення й обробка елементів масиву

І Визначити конкретне значення елементів масиву ми можемо з використанням компонентів сторінки Standard Edit ( вікно редагування), при цьому на вихідній формі необхідно передбачити таку кількість віконець Edit, скільки елементів має масив.

Edit .Text - інформація символьного типу, для обробки числових значень необхідне перетворення типів:

· StrToFloat, StrToInt - перетворення символьного в числове;

· FloatToStr, IntToStr - зворотне перетворення для висновку результату.

При такому заданні масиву необхідно заздалегідь визначати і чітко фіксувати кількість елементів ( розмірність масиву).

ІІ При великій розмірності масиву незручно використовувати величезну кількість вікон редагування. Масив можна вводити по рядкам в таблицю елементів, де кожне число знаходитися в окремому клітинці. При цьому елементи розділяються пробілом. Компонент StringGrid знаходитися на сторінці Add itional .

Властивості компонента String Grid:

1. Name - ім'я, що використовується в програмі для звернення до об'єкта;

2. ColCount - кількість стовпчиків (стовпців);

3. RowCount - кількість рядків;

4. Cells - ім'я масиву ,відповідного таблиці.

5. FixedCols - кількість фіксованих зліва стовпчиків;

6. FixedRows - кількість фіксованих зверху рядків;

7. Options.goEditing - можливість редагування вмісту клітинок таблиці;

8. Options.goTab - можливість переходу до наступного елементу клавішею “Tab”;

9. DefaultColWidth - визначає ширину стовпчиків таблиці;

10. DefaultRowWidth - висота рядків таблиці.

11. OptionsGoAlwaysShowEditor - при значенні False, після набору тексту необхідно натиснути F2, чи клацнути миша при значенні True - редагування виконується автоматично.

ІІІ. Використання компонента Мемо дозволяє вводити в масив елементи символьного типу у вигляді рядків тексту.

Властивості Memo:

Name -- ім'я компонента, що використовується в тексті програми;

Lines - номер рядка, номерація починається з нуля (номер задається в «[ ]»);

Text - символьна інформація, що визначає значення елементів масиву.

IV. Введення даних у масив з використанням списку List Box (Standard).

Властивості ListBox :

Items - елементи списку;

ItemIndex - номер обраного елемента списку ( на початку роботи «0»).

Список може бути сформований під час створення форми додатка, чи динамічно під час роботи програми.

У вікні Object Inspector вибрати властивості Items і клацнути на кнопці....., відкривається діалогове вікно редактора списку рядків ( StringList Editor). Кожен елемент набирати з нового рядка і завершувати «Enter». Після введення всіх елементів списку натиснути «ОК».

Процедура обробки події OnKeyPress

( перевірка коректності введення цілих чисел)

Procedure Tform1.StringGridKeyPress (Sender:Tobject; Var Key : char );

Begin

Case Key of

#8,'0'..'9' : ; // Цифри і клавіша <Back Space>

#13; // Клавіша <Enter>

If StringGrid1. Col < StringGrid1.ColCount - 1

Then StringGrid . co l : = StringGrid1.col + 1

Else key : = Chr(0); // iнші символи заборонені

End;

End;

Перевірка коректності введення дійсних чисел

Procedure Tform1.StringGridKeyPress (Sender:Tobject; Var Key : char );

Begin

Case Key of

#8,'0'..'9' : ; // Цифри і клавіша <Back Space>

#13; // Клавіша <Enter>

If StringGrid1. Col < StringGrid1.ColCount - 1

Then StringGrid . co l : = StringGrid1.col + 1;

`. ` , ',' : // Роздільник цілої і дробової частин числа

Begin

If Key <> DecimalSeparator then

Key : = DecimalSeparator ; // Замінимо роздільник на припустимий

If Pos ( StringGrid1. cells [ StringGrid . Col , 0] , DecemalSeparator ) <> 0

Then Key : = chr ( 0); // Заборона введення повторного роздільника

End;

` - ` : // мінус можна ввести тільки першим символом

// тобто коли комірка порожня

If Length ( StringGrid1.Cells [ StringGrid1 . Col , 0 ] ) <> 0

then Key : = Chr ( 0 )

else / / Інші символи заборонені

key : = Chr (0);

end; { end case}

end; { end proc}

Лабораторна робота № 12.

Тема: Обробка двовимірного масиву.

Мета: Освоїти методи обробки масиву.

Постановка задачі: Підрахувати середній бал студентів за підсумками сесії. За запитом виводити середній бал по всій групі.

Хід роботи:

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

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

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

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

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

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

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

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

Name Ї StringGrid1 ( або SG1 );

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

Options.goTab Ї True;

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

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

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

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

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;

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

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}

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

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

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

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

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

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

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

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

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

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

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

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

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

Хід роботи:

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

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

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

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