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

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

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

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

СКАЧАТЬ ПРОГРАММУРазмер
Демо-урок: Падение с ускорением (349)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

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

  • His 1st gay sex martin lebeau Vintage tide detergent logo Cum on her face adana Free sample troat fucking porn Ghost in a tiny bikini clips Safe online teen dating Motels gay provincetown ma Sora aoi with student Nude yoga in texas Sexy women and guns Mi hermana me polla tocandose me lo folla Pics...
  • viagra 20 mg cost you cannot post new topics in this forum [url=http://viagrawithoutdoctorpresc.net]viagra without a doctor prescription [/url] compare viagra levitra viagra viagra without doctor prescription - viagra lavitra differences viagra 20mg dosage users browsing this forum
  • как называется рыжая панда >>>>> https://youtu.be/sUHmEL93qhQ

Счетчики