ТПСПП-лаб 3

Технологія програмування та створення програмних продуктів

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

Тема: "Створення програм з використанням механізмів спадкування,

також компонентів Label, TrackBar, GroupBox та CheckBox".

Мета: - створити програму, що виконує наступні дії:

1.Після запуску програми у вікні зображається два движки.

2.Необхідно вибрати два числові значення і знайти їх добуток.

3.Якщо вибирається одне число, то знаходиться його квадрат.

4.Для виходу з програми необхідно клацнути мишею на закриваючій кнопці в рядку заголовка.

Програма повинна виконувати обчислення квадрата двох чисел. Для цих целе використовується компонент TrackBar

Хід роботи

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

2.Розмістити на формі екземпляри компонентів: командна кнопка Button,

движок TrackBar, рамка GroupBox, напис Label, прапорець CheckBox.

3. Виконати наступні дії:

1

	Виділений	Вкладка вікна	Ім'я свойства/	Дія
	об'єкт	Object Inspector	ім'я події
	Form1	Properties	Caption	Установка імені форми «Таблиця
				множення»
			Min (Мінімум)	Привласнити значення 2
			Max	Привласнити значення 99
			(Максимум)
			Position	Привласнити значення 2
			(Положення)
		Properties	LineSize (Мала	Привласнити значення 1
			зміна)
			PageSize	Привласнити значення 7
	TrackBar1		(Посторінкова
			зміна)
	(Вкладка
			Frequency	Привласнити значення 7
	Win32)
			(Частота
			зарубок)
				Label1.Caption :=
				IntToStr(TrackBar1.Position);
				Label3.Caption :=
		Events	OnChange	IntToStr(TrackBar1.Position *
				TrackBar2.Position);
				if CheckBox1.Checked then
				TrackBar2.Position
				:=TrackBar1.Position;
			Min (Мінімум)	Привласнити значення 2
			Max	Привласнити значення 99
			(Максимум)
			Position	Привласнити значення 2
			(Положення)
		Properties	LineSize (Мала	Привласнити значення 1
			зміна)
			PageSize	Привласнити значення 7
	TrackBar2		(Посторінкова
			зміна)
	(Вкладка
			Frequency	Привласнити значення 7
	Win32)
			(Частота
			зарубок)
				Label2.Caption :=
				IntToStr(TrackBar2.Position);
				Label3.Caption :=
		Events	OnChange	IntToStr(TrackBar1.Position *
				TrackBar2.Position);
				if CheckBox1.Checked then
				TrackBar1.Position :=
				TrackBar2.Position;
	GroupBox1	Properties	Caption	Ввести підпис «Твір»
	(Вкладка
	Standard)
	Label1	Properties	AutoSize	Встановити значення False
	(Вкладка		(Автопідбір)
	Standard)		Caption	Привласнити значення 2
				2

		Alignment	Встановити значення
			taRightJustify (Вирівнювання по
		(Вирівнювання)
			правому краю)
Label2		AutoSize	Встановити значення False
	Properties	Caption	Привласнити значення 2
(Вкладка			Встановити значення
Standard)		Alignment	taRightJustify (Вирівнювання по
			правому краю)
Label3		AutoSize	Встановити значення False
	Properties	Caption	Привласнити значення 4
(Вкладка			Встановити значення
Standard)		Alignment	taRightJustify (Вирівнювання по
			правому краю)
CheckBox1	Properties	Caption	Ввести підпис «Квадрат»
		Alignment	Встановити значення taLefttJustify
(Вкладка			(Вирівнювання по лівому краю)
Standard)	Events	OnClick	TrackBar2.Position :=
			TrackBar1.Position;

4.Створіті код програми

5.Зберегті проект, запустити та протестувати його.

Завдання даного уроку:

Створіті форму;

Змініті назву форми;

Напісаті код програми, яка обчислює вартість поїздки;

Отладіті код;

Зберегті у відповідній папці.

Звіт про виконану лабораторну роботу повинний містити:

1.Номер роботи.

2.Тему і мету роботи.

3.Короткий теоретичний розділ.

4.Роздрукованій програмний код модуля.

5.Вісновки про виконану роботові (у цій вправі ви познайомилися з новим компонентом CheckBox. Поясніть де і як булі використані компоненти Delphi).

Результат надати у вигляді

Мал. 1.

3

Завдання для самостійного виконання

1.Змінити програму так, щоб знаходити добкток не тільки двозначних, але і

тризначних чисел від 2 199.

2.Змінити програму так, щоб знаходити суму двох чисел.

4