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

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

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

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

Отправил Пнд, 01/30/2017 - 07:08

gi1881cp2961 viagra viagra substitute ch8676

Отправил Пнд, 01/30/2017 - 06:49

zl3480xs4351 Zithromax Side Effects active ingredient zithromax online kt9186

Отправил Пнд, 01/30/2017 - 06:31

md6883 http://zithromax.party dose chlamydia cheap zithromax fp7074

Отправил Пнд, 01/30/2017 - 06:12

zm4317 http://payday-loan-online.review legal payday loan companies la8387ra7988 cv470 http://zithromax.party sinus buy zithromax dn8763 ke8606 http://viagra-online.men buy discount viagra bf7626ai981

Отправил Пнд, 01/30/2017 - 05:54

gx821ea7976 Zithromax 500 MG Dosage oral suspension sale zithromax bs8628

Отправил Пнд, 01/30/2017 - 05:35

dp1825 http://viagra-online.men order viagra professional ub4560de8158 rs898 http://cialis-online.review canada generic cialis prices do9954cx8322 ln2005 http://zithromax.party co azithromycin and alcohol zithromax online pi5470

Отправил Пнд, 01/30/2017 - 05:17

wj8534 http://viagra-online.men generic viagra in uk ez1403tn8612 bs6297 http://payday-loan-online.review payday advance jacksonville ti1096pr9602 ge1835 http://zithromax.party cheap zithromax from mexico ko6865

Отправил Пнд, 01/30/2017 - 04:58

br2616 http://payday-loan-online.review cash 911 payday kc5702vk2470

Отправил Пнд, 01/30/2017 - 04:39

ny6954 http://cialis-online.review buy soft cialis bm3528xm8626

Отправил Пнд, 01/30/2017 - 04:21

yr854 http://payday-loan-online.review sagamore payday loans kx4708hg4575

Отправил Пнд, 01/30/2017 - 04:16

os6160 http://viagra-online.men viagra overnight shipping uw9779ul1801 viagra online female pink viagra reviews mb7674 buy viagra online women and viagra tn1466

Отправил Пнд, 01/30/2017 - 04:02

bg933 http://payday-loan-online.review payday lending sc bw1330lc2790

Отправил Пнд, 01/30/2017 - 03:39

jr3679 http://canadian-pharmacy-online.review CA Pharmacy of2593hv8086 pt972 http://cialis-online.review generic cialis online pharmacy va2256op8333 vy4892 http://zithromax.party sandoz azithromycin generic zu9178

Отправил Пнд, 01/30/2017 - 03:21

ya9486 http://zithromax.party pka azithromycin generic zithromax fq1515 yw7157 http://payday-loan-online.review pounds to payday fl5795xm1607 ka1510 http://viagra-online.men viagra herbal substitute fm8727le3654

Отправил Пнд, 01/30/2017 - 03:02

vx7474sh4570 zithromax online dogs cheap zithromax qi3643

Отправил Пнд, 01/30/2017 - 02:44

zi6742ez2564 pharmacy Canada canada pharmacy an6673

Отправил Пнд, 01/30/2017 - 02:25

te3742 http://viagra-online.men viagra sildenafil 50mg iy7116fb8760

Отправил Пнд, 01/30/2017 - 02:07

br9569av4436 payday loans ace payday advances es2073

Отправил Пнд, 01/30/2017 - 01:48

te1865 http://canadian-pharmacy-online.review Canadian Pharmacy tn7280et5688 dt9438 http://cialis-online.review low blood pressure canada buy generic cialis da1235zj4310 tv3150 http://levitra-online.men levitra online cheap gr749lw8317

Отправил Пнд, 01/30/2017 - 01:29

jm708 http://zithromax.party allergy cheap zithromax cq1664 sy2300 http://canadian-pharmacy-online.review canadian pharmacy online rk9104tx877 gx4746 http://cialis-online.review generic cheap cialis kl3574qq3317

Отправил Пнд, 01/30/2017 - 01:11

qx7323 http://cialis-online.review cialis soft tabs 20mg li6475cs7538

Отправил Пнд, 01/30/2017 - 00:52

fb1926 http://viagra-online.men what does viagra do mx7987ti6210

Отправил Пнд, 01/30/2017 - 00:34

yn3226 http://canadian-pharmacy-online.review canadian pharmacy viagra um8339wq1881 dp1631 http://zithromax.party azithromycin buy without prescription ti3193 vj4005 http://payday-loan-online.review no fax direct lender payday loan lr1048lf4184

Отправил Пнд, 01/30/2017 - 00:22

yi7709 http://cialis-online.review buy real cialis online canada xd9817lo5515 cialis online generic cialis free shipping pz3015 Cialis Coupon 2017 canadian cialis online tu9273

Отправил Пнд, 01/30/2017 - 00:15

so2955ik4668 Cialis Official Website online cialis order wx7554

Отправил Вс, 01/29/2017 - 23:58

nx9039gv4753 buy Zithromax zithromax canada drugs bg3660

Отправил Вс, 01/29/2017 - 23:38

ye5431 http://zithromax.party price of azithromycin zithromax online ew5969

Отправил Вс, 01/29/2017 - 23:20

ak1558 http://payday-loan-online.review how to get a payday loan without a bank account cy7261jm8230

Отправил Вс, 01/29/2017 - 23:01

lt2889 http://viagra-online.men cheapest viagra substitute sildenafil wk6720ar2189 tg9030 http://cialis-online.review cialis tadalafil tablets mu1837ir2797 ps5275 http://zithromax.party sinus zithromax without prescription it7124

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

vp9363ei2541 Viagra Coupons discount generic viagra ey8710

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

mx5701pj4929 How to Take Levitra for Best Results canada generic levitra td3950

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

dk5496qj5422 levitra uk buy levitra online ll8397

Отправил Вс, 01/29/2017 - 21:48

bq9920 http://cialis-online.review no prescription brand cialis online yi5461da9590

Отправил Вс, 01/29/2017 - 21:29

ae4253 http://levitra-online.men is generic levitra real rd6218bs2353 xi9067 http://canadian-pharmacy-online.review viagra gm8182lx1172 ws9009 http://zithromax.party buy zithromax side effects vs777

Отправил Вс, 01/29/2017 - 21:10

st5719 http://zithromax.party online azithromycin 250mg ir6316

Отправил Вс, 01/29/2017 - 20:52

fy1420 http://levitra-online.men buy generic levitra online ei9598ac7378

Отправил Вс, 01/29/2017 - 20:34

wm7127 http://viagra-online.men can you take viagra with high blood pressure ba8462wh2112

Отправил Вс, 01/29/2017 - 20:23

Hello, good sites: http://canadian-pharmacy-online.review ; http://zithromax.party ; http://payday-loan-online.review ; http://levitra-online.men ; http://cialis-online.review ; http://viagra-online.men

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

ue8343 http://payday-loan-online.review payday loan in san diego si7259mu8202

Отправил Вс, 01/29/2017 - 20:10

wb9880 http://cialis-online.review mail order cialis ue2836ir2435 Cialis 20 MG Coupons online scam cialis 20mg ch2965 cialis pills forum cialis generic purchase ai7352

Отправил Вс, 01/29/2017 - 19:56

ya7649 http://payday-loan-online.review payday loans el cajon ca my892va1560

Отправил Вс, 01/29/2017 - 19:37

wp5484 http://zithromax.party zithromax drug kingdom rk5870 rt9429 http://cialis-online.review cialis pills online bo8648zi8730 ko1929 http://viagra-online.men herbal viagra australia la1888lp9149

Отправил Вс, 01/29/2017 - 19:17

mr5970mw5957 cialis Canadian Pharmacy je5014

Отправил Вс, 01/29/2017 - 18:57

yh9158 http://canadian-pharmacy-online.review canadian pharmacy viagra eq753rw2647

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

pp3891 http://canadian-pharmacy-online.review canadian pharmacy viagra ml2610tj7023

Отправил Вс, 01/29/2017 - 18:19

zw7531cu8528 Zithromax 500 MG buy zithromax 100mg su6942

Отправил Вс, 01/29/2017 - 17:59

hn4183 http://zithromax.party inactive ingredients mg azithromycin tg6025 on426 http://levitra-online.men 20mg generic levitra order online le8444na9991 te8366 http://payday-loan-online.review payday advance in utah es4551hb9312

Отправил Вс, 01/29/2017 - 17:41

cx6840 http://payday-loan-online.review payday loan terms cg5549na5287

Отправил Вс, 01/29/2017 - 17:21

fp6994ju7731 cialis viagra ow9697

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

dk6610 http://viagra-online.men generic viagra soft tab jm336gm659

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

  • http://www.scoop.it/t/demetrius1984politics/p/4085390895/2017/09/23/download-rollercoaster-tycoon-2-for-mac-updated-hniqebshxe https://bitbucket.org/snippets/santowiebe1998u5/7KpjGg/ use a key finder. https://bitbucket.org/snippets/ottominick1999s9/pjRa7j/ https://storify.com/...
  • https://bitbucket.org/snippets/alexandermiguel1963s7/BEAGbk/ https://storify.com/jamesszabo971i3/download-german-charts-top-100-free-download-pnapa View full description. https://bitbucket.org/snippets/sidkorth1972u3/z68zrB/ https://storify.com/jonaliteld197z6/stereochemistry-of-organic-compounds-...
  • https://storify.com/ruselkeler19880/download-hollywood-movies-in-300mb-free-download-h https://bitbucket.org/snippets/geraldmaynard1982g9/XxMeGM/ Memory: 512MB RAM Hard Drive: At least 150MB free space. https://bitbucket.org/snippets/ottominick1999s9/LEAXbd/ http://www.scoop.it/t/carroll1977monitor...

Счетчики