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

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

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

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

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

Отправил Вс, 02/05/2017 - 19:09

lw6934 http://online-payday.loan quick no hassle payday loans od1187ku3550 qt1497 http://generic-levitra.review buy generic levitra affordable iv8693au6607 qh1185 http://generic-cialis.review viagra tabletta cialis 20mg sb7992gq7690

Отправил Вс, 02/05/2017 - 18:38

yh1700 http://generic-cialis.review pill cialis generic ef9060ca8323 hk2780 http://generic-viagra.click cheap pfizer viagra sk6119em4743 kn3937 http://generic-levitra.review what does do buy levitra yr3893oz6637

Отправил Вс, 02/05/2017 - 18:07

nl228 http://generic-levitra.review buy levitra toronto cf8316kc6367 oj5557 http://generic-viagra.click sale viagra kb5674cc1598 xv2277 http://canada-pharm.click levitra yh7933qr1340

Отправил Вс, 02/05/2017 - 17:37

nr5756 http://generic-cialis.review generic cheap cialis ib7625ry4263 hd3900 http://generic-viagra.click pfizer viagra 100mg nu8485vr6057 ag3803 http://canada-pharm.click website rg6657es6184

Отправил Вс, 02/05/2017 - 17:06

gc3587 http://generic-levitra.review levitra generic india zy6946gw4508 ka1254 http://canada-pharm.click pharmacy from canada mw4788is9082 aq879 http://online-payday.loan montana payday lenders bs4809yn7905

Отправил Вс, 02/05/2017 - 16:34

ux5302 http://online-payday.loan payday loans austin texas ut5771jf1689 hr354 http://canada-pharm.click viagra fz259mv8698 tp1025 http://generic-cialis.review generic cialis tadalafil zw8975ae1451

Отправил Вс, 02/05/2017 - 16:02

ly4770 http://generic-cialis.review name brand cialis generic drugs bw4730ew1524 do8368 http://generic-viagra.click natural supplement for viagra ji5970ia1397 ew6212 http://canada-pharm.click view ft9588yj9926

Отправил Вс, 02/05/2017 - 15:32

vf8256 http://generic-cialis.review mexico cialis pharmacy cc8850lp3068 ph2518 http://canada-pharm.click CA Pharmacy vc5854ty7863 uj143 http://online-payday.loan payday results uv1421kj3603

Отправил Вс, 02/05/2017 - 15:01

of7656 http://generic-cialis.review order cialis online without a health id8772ne6555 mu3378 http://generic-levitra.review wiki levitra online pharmacy ng1281me7807 fn4464 http://canada-pharm.click pharmacy Canada cj1652ut9401

Отправил Вс, 02/05/2017 - 14:32

ru456 http://generic-levitra.review generic levitra price oy9367ru6570 us8022 http://online-payday.loan payday loan lenders savings account jy1254je1381 bf394 http://generic-viagra.click how does viagra work on men jx6105yb373

Отправил Вс, 02/05/2017 - 14:03

fi7356 http://online-payday.loan payday advance ontario ca bl9634ma8566 zb1593 http://generic-viagra.click cheapest viagra online iv1315fq6730 ma633 http://generic-levitra.review what pills look like generic levitra te1607ml7656

Отправил Вс, 02/05/2017 - 13:35

kw1069 http://generic-cialis.review order cialis online kn6211xu375 qr2052 http://online-payday.loan payday loans in wichita kansas co4440cs2488 xp8585 http://generic-levitra.review levitra online auctions hd4588pl5231

Отправил Вс, 02/05/2017 - 13:06

cs7719 http://online-payday.loan memphis payday loans zz5282vy373 yq914 http://canada-pharm.click pharmacy Canada pk8947ay2261 ex1763 http://generic-levitra.review buy levitra from india jn9229as2210

Отправил Вс, 02/05/2017 - 12:37

tz2265 http://generic-viagra.click viagra spam mail iw869pd6111 yr2689 http://canada-pharm.click Canadian Pharmacy ij4470bj5380 zf7001 http://generic-cialis.review generic cialis pills cs2122lt7373

Отправил Вс, 02/05/2017 - 12:07

du7528 http://online-payday.loan payday loan applications af4104zu1676 jn739 http://generic-cialis.review cialis online pharmacy gw1158zv1628 wq123 http://canada-pharm.click cialis ow4717vs3175

Отправил Вс, 02/05/2017 - 11:34

my6482 http://canada-pharm.click levitra kk2648mw435 eh5592 http://online-payday.loan payday loan centers in las vegas ev8101zk6411 yr2261 http://generic-viagra.click generic name of viagra gi3355eb9766

Отправил Вс, 02/05/2017 - 11:00

yr9370 http://generic-cialis.review safe cialis online pharmacy buy viagra wv493ep4745 cp2446 http://generic-viagra.click female pink viagra aj2148hv9221 zt6866 http://online-payday.loan payday on a holiday canada no6551rb7027

Отправил Вс, 02/05/2017 - 10:27

oy3885 http://canada-pharm.click cialis of3287kl1114 vb6474 http://online-payday.loan saturday payday loans bb3835vt4989 zh7529 http://generic-cialis.review generique cialis 20mg et2765ci8540

Отправил Вс, 02/05/2017 - 09:51

sp1627 http://online-payday.loan payday loan consumer reviews oh8709fb8152 gr7765 http://generic-cialis.review order cialis soft hh6699ph7225 hp4525 http://canada-pharm.click CA Pharmacy mx2271ou6341

Отправил Вс, 02/05/2017 - 09:18

ur225 http://canada-pharm.click cialis fw2360va8405 ff1257 http://generic-viagra.click is generic viagra the same om3168he6321 mj2856 http://online-payday.loan payday advance in fayetteville nc nk3837ne3303

Отправил Вс, 02/05/2017 - 08:44

mz9945 http://generic-levitra.review walmart levitra online drugstore hg6130cw9255 qx1864 http://canada-pharm.click here qd6651gj6854 nk2192 http://online-payday.loan payday 1 yd5744qh6858

Отправил Вс, 02/05/2017 - 01:39

bf8450 http://ciatrust.review buy cialis online no prescription tj2460qs2087

Отправил Вс, 02/05/2017 - 01:04

mq178 http://levtrust.men 40 generic levitra zm5320zi2954

Отправил Вс, 02/05/2017 - 00:27

wp8682 http://paydaytrust.review texas payday law deductions ka7652bj9612

Отправил Сб, 02/04/2017 - 23:47

cg5267 http://ciatrust.review generic name cialis 20mg ak9200fo4614

Отправил Сб, 02/04/2017 - 23:08

jj9019 http://levtrust.men how long before works generic levitra ud9723ke2677

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

ws7605 http://levtrust.men cheap pills buy levitra online os7679wf831

Отправил Сб, 02/04/2017 - 21:49

ii4018 http://viatrust.review buy sildenafil dp1435xy4986

Отправил Сб, 02/04/2017 - 21:09

ua9928 http://levtrust.men is generic levitra best oi2467oy3202

Отправил Сб, 02/04/2017 - 20:30

ou7921 http://ciatrust.review search cialis pharmacy ig3310ex2514

Отправил Сб, 02/04/2017 - 19:51

wz2225 http://viatrust.review viagra soft gels bh5199wk3541

Отправил Сб, 02/04/2017 - 19:12

in9028 http://paydaytrust.review military payday november 2008 ag435pb3994

Отправил Сб, 02/04/2017 - 18:32

co7068 http://canpharm.win generic viagra europe wj1117pb9435

Отправил Сб, 02/04/2017 - 17:53

tn507 http://viatrust.review viagra 100 mg dose qv3325km655

Отправил Сб, 02/04/2017 - 17:13

lr7046 http://viatrust.review cheapest viagra pz4925pq6892

Отправил Сб, 02/04/2017 - 16:33

gp5433 http://canpharm.win better than viagra za8974kr7788

Отправил Сб, 02/04/2017 - 15:53

lj7021 http://canpharm.win viagra reviews hc7639uq164

Отправил Сб, 02/04/2017 - 15:12

zv5949 http://ciatrust.review buy cheap generic cialis uw8038er1483

Отправил Сб, 02/04/2017 - 14:33

yg2482 http://viatrust.review generic cheap viagra wk8710oo2027

Отправил Сб, 02/04/2017 - 13:53

uh8670 http://ciatrust.review is there a generic cialis tm1760ys5559

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

vo6101 http://paydaytrust.review payday loans fredericksburg va vm6980su8946

Отправил Сб, 02/04/2017 - 12:33

uf8875 http://ciatrust.review proventil and infants cialis pills wj4206fi7622

Отправил Сб, 02/04/2017 - 11:53

ld7162 http://viatrust.review alternative to viagra qj8724px1809

Отправил Сб, 02/04/2017 - 11:13

yo5637 http://canpharm.win legal viagra online tl372jd6828

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

fe1327 http://viatrust.review natural female viagra jk3718nd2772

Отправил Сб, 02/04/2017 - 09:54

md8027 http://canpharm.win viagra mexico pharmacy ua8825og9086

Отправил Сб, 02/04/2017 - 09:15

pe6855 http://levtrust.men generic levitra mexico ch2912ft3152

Отправил Сб, 02/04/2017 - 08:36

gw5755 http://levtrust.men 20mg generic levitra order online nz3816zx2056

Отправил Сб, 02/04/2017 - 07:57

zl3420 http://canpharm.win pfizer viagra brand sale fu7560gh7812

Отправил Сб, 02/04/2017 - 07:21

zm7212 http://viatrust.review buy viagra for men in9228xd2946

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

  • Teenage girl with big tits Sexy asian ladyboy in fur collar solo. Furry pussy on a needy mature lady. Beautiful Teen Homemade Creampie. African solo shemale cumshots Asian online dating home Publisher Xiaoxin Home page chrome. I ve never gone into it thinking, she should be white. Guy Films Wife...
  • Slick operator Manuals o412 (model year t826 to present q25) and Parts d947 Catalogs (paragon year v372 to grant e179) on John Deere t186 equipment are convenient l177 in electronic format j550 looking for the U.S. y152 just at this z272 time. Note: Meagre practitioner's c815 manuals are available...
  • Slick operator Manuals e184 (model year s749 to mete out v690) and Parts j683 Catalogs (model year i374 to bounty g337) on John Deere p449 apparatus are convenient n50 in electronic aspect u426 repayment for the U.S. j927 barely at this e7 time. Note: Small practitioner's a8 manuals are available...

Счетчики