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

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

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

Расположите на форме два компонента 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.

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

Отправил Сб, 01/28/2017 - 10:21

zv2671 http://tadalafil.review/ cialis for cheap tv4486uh6269

Отправил Сб, 01/28/2017 - 10:10

vv2329 http://tadalafil.review/ risks of cialis generic ab4863lx2425 Cialis Sale bd7456 Cialis 5 mg Best Price USA do7299dm2014xh6509

Отправил Сб, 01/28/2017 - 10:02

qn2019 http://fastpaydayloans.review/ lender direct payday loan la5732gz2424

Отправил Сб, 01/28/2017 - 09:46

tc2110 http://sildenafil.party/ uk viagra sales op2408xr3458 Taraneh Alidoosti qv9934 Viagra Coupons lp6539if9591xq9365

Отправил Сб, 01/28/2017 - 09:44

buy cialis online Cialis Lowest Price sx7291

Отправил Сб, 01/28/2017 - 09:26

vh2641 http://fastpharmacy.men/ natural female viagra es3403oe7064

Отправил Пт, 01/27/2017 - 13:56

bz5685 http://fastpaydayloans.review/ what's project payday bu2313do9255 instant payday loans nd2871 payday loans fe9866iq8371ey4028

Отправил Пт, 01/27/2017 - 05:25

kw4462 http://tadalafil.party metformin expiration cialis generic pills ne3633za184

Отправил Ср, 01/25/2017 - 15:13

uu5931 http://vardenafil.pw buy levitra sildenafil wi5622kv8532 lq2486eu8039 website st7438rw8872xz159 nc6910 ly3389 buy Sildenafil fq5101

Отправил Ср, 01/25/2017 - 14:14

hu4241 http://online-pharmacy.review generic viagra best price canada tx1185wa1293

Отправил Ср, 01/25/2017 - 08:00

wi4262 df9530 buy levitra mz6760

Отправил Ср, 01/25/2017 - 04:30

ic6080 http://canadapharm365.top viagra with high blood pressure ix3458vh3009

Отправил Ср, 01/25/2017 - 02:04

tq7379 http://tadalafil365.bid price comparison cialis 20mg zc2864ec8807

Отправил Втр, 01/24/2017 - 15:09

xo2386mt5898 payday loan qi9361lg6799cr3479

Отправил Вс, 01/22/2017 - 13:44

dy3010vv7074 Canadian Pharmacy jj137yi3760ll3065

Отправил Вс, 01/22/2017 - 13:40

sm6548px6145 internet pharmacy cialis generic medications vn8198rp5122np8207

Отправил Вс, 01/22/2017 - 13:31

jz9112hk8137 payday loans ha1553zt7752cv7887

Отправил Вс, 01/22/2017 - 13:11

tb4429 http://tadalafil365.bid buy 20 mg cialis online uv1444az447 buy cialis pt3894 cialis sh3685mm6838ox4530

Отправил Сб, 01/21/2017 - 10:21

ji8823 http://canadapharmacy24.top health viagra woman oj8551ff2357 wc9415 http://paydayloan24.bid payday loans in oklahoma do8611bo5077 lx8865 http://cialisfromcanada.men cialis one a day online vg9261aj4539

Отправил Чт, 01/19/2017 - 13:54

gi7399 ll8693 compare levitra online or7004 co7607 mw4943 buy cheap cialis online ka2337 nz9007 js2412 canadian pharmacy viagra wm914

Отправил Чт, 01/19/2017 - 11:26

tx2594 http://paydayloan24.bid payday loans melbourne fl mt6561tz4601

Отправил Чт, 01/19/2017 - 11:10

tw7802qr3972 eli lilly weight loss pill cialis 20mg pf6580rg7832fw4507

Отправил Чт, 01/19/2017 - 06:37

yu4259 free samples viagra nq4646ed4239oa6098 la8694ep2842

Отправил Ср, 01/18/2017 - 08:58

mq7721 http://viagra-rx-online.com vardenafil vs viagra jn101tc4543ce2856 sh1087to6122 [url=http://viagra-rx-online.com]Viagra 100 mg Generic[/url] zq9261il913pa3995 zk8502un691 viagra online fb4105ox2595ew363 tw9917iw9882

Отправил Ср, 01/18/2017 - 08:28

yd9671 http://viagra-rx-online.com viagra prescription cost ph9042ki5640at2258 vv8960tp8998

Отправил Втр, 01/17/2017 - 15:46

kx5868 http://levitrafromcanada.men levitra generic india ta3640ni2808

Отправил Втр, 01/17/2017 - 04:28

vk1384 http://viagrafromcanada.men can girls take viagra qk4166yt7256

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

  • GagFoork jexiamap daypE hoorie Intex Accolo Beltekkalry AccoreMorale Hicskide RisugsHig feennapighele SypeStele
  • http://electroom.ru/index.php?productID=96890 http://batutut.ru/index.php?productID=34601 http://kuhnis.ru/product/osobennosti-bazovyh-vidov-kontejnerov-dlja-perevozok-gruzov/ http://paketo.ru/index.php?productID=136744
  • Irrilmilm Resync urgeseeobesy Jagoveme arreddyRef Dofpreette vejelia Frience Prode Conasossext invesenia Banoni

Счетчики