Практичесl= 2;ая работа № 11

Прак= 090;ическая работа № 11

«Пры= 075;ающая кнопка»

Цель работы - созk= 6;ать программу-и = 75;ру, выполняющуn= 2; следующие действия:

1.&n= bsp; После запуска про = 75;раммы в окне изображаетl= 9;я беспорядочl= 5;о прыгающая кнопка.

2.&n= bsp; Необход&#= 1080;мо успеть щелкнуть по ней.

3.&n= bsp; Кнопка перепрыгивk= 2;ет из одного места в друг= 086;е по сигналу, полученномm= 1; от таймера.

4.&n= bsp; Для выхода из программы необходимо щелкнуть мышью на закрывающеl= 1; кнопке в строке заго = 83;овка.

Опис= 072;ние плана разработки программы<= /b>

1.&n= bsp;     Открыть новый проек = 90;.

2.&n= bsp;     Размес= 090;ить на форме экземпляры компонентоk= 4;: командная кнопка Button, таймер Timer.

3.&n= bsp;     Выполни&#= 1090;ь следующие действия:

Таблица 11.

Выделе = 85;ный объект

Вкладк = 72; окна

Object Inspector<= /o:p>

Имя свойства/

имя события

Действ = 80;е

Form1

Properties

Caption

Установ= 082;а имени формы «Прыгающая кнопка»

ClientWidth (Внутре = 85;няя ширина)

Присвои= 090;ь значение 300

ClientHeigth (Внутрення&#= 1103; высота)

Присвои= 090;ь значение 200

BorderStyle <= /span>(тип границы)

Выбрать значение bsS= ingle (то= 085;кая)

Events

OnCreate

Randomize;

Button1

(Вкладк = 72; St= andard)

<= /o:p>

Properties

Caption

Ввести надпись «Нажми меня»

TabStop

Присвои= 090;ь значение Fals= e. Это свойство разрешает выбрать данный элем&#= 1077;нт управления клавишей Tab<= /span>. Клавиатуро= 081; пользовать= 089;я запрещаетс= 103;.

Visible

Присвои= 090;ь значение Fals= e. Сначала кнопка невидима.

Height

Присвои= 090;ь значение 30

Width

Присвои= 090;ь значение 80

Events

OnClick

Button1.Caption :=3D ‘Готово’;

Button1.Enabled :=3D False;

Timer1.Enabled :=3D False;

Button2

(Вкладк = 72; St= andard)

<= /o:p>

Properties

Caption

Ввести надпись «Выход»

Default (по умолчанию)

Выбрать значение True

Left (слева)

Присвои= 090;ь значение 110

Top (сверху)

Присвои= 090;ь значение 160

Width (ширина)

Присвои= 090;ь значение 80

Height (высота)

Присвои= 090;ь значение 30

Events

OnClick

Close;

Timer1
(Вкл = 72;дка Sy= stem)

Properties

Interval (интервал)=

Присвои= 090;ь значение 500 (промежуток времени изм&#= 1077;ряется в миллисекун= 076;ах)

Events

Timer

var i: Integer;

begin

i:=3DRandom(9);

Button1.Visible :=3D True;<= /o:p>

Button1.Top :=3D 10 + 50 * ( i d= iv 3);

Button1.Left :=3D 10 + 100 * ( i= mod 3);

end;

4.&n= bsp;     Сохрани&#= 1090;е проект, запустите и протестируl= 1;те его.

Листинг подпрогра&= #1084;мы

procedure TForm1.Button2Click (Sender: TObject);

begin

<= span style=3D'mso-spacerun:yes'>   Close;

end;

p= rocedure TForm1.Timer1Timer (Sender: TObject);

var i: Integer;

begin

<= span style=3D'mso-spacerun:yes'> i:=3DRandom(9);<= /p>
<= span style=3D'mso-spacerun:yes'> Button1.Visible :=3D True;

<= span style=3D'mso-spacerun:yes'> Button1.Top :=3D 10 + 50 * ( i div= 3);

<= span style=3D'mso-spacerun:yes'> Button1.Left :=3D 10 + 100 * ( i m= od 3);

end;

procedure TForm1.Button1Click (Sender: TObject);

begin

<= span style=3D'mso-spacerun:yes'>   Button1.Caption :=3D ‘= Готово’;
<= span style=3D'mso-spacerun:yes'>   Button1.Enabled :=3D False;<= o:p>

<= span style=3D'mso-spacerun:yes'>   Timer1.Enabled :=3D False; <= o:p>

end;

procedure TForm1.FormCreate (Sender: TObject);

begin

   <= span lang=3DEN-US style=3D'mso-ansi-language:EN-US'>Randomize;

end;

Зада= 085;ие для самостоятеl= 3;ьного выполнения =

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

Создайте две кнопки: Мед = 83;еннее и Б = 99;стрее. Щелчок на одной из ниm= 3; будет увеличиват= ь или уменьшать значение свойства Timer1.Interval на 100 миллисекун= д.

Выделе = 85;ный объект	Вкладк = 72; окна Object Inspector<= /o:p>	Имя свойства/ имя события	Действ = 80;е
Form1	Properties	Caption	Установ= 082;а имени формы «Прыгающая кнопка»
ClientWidth (Внутре = 85;няя ширина)	Присвои= 090;ь значение 300
ClientHeigth (Внутрення&#= 1103; высота)	Присвои= 090;ь значение 200
BorderStyle <= /span>(тип границы)	Выбрать значение bsS= ingle (то= 085;кая)
Events	OnCreate	Randomize;
Button1 (Вкладк = 72; St= andard) <= /o:p>	Properties	Caption	Ввести надпись «Нажми меня»
TabStop	Присвои= 090;ь значение Fals= e. Это свойство разрешает выбрать данный элем&#= 1077;нт управления клавишей Tab<= /span>. Клавиатуро= 081; пользовать= 089;я запрещаетс= 103;.
Visible	Присвои= 090;ь значение Fals= e. Сначала кнопка невидима.
Height	Присвои= 090;ь значение 30
Width	Присвои= 090;ь значение 80
Events	OnClick	Button1.Caption :=3D ‘Готово’; Button1.Enabled :=3D False; Timer1.Enabled :=3D False;
Button2 (Вкладк = 72; St= andard) <= /o:p>	Properties	Caption	Ввести надпись «Выход»
Default (по умолчанию)	Выбрать значение True
Left (слева)	Присвои= 090;ь значение 110
Top (сверху)	Присвои= 090;ь значение 160
Width (ширина)	Присвои= 090;ь значение 80
Height (высота)	Присвои= 090;ь значение 30
Events	OnClick	Close;
Timer1 (Вкл = 72;дка Sy= stem)	Properties	Interval (интервал)=	Присвои= 090;ь значение 500 (промежуток времени изм&#= 1077;ряется в миллисекун= 076;ах)
Events	Timer	var i: Integer; begin i:=3DRandom(9); Button1.Visible :=3D True;<= /o:p> Button1.Top :=3D 10 + 50 * ( i d= iv 3); Button1.Left :=3D 10 + 100 * ( i= mod 3); end;