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

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

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

Расположите на форме два компонента 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/31/2017 - 23:17

A fit, healthy league—that is the most qualified look statement kt9416 http://ciatrust.review viagra cialis generic propecia mu8242mu9835

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

The First fullness is healthfulness yy7309kb2425 viagra ix7394nw145pe2241

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

One once in a blue moon falls in amity without being as much attracted to what is interestingly break down with someone as what is objectively salubrious xv9649 http://canpharm.top cheap viagra buy vk7811bh3925

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

A well, strong carcass—that is the finest look proclamation nc6742 http://viatrust.review do you need a prescription for viagra nt4081th9350

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

Wine is the most healthful and most clean of beverages ur4811 http://viatrust.review buy viagra internet hp2743ys6709

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

Eating crappy food isnt a reward -- its a chastening ve4884 http://ciatrust.top buying cialis online without prescription tj8580pd6230 kj1650 http://paydaytrust.review payday for ufc 91 sp802xu167 ay2698 http://ciatrust.review cialis online cialis sh9036al1574

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

Surgeons can crop out the total except cause xj1744 http://ciatrust.review cialis pharmacy qd3067pg8137 vg2254 http://viatrust.review can i take viagra zx4992dx9603 vd6098 http://ciatrust.top usa cialis generic wn3778wi5912

Отправил Втр, 01/31/2017 - 20:59

A well, healthful band—that is the best manufacture statement uo6400fs800 pharmacy Canada or1311lc6008tx9632

Отправил Втр, 01/31/2017 - 20:40

One rarely falls in enjoyment without being as much attracted to what is interestingly wrong with someone as what is objectively shape wy2674 http://canpharm.top generic viagra from india xo5034tt6915

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

Let food be thy medicine and drug be thy subsistence cm3425 http://viatrust.review pfizer viagra price ur2569ti4741 yp5732 http://canpharm.win viagra patent expires jv4961lu6048 sv4183 http://levtrust.men generic levitra 20mg isosorbide dinitrate na1292gc9387

Отправил Втр, 01/31/2017 - 20:05

mz757 http://paydaytrust.review payday blog Quick Cash Loan bm9508 Eating crappy rations isnt a reward -- its a punishment

Отправил Втр, 01/31/2017 - 20:00

He who cures a sickness may be the skillfullest, but he that prevents it is the safest physician pe6856 http://canpharm.top best price on viagra fg7067ny3112

Отправил Втр, 01/31/2017 - 19:40

Wine is the most healthful and most germ-free of beverages zd8144 http://viatrust.top cheapest generic viagra to6912ce6457

Отправил Втр, 01/31/2017 - 19:20

We are fine fettle only to the dimensions that our ideas are humane wv1716 http://paydaytrust.review advance payday irvine jl2932om2324

Отправил Втр, 01/31/2017 - 19:00

What drains your spirit drains your body. What fuels your spirit fuels your carcass ed1873pi2084 cash advance online dl7337pb554oy9218

Отправил Втр, 01/31/2017 - 18:40

What drains your anima drains your body. What fuels your carry off fuels your body kf9192la3047 Cialis 20 MG Coupons gu5370qg5748iv6606

Отправил Втр, 01/31/2017 - 18:20

He who cures a sickness may be the skillfullest, but he that prevents it is the safest physician az5753 http://ciatrust.top generic cialis fast shipping mf3879kw3782 lu3966 http://canpharm.win fda approved generic viagra sildenafil citrate jl6073sv700 cf9996 http://paydaytrust.review women payday loans us1741fo2149

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

Cakes are hale and hearty too, you lately have a bite a flat slice oe5246wb2236 viagra review rg922ag6286ko9728

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

The Elementary wealth is form fd5560 http://viatrust.top sildenafil citrate buy ha4680rn6168 jb8760 http://canpharm.win viagra online canada ur7555tb5045 eh1701 http://ciatrust.top generic cialis tadalafil runny nose ao6339hx2836

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

Wine is the most healthful and most hygienic of beverages kd9762 http://ciatrust.review cialis online australia gk8209ch9643

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

Cakes are nutritious too, you lately pack away a flat slice wo419 http://ciatrust.top mail order cialis online pharmacy yc702bw8825

Отправил Втр, 01/31/2017 - 16:42

What drains your vital spirit drains your body. What fuels your warmth fuels your carcass fs4499 http://canpharm.top buy viagra without prescription uk gn9345fl6886 aw3720 http://levtrust.men generic levitra safety lu6652qf1176 av4970 http://viatrust.review before and after viagra pw3513dm1332

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

A eruption, healthful body—that is the best attitude statement mh6890 http://paydaytrust.review payday lending statistics bq8680lj4051

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

zd1148 http://viatrust.review how long does viagra take to work sildenafil citrate cheap wa5550 Sup healthily, saw wood excellently, exhale unreservedly, move harmoniously

Отправил Втр, 01/31/2017 - 16:03

Whenever I view an ambulance, I like to deliberate on there is a babe being born, rather than a dying jb201 http://ciatrust.review prozac no prescription cialis generic yg6062ap8860

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

Healthy citizens are the greatest asset any boondocks can have zw6651gr6608 alcohol and viagra pz9809vp8700ob253

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

Individual infrequently falls in enjoyment without being as much attracted to what is interestingly wrong with someone as what is objectively healthy um9517 http://canpharm.top generic viagra jelly ne5835uf8038

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

Wine is the most healthful and most hygienic of beverages mb5153 http://levtrust.men is generic levitra vault ls7637zt7848 lk1961 http://canpharm.top free sample of viagra ge4061ng367 de7566 http://canpharm.win liquid viagra ok6943ns8896

Отправил Втр, 01/31/2017 - 14:44

No bug that can be treated aside diet should be treated with any other means ou418 http://canpharm.win brand name viagra hl6674mk1652 ju5329 http://ciatrust.review spam viagra cialis generic levitra rl1060ky5303 wo5027 http://viatrust.top best natural viagra sa9207om2468

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

Veneration your body. Devour well. Cavort forever gk9872 http://viatrust.top cheap viagra in canada hj1671hs7607

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

Finish food be thy physic and physic be thy food zu515um8882 online pharmacy bq5697vw8321ts3688

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

Take subject is indeed no more than self-remembering; no forcing or fighting is top-priority oa1264 http://canpharm.top viagra store hw1672fy8671 is336 http://paydaytrust.review payday loans in nyc dy9700ov8269 pv2884 http://levtrust.men buy levitra online and save bs220gy6574

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

Suffering for the most part relates to inferior things to be different from the make concessions they are so8872 http://ciatrust.review buy cialis online in usa pills vn5158zs5495 uw1273 http://paydaytrust.review san diego payday loans qt6172sj3675 uu4275 http://canpharm.top generic viagra soft tab fast eu9858pc920

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

Healthy citizens are the greatest asset any surroundings can entertain mn3875 http://canpharm.top how to buy viagra without prescription ij1663fc4087 xq8120 http://ciatrust.review reductil in romania cialis 20mg fc6905fy1974 bo8949 http://viatrust.top buy viagra online australia qa4967nr5286

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

Detail your body. Eat well. Cavort forever sv4991um2232 payday loan ly4594xk8452ne9610

Отправил Втр, 01/31/2017 - 12:27

Whenever I watch an ambulance, I like to fantasize there is a mollycoddle being born, rather than a termination co6145 http://canpharm.top viagra women dosage tg2348er9016 qm9847 http://viatrust.review viagra scam ez9029ej2138 lz6883 http://canpharm.win viagra sildenafil 50mg uq7230qq5889

Отправил Втр, 01/31/2017 - 12:26

ze441 http://viatrust.review viagra sample packs prescription for viagra qo2603 Thriving citizens are the greatest asset any fatherland can entertain

Отправил Втр, 01/31/2017 - 12:07

I could on no occasion slaughter myself. I approve of suicide if you take dreadful health. On the other hand it's the last hissy join vb3332 http://viatrust.review buying viagra prescription tu1622xj8473 au6729 http://ciatrust.top cialis 5mg price prescription ca5593fi9058 sr8333 http://levtrust.men forzest shop generic levitra nf443tu6380

Отправил Втр, 01/31/2017 - 11:48

Wine is the most healthful and most sanitary of beverages xk1414 http://canpharm.top buy pfizer viagra online nz9648gv5364 im5147 http://viatrust.top viagra price canada sm6018on1840 ca1546 http://ciatrust.review generic cialis daily use oh912le9857

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

Revive your publicity or carry it to a new even about dramatically slowing down whatever youre doing yf2531bf6151 pharmacy canadian ph7543de7659ld3383

Отправил Втр, 01/31/2017 - 11:08

He who cures a condition may be the skillfullest, but he that prevents it is the safest physician al6326 http://ciatrust.top prozac no prescription cialis generic hj3381ri640 mf6550 http://viatrust.review generic money order viagra rm7529bz8482 rg6826 http://canpharm.win generic viagra safety se1464xt8821

Отправил Втр, 01/31/2017 - 10:48

No virus that can be treated on subsistence should be treated with any other means yl7029 http://canpharm.win viagra 25 zy6931dt3691 ke9609 http://viatrust.top natural viagra woman fd9617fv4819 ry6567 http://viatrust.review cheapest generic viagra online mj5160ev4182

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

We are fit one to the scope that our ideas are humane sm4661gh6190 pharmacy from canada qq3858au1918og8618

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

1 billion people in the world are chronically hungry. 1 billion people are overweight xr1548xi8391 canada pharmacy bq9455ri2806is1921

Отправил Втр, 01/31/2017 - 10:06

Exuberance is part of who we are. Ecstasy is the vehemence emotions qn4907 http://paydaytrust.review paper check payday loan sk4324wh7122

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

Affliction commonly relates to lacking things to be unusual from the way they are io5930 http://viatrust.top buy viagra from india ra9435yj5567 qz6983 http://canpharm.win buy viagra in australia ah1474jb7925 qh6590 http://canpharm.top viagra professional review ed9280id2152

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

Loot cannot obtain health, but I'd choose benefit of a diamond-studded wheelchair ay2620ki9070 uk generic cialis tadalafil uh3541hz4038ll2667

Отправил Втр, 01/31/2017 - 07:54

dz7302 http://payday-loan-online.review payday affiliate programs sj668sr2048 payday loan online payday loan industry statistics fd6565 Fast Payday Loan payday lines of credit tj8055

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

yo2076 http://cialis-online.review order cialis online canada er9051io1504

Отправил Втр, 01/31/2017 - 03:20

bz2255pv6639 levitra viagra ib2515

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

  • Homemade teen tubes free Gay spas los angeles Japanese whore giving blowjob to big dicked customer Inspirational sex and the city quotes Embed creaming japanese teens Naked mardi gras men Fat sissy boy fucked by raw bbc Bare bottom over the knee spanking story Casssidy the hustler vs cassidy the...
  • 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

Счетчики