Задание для самостоятельного выполнения

 

1. Измените игру так, чтобы скорость можно было настраивать в процессе игры.

2. Создайте две кнопки: Медленнее и Быстрее. Щелчок на одной из них будет увеличивать или уменьшать значение свойства Timer1.Interval на 100 миллисекунд.

 

 

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

 

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

 

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

 

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

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

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

 

Рис. 32.

 

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

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

 

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

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

 

TrackBar,рамка GroupBox,надпись Label,флажок CheckBox.

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

			Таблица 12.
Выделенный	Вкладка окна	Имя свойства/	Действие
объект	Object Inspector	имя события
Form1	Properties	Caption	Установка имени формы «Таблица
			умножения»
TrackBar1	Properties	Min (Минимум)	Присвоить значение 2
(Вкладка Win32)		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;

 

 

 

38

			Продолжение таблицы 12.
Выделенный	Вкладка окна	Имя свойства /	Действие
объект	Object Inspector	имя события
TrackBar2	Properties	Min (Минимум)	Присвоить значение 2
(Вкладка Win32)		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	Properties	Caption	Ввести подпись «Произведение»
(Вкладка Standard)
Label1	Properties	AutoSize	Установить значение False
(Вкладка Standard)		(Автоподбор)
		Caption	Присвоить значение 2
		Alignment	Установить значение taRightJustify
		(Выравнивание)	(Выравнивание по правому краю)
Label2	Properties	AutoSize	Установить значение False
(Вкладка Standard)		Caption	Присвоить значение 2
		Alignment	Установить значение taRightJustify
			(Выравнивание по правому краю)
Label3	Properties	AutoSize	Установить значение False
(Вкладка Standard)		Caption	Присвоить значение 4
		Alignment	Установить значение taRightJustify
			(Выравнивание по правому краю)
CheckBox1	Properties	Caption	Ввести подпись «Квадрат»
(Вкладка Standard)		Alignment	Установить значение taLefttJustify
			(Выравнивание по левому краю)
	Events	OnClick	TrackBar2.Position :=
			TrackBar1.Position;

 

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

 

Листинг подпрограммы

 

procedure TForm1.TrackBar1Change (Sender: TObject); begin

Label1.Caption := IntToStr(TrackBar1.Position);

Label3.Caption := IntToStr(TrackBar1.Position * TrackBar2.Position); if CheckBox1.Checked then TrackBar2.Position := TrackBar1.Position;

 

end;

 

procedure TForm1.TrackBar2Change (Sender: TObject);begin

Label2.Caption := IntToStr(TrackBar2.Position);

Label3.Caption := IntToStr(TrackBar1.Position * TrackBar2.Position); if CheckBox1.Checked then TrackBar2.Position := TrackBar1.Position;

 

end;

procedure TForm1.CheckBox1Click (Sender: TObject); begin

TrackBar2.Position := TrackBar1.Position;

end;

 

---

Дата добавления: 2019-09-13; просмотров: 317; Мы поможем в написании вашей работы!

Поделиться с друзьями:

---

---

Мы поможем в написании ваших работ!