Двигающаяся кнопка

Автор:

На основе 6 практической, нами были рассмотрены задачи по передвижению кнопки. В задаче используются два компонента (кнопка и таймер).

1. подгруппа — случайное передвижение с отскоком от края формы

В разделе глобальных переменных добавили 2-е переменные, которые будут задавать шаг сдвига кнопки

var

Form1: TForm1;

l,t:integer;

Показать
Свернуть

Нажатие кнопки позволяет включить\отключить таймер через свойство Enabled, предопределение переменных.

procedure TForm1.Button1Click(Sender: TObject);

begin

timer1.Enabled:=not timer1.Enabled ;

t:=5;

l:=5;

end;

Показать
Свернуть

Процедура таймера перемещает кнопку на расстояние переменных.

В процедуре используются 4-ре условия, обрабатывающие соприкосновение с краями формы.

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if button1.Left<5 then l:=5;

if button1.Top<5 then t:=5;

if button1.left>form1.Width-button1.Width-5 then l:=-5;

if button1.top>form1.height-button1.height-5 then t:=-5;

button1.Left:=button1.Left+l;

button1.top:=button1.top+t;

end;

Показать
Свернуть

Задание:
Перестроить алгоритм, сократив количество условий до двух.
Используя процедуру Random() сделать переменные сдвига случайными при каждом касании края формы.

2. подгруппа — передвижение кнопки параллельно краям формы по кругу

Используем те же переменные.

Нажатие кнопки отличается, предопределением переменных.

procedure TForm1.Button1Click(Sender: TObject);

begin

timer1.Enabled:=not timer1.Enabled ;

t:=-5;

l:=0;

end;

Показать
Свернуть

Процедура таймера перемещает кнопку на расстояние переменных.

В процедуре используются 4-ре условия, обрабатывающие положение кнопки в 4-рех углах.

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if button1.top<5 then begin

t:=0;

l:=5;

end;

…

button1.Left:=button1.Left+l;

button1.top:=button1.top+t;

end;

Показать
Свернуть

Задание: Дописать три отсутствующих  условия для выполнения задания.

Внимание! За написание такой программы бонус.

Всего комментариев: 0

Оставить комментарий