Лабораторна робота № 7. Тема: Задача «вивчення англійської мови».

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

Мета роботи: Розібрати програму для оцінки ступеня знання англійської мови. Користувач повинен перетягувати малюнки під відповідні англійські слова. Застосувати індикатор часу, звукові ефекти і аналіз тестування. Навчитись працювати з компонентами: геометрична фігура (Shape), таймер (Timer), мультимедійний програвач (Media Player), двійна кнопка с полем редагування (Spin Edit), індикатор стану (Progress Bar).

Хід роботи.

1. Запустіть Delphi

2. Змініть заголовок (Caption) форми с «Form1» на «Англійська мова - тестування».

3. Змініть властивість Name форми на “main” (тобто змініть назву форми)

4. Змініть властивість Border Style форми на “bsSingle”

5. Розташуйте на формі компоненти, як показано на малюнку. Увага! Для полегшення написання програмного коду і для легшої роботи з компонентами треба змінити їх властивість Name. На малюнку, показані ім’я кожного компоненту, а в дужках, ім’я компоненту на панелі компонентів. Змініть властивість Name кожного компоненту на відповідне ім’я. Описання нових компонентів:

• Геометрична фігура Shape на панелі Additional , потрібна для зображення елементарних геометричних фігур; Розмір фігури повинен бути більше, ніж розмір малюнку. Якщо під час переміщення малюнку на фігуру він зникне, перемістіть його на передній план командою контекстного меню Bring To Front;

• Таймер (Timer, піктограма на закладці System) використовують для повторення частини коду з певною частотою. Частина коду знаходиться в події таймера OnTimer. Періодичність вмикання задається у властивості Interval в мілісекундах;

• Мультимедійний програвач (MediaPlayer, піктограма на закладце System) потрібна для програвання відео і аудіо файлів. Управляти відтворенням можна як за допомогою кнопок Play, Pause, Stop Next і т.д. на етапі виконання програми, так і з програмного коду викликавши відповідні методи об’єкта;

• Подвійна кнопка з полем редагування (SpinEdit, піктограма на закладці Samples) призначена для введення і корегування певного значення цілого типу під час програми;

Задайте такі властивості об’єктів

Об’єкт	Властивість		Значення
Timer1	Interval		500
Timer2	Interval		100
Play	Visible		False
SpinEdit1	EditorEnabled		True
	MaxValue		10
	MinValue		1
	Value		5
Ok	Glyph		Load C:\ Program Files\Common Files\ Borland Shared\ IMAGES \BUTTONS\ check.bmp\OK
	Caption		Готово
Ex	Glyph		Load C:\ Program Files\ Common Files\ Borland Shared\ IMAGES \BUTTONS\dooropen.bmp
	Caption		Вихід
P1, P2,P3		Shape	stRoundRect
		Pen -> Width	2
Im1, Im2, Im3		Stretch	True
Label4		Font-Color	Red
		Font-Size	10
		Caption	Обов’язково натисніть на кнопку "Далі" після розміщення рисунків!!
L1, L2, L3		Font-Color	Olive
		Font-Size	16

6. Двічі клацніть на піктограмі першого таймера і запрограмуйте миготіння повідомлення «Обов’язково натисніть кнопку «Далі» після розміщення малюнків!!»:

procedure TForm1.Timer1.Timer(Sender: Tobject);

begin

label4.Visible:=not label4.Visible;

end;