Завдання

Написати програму - підказку для навчання англійської мови.

Хід роботи

1. Запустимо середовище Delphi та створимо новий додаток.

2. Компонент, розміщені на сторінці палітри Additionsl обрати відеокомпонент Image та розмістити на формі 6 малюнків.

Для того щоб малюнки були однакових розмірів необхідно скопіювати один намальований Image, скопіювати його натисканням комбінації клавіш Ctrl+C, після чого на форму ще 5 малюнків натисканням клавіші Ctrl+V.

3. Для кожного компонента Image настроїти програму на виведення відповідного малюнка.

Для цього обрати для компонента Image в Object Inspector рядок Picture – натиснути на поле None… - Load та обрати папку Мои документы – папка Image. Якщо розмір малюнка не збігається з розміром контурів можна розтягти, встановивши у властивості Stretch значення true та розтягнути контури.

4. У нижній частині малюнка помістимо компонент Label (іконка на першій закладціStandard).

Для зміни розміру тексту необхідно клацнути Object Inspector рядок Font – Tfont…

5. Вибрати в Object Inspector для компонента Image1 подію OnМouseDown і клацаємо мицею на полі. Автоматично створюється оголошення методу оброблення події, між begin і end вписуємо такий рядок:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Label1.Caption:='Pumpkin';

end;

6. Cкомпілювати створений проект (функціональними клавішами Ctrl+F9).

7. Перевірити правильність виконання програми, відредагувати її при наявності в ній помилок (функціональними клавішами F9).

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

1. Що таке Алгоритм?

2. Які існують способи подання алгоритмів?

3. Перелічіть властивості алгоритма?

4. Як запустити середовище Delphi?

5. Як скомпілювати створений проект?

6. Які ви знаєте типи файлів, що використовуються в проектах Delphi?

Інструкція до практичної роботи № 16

Тема: Розміщення на формі елементів керування та настроювання їх властивостей.

Мета: придбати практичні навички розміщення на формі елементів керування та настроювання їх властивостей.

Обладнання: ЕОМ «Сeleron»

Завдання.

На формі розміщені три кнопки. Записати процедури, які мі­стяться в кнопках 1і 2.Унаслідок натискання кнопки 1її ширина й висота збільшуються на п'ять пікселів. Форма і кнопка 2 не змінюють розмірів. У міру збільшення кнопки 1 кнопка 2 зміщується, а кнопка 3 зменшується в розмірах. Якщо натиснути кнопку 2,описаний процес іде у зворотному порядку —кнопка 3збільшується, кнопка 1зменшується. Унаслідок натискання на кнопку 3 форма закривається.

Хід роботи

1. Запустимо середовище Delphi та створимо новий додаток (File → New → Form).

2. Компонент, розміщені на сторінці палітри Additional обрати та намалювати 3 кнопки.

Натискаємо подвійним клацання мишею на кнопці BitBtn1 і впишемо у відкритий метод обробки натискання TForm1.BitBtn1Click такі рядки:

procedure TForml. BitBtn1.Clіck(Sender: TObject);

begin

BitBtn1.Width:= BitBtn1.Width + 5;

BitBtn1. Height:= BitBtn1.Height + 5;

BitBtn2. Top: = BitBtn2.Top + 5;

BitBtn2. Left: = BitBtn2.Left + 5;

BitBtn3. Width: = BitBtn3.Width - 5;

BitBtn3. Height: = BitBtn3.Height - 5;

BitBtn3.Тор:= BitBtn3.Тор + 5;

BitBtn3. Left:= BitBtn3.Left + 5;

end;

3. Запустити програму на компіляцію й виконання клавішею F9.

4. На листі Unit1.pas натиснути комбінацію Ctrl+F9. З ліва з’явиться вікно ObjectTreeView в якій обрати BitBtn2.

5. Очевидно набрати за зразком і для нього буде використано ме­тод TForml. BitBtn2Click:

procedure TForml. BitBtn2Click(Sender: TObject);

begin

BitBtnl.Width:= BitBtnl.Width - 5;

BitBtn l.Height: = BitBtn l.Height - 5;

BitBtn 2.Top:= BitBtn2.Top - 5;

BitBtn 2.Left: = BitBtn2.Left - 5;

BitBtn 3.Width: = BitBtn3.Width + 5;

BitBtn 3.Height: = BitBtn3.Height + 5;

BitBtn 3.Top: = BitBtn3.Top - 5;

BitBtn3.Left: = BitBtn3.Left - 5;

end;

6. Запустити програму на компіляцію й виконання клавішею F9.

7. На листі Unit1.pas знову натиснути комбінацію Ctrl+F9 та обрати BitBtn3.

8. Очевидно набрати за зразком і для нього буде використано ме­тодTForml. BitBtn3Click:

procedure TForml. BitBtn3Click(Sender: TObject);

begin

close;

end;

9. Запустити програму на компіляцію й виконання клавішею F8.