II. Для початкового програмного заповнення заголовка таблиці обробити подію активації форми:
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;
III. Основну обробку і введення елементів масиву (при заповненні таблиці) оформити як процедуру обробки події натискання клавіші "Пуск":
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}
IV. Виконати перевірку коректності введення даних процедурою OnKeyPressed. У випадку помилки вивести повідомлення
"Дані не входять у діапазон [1..5]" і повторити введення.
V. Перевірити, чи введені дані в клітинку, якщо ні ― повідомлення на екран і корегування таблиці.
Заповнити початковий масив випадковими числами ( 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 – файлу:
# sozd Створення довідкової системи {Заголовок1} складається з двох етапів:
I – Створення файлу документів razdel1
II – Компіляція файлу довідки razdel2
# razdel1 Файл документа можна створити засобами процесора MS Word
{ текст розділу }
# razdel2 Компілюємо файл довідки програмою MS Help Workshop
{ текст розділу }
| Усі виноски | ▼ |
| Закрити |
# sozd
# razdel1
# razdel2
IIКомпіляція файлу довідки .
1. Запускаємо MS Help Workshop, його шлях:
2. У головному вікні програми:
File → New → HelpProject → відкривається вікноProjectFileName → вибираємо папку з проектом і з файломrtf → у полі Ім'я файлу вводимо ім'я файлу довідкової системи → Зберегти.
3. Відкрилося вікно проекту довідкової системи .
4. Додаємо файл – документ довідкової системи.
Кнопка Files → у вікні Topic File→ Add → вікно «Відкриття файлу» → вибираємо потрібний rtf – файл.
5. Задаємо характеристики вікна довідкової системи:
Кнопка Windows → Windows Properties → у поле Create a window named → слово “Main” – основний тип створюваного вікна → Ok → повернення у вікно Windows Properties.
6. Вкладка General → поле Title bar text → вводимо заголовок головного вікна (напр. Довідка).
7. Можна вибрати колір фону заголовка і тексту довідки
{ Вкладка Color → вибір Change → Ok}
8. Призначимо числові значення ідентифікаторам розділів довідки: {у вікні проекту довідкової системи натиснути кнопку Map → сховалося діалогове вікно Map → Add → у поле Topic ID вводимо ідентифікатор посилання → у поле Mapped numeric Value – відповідне значення }.
9. Компілюємо файл довідки:
Меню File → Compile → Compile a Help File установлюємо прапорець для автоматичного показу створеної довідки → Compile.
10. Створено файл довідки ім'я.hlp.
11. Підключаємо розроблений файл довідки в проект Delphi, зв'язуючи довідку з клавішею F1:
Object Inspector Form1 → Help File → ім'я.hlp;
→Help Context → 1.
12. Для виклику довідки натисканням на кнопку – процедура (Button чи пункт меню)
Procedure TForm1.Button1Click(Sender:TObject);
Winhelp (Form1.Handle,’ім'я.hlp’, Help_Context,1);