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

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

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

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

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

Отправил Вс, 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

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

lj7555 http://paydaytrust.review cash advance until payday vx5544jr6299

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

  • Sorry, if not around the topic. I had a bit embarrassment. I randomly lost my essay and I urgently have to have to write a new one. I can not write with my own strength, so I wanted to apply for the essay writing service for revenuel. Located a few web content about this, but I don't know if you...
  • uknk chaturbate http://cumpee.win/post/lostinside-chaturbate-record Let's see what I can find in my nose. I put my pinkie in and I start digging as far as I can.Video is HD 1080pVideo contains: NOSE FETISH leraimholly webcam http://www.litecum.win/post/nikkicarr72-chaturbate-record-mp4 An...
  • pharmacy without dr prescriptions canadian pharmacy online pharmacy without a prescription generic viagra most reliable canadian pharmacies what is metoprolol used for

Счетчики