Падение с ускорением

Падение с ускорением

Программа демонстрирует процесс падения мячика с ускорением.

Расположите на форме два компонента Shape1 и Shape2: TShape с вкладки Additional и компонент Timer1: TTimer с вкладки System, а также Button1: TButton

В инспекторе объектов (Object Inspector) выставьте начальные значения для каждого компонента

Shape2
 Left: 88 (отступ слева)
 Top: 8  (отступ сверху)
 Width: 17  (ширина шарика)
 Height: 17  (высота шарика)
 Shape: stCircle;  (вид фигуры - круг)

Shape1
 Left: 65 (отступ слева)
 Top: 24  (отступ сверху)
 Width: 63  (ширина доски)
 Height: 9  (высота доски)
 Shape: stRectangle;  (вид фигуры - прямоугольник)

Timer1
 Enabled: False;
 Interval: 100 (скорость вызова процедуры движения 0.1 c)

Теперь в инспекторе объектов переключитесь на вкладку Events и для компонента Timer1 задайте название процедуры OnTimer (лучше это сделать автоматически кликнув два раза в пустом поле)

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Shape2.Top := Shape2.Top + G; // приращение движения
  G := G + 1; // приращение ускорения
  // проверка на достижения нижней границы формы
  if Shape2.Top > Form1.ClientHeight - 2 * Shape2.Height then
      Timer1.Enabled := false;
end;

Аналогично выберите кнопку Button1 и создайте процедуру на событие OnClick

procedure TForm1.Button1Click(Sender: TObject);
begin
  Shape1.Visible := false;
  Timer1.Enabled := true;
  Button1.Enabled := false;
  Shape2.Top := 8;
  G := 1;
end;

В окне кода не забыть в разделе Var прописать

var
  Form1: TForm1;
  G : Integer;

Запустите программу. Run.

СКАЧАТЬ ПРОГРАММУРазмер
Демо-урок: Падение с ускорением (360)912 кб

Последние комментарии

  • РАССЫЛКА ПО ФОРМАМ ОБРАТНОЙ СВЯЗИ В 1 200 000 ФОРМ РОССИИ И СНГ - 3000 РУБЛЕЙ РАССЫЛКА ПО ФОРМАМ ОБРАТНОЙ СВЯЗИ ЛЮБОЙ СТРАНЫ - 3000 РУБЛЕЙ ЗА 1 МЛН Это рассылка по формам с сайтов , которые заполняются нашей программой. письмо с вашим коммерческим предложением приходит на контактный E-mail...
  • http://sporteco.ru/product/gruzoperevozki-v-voskresensk-iz-moskvy http://realty21century.ru/index.php/statji/151-restavratsiya-chugunnoj-vanny-emalyu http://www.burx.ru/category/ctati http://eur-style.ru/product/krovat-iz-massiva-v-interere
  • casvulk56 casvulk71 casvulk29 casvulk27 casvulk50 casinoqlo casinovul87 casinovul52 casinovul64 casinovul47 casinovul43

Счетчики