Практическая работа № 12

«Таблица умножения»

Цель работы -создать программу, выполняющую следующие действия:

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

2. Необходимо выбрать два числовых значения и найти их произведение.

3. Если выбирается одно число, то находится его квадрат.

4. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.

Описание плана разработки программы

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов: командная кнопка Button, движок TrackBar, рамка GroupBox, надпись Label, флажок CheckBox.

3. Выполнить следующие действия:

Таблица 12.

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

Продолжение таблицы 12.
Выделенный объект	Вкладка окна Object Inspector	Имя свойства/ имя события	Действие
TrackBar2 (Вкладка Win32)	Properties	Min (Минимум)	Присвоить значение 2
Max (Максимум)	Присвоить значение 99
Position (Положение)	Присвоить значение 2
LineSize (Малое изменение)	Присвоить значение 1
PageSize (Постраничное изменение)	Присвоить значение 7
Frequency (Частота засечек)	Присвоить значение 7
Events	OnChange	Label2.Caption:= IntToStr(TrackBar2.Position); Label3.Caption:= IntToStr(TrackBar1.Position * TrackBar2.Position); if CheckBox1.Checked then TrackBar1.Position:= TrackBar2.Position;
GroupBox1 (Вкладка Standard)	Properties	Caption	Ввести подпись «Произведение»
Label1 (Вкладка Standard)	Properties	AutoSize (Автоподбор)	Установить значение False
Caption	Присвоить значение 2
Alignment (Выравнивание)	Установить значение taRightJustify (Выравнивание по правому краю)
Label2 (Вкладка Standard)	Properties	AutoSize	Установить значение False
Caption	Присвоить значение 2
Alignment	Установить значение taRightJustify (Выравнивание по правому краю)
Label3 (Вкладка Standard)	Properties	AutoSize	Установить значение False
Caption	Присвоить значение 4
Alignment	Установить значение taRightJustify (Выравнивание по правому краю)
CheckBox1 (Вкладка Standard)	Properties	Caption	Ввести подпись «Квадрат»
Alignment	Установить значение taLefttJustify (Выравнивание по левому краю)
Events	OnClick	TrackBar2.Position:= TrackBar1.Position;

4. Сохраните проект, запустите и протестируйте его.