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

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

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

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

zv2671 http://tadalafil.review/ cialis for cheap tv4486uh6269

Отправил Сб, 01/28/2017 - 10:10

vv2329 http://tadalafil.review/ risks of cialis generic ab4863lx2425 Cialis Sale bd7456 Cialis 5 mg Best Price USA do7299dm2014xh6509

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

qn2019 http://fastpaydayloans.review/ lender direct payday loan la5732gz2424

Отправил Сб, 01/28/2017 - 09:46

tc2110 http://sildenafil.party/ uk viagra sales op2408xr3458 Taraneh Alidoosti qv9934 Viagra Coupons lp6539if9591xq9365

Отправил Сб, 01/28/2017 - 09:44

buy cialis online Cialis Lowest Price sx7291

Отправил Сб, 01/28/2017 - 09:26

vh2641 http://fastpharmacy.men/ natural female viagra es3403oe7064

Отправил Пт, 01/27/2017 - 13:56

bz5685 http://fastpaydayloans.review/ what's project payday bu2313do9255 instant payday loans nd2871 payday loans fe9866iq8371ey4028

Отправил Пт, 01/27/2017 - 05:25

kw4462 http://tadalafil.party metformin expiration cialis generic pills ne3633za184

Отправил Ср, 01/25/2017 - 15:13

uu5931 http://vardenafil.pw buy levitra sildenafil wi5622kv8532 lq2486eu8039 website st7438rw8872xz159 nc6910 ly3389 buy Sildenafil fq5101

Отправил Ср, 01/25/2017 - 14:14

hu4241 http://online-pharmacy.review generic viagra best price canada tx1185wa1293

Отправил Ср, 01/25/2017 - 08:00

wi4262 df9530 buy levitra mz6760

Отправил Ср, 01/25/2017 - 04:30

ic6080 http://canadapharm365.top viagra with high blood pressure ix3458vh3009

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

tq7379 http://tadalafil365.bid price comparison cialis 20mg zc2864ec8807

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

xo2386mt5898 payday loan qi9361lg6799cr3479

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

dy3010vv7074 Canadian Pharmacy jj137yi3760ll3065

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

sm6548px6145 internet pharmacy cialis generic medications vn8198rp5122np8207

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

jz9112hk8137 payday loans ha1553zt7752cv7887

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

tb4429 http://tadalafil365.bid buy 20 mg cialis online uv1444az447 buy cialis pt3894 cialis sh3685mm6838ox4530

Отправил Сб, 01/21/2017 - 10:21

ji8823 http://canadapharmacy24.top health viagra woman oj8551ff2357 wc9415 http://paydayloan24.bid payday loans in oklahoma do8611bo5077 lx8865 http://cialisfromcanada.men cialis one a day online vg9261aj4539

Отправил Чт, 01/19/2017 - 13:54

gi7399 ll8693 compare levitra online or7004 co7607 mw4943 buy cheap cialis online ka2337 nz9007 js2412 canadian pharmacy viagra wm914

Отправил Чт, 01/19/2017 - 11:26

tx2594 http://paydayloan24.bid payday loans melbourne fl mt6561tz4601

Отправил Чт, 01/19/2017 - 11:10

tw7802qr3972 eli lilly weight loss pill cialis 20mg pf6580rg7832fw4507

Отправил Чт, 01/19/2017 - 06:37

yu4259 free samples viagra nq4646ed4239oa6098 la8694ep2842

Отправил Ср, 01/18/2017 - 08:58

mq7721 http://viagra-rx-online.com vardenafil vs viagra jn101tc4543ce2856 sh1087to6122 [url=http://viagra-rx-online.com]Viagra 100 mg Generic[/url] zq9261il913pa3995 zk8502un691 viagra online fb4105ox2595ew363 tw9917iw9882

Отправил Ср, 01/18/2017 - 08:28

yd9671 http://viagra-rx-online.com viagra prescription cost ph9042ki5640at2258 vv8960tp8998

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

kx5868 http://levitrafromcanada.men levitra generic india ta3640ni2808

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

vk1384 http://viagrafromcanada.men can girls take viagra qk4166yt7256

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

  • 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

Счетчики