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

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

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

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

lu1723 http://zithromax.party zithromax drug side effects ec2928 Zithromax z pak zithromax drug xu655 order azithromycin 500mg azithromycin 250 mg price zithromax tc1725

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

gm280kt9647 payday loans instant military payday loans oi5064

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

sk6084 http://levitra-online.men how do i get a prescription for propecia generic levitra mm5911uz5258 Levitra 20 MG Cost Walmart generic levitra us xu4100 generic levitra does it work generic levitra for sale aw6305

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

bs7815 http://viagra-online.men online pharmacies viagra it4953zh2004 uo1248 http://levitra-online.men buy levitra in france os5171ry7118 ae4284 http://payday-loan-online.review quick payday cash advance jj978kq7309

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

ix3042 http://cialis-online.review buy cialis soft th4415lx8693

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

fk9059 http://viagra-online.men viagra headquarters bs8313ak8327 bm4071 http://canadian-pharmacy-online.review canada pharmacy ha3782hw7554 rq9486 http://payday-loan-online.review payday loan laws in virginia pa5550lw9739

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

up9206 http://zithromax.party zithromax canada oral suspension ad7863

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

qy8034 http://zithromax.party levaquin vs zithromax mg gb4638 iw7466 http://levitra-online.men levitra online prescription needed mq4044ud3201 md150 http://canadian-pharmacy-online.review cialis im1261hm2812

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

fq1454qd3140 payday loans rights payday loans in renton rr748

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

sc7930 http://zithromax.party zithromax usa nz2558 wd3163 http://levitra-online.men how do i take levitra vardenafil xg8791cz8123 xs9272 http://canadian-pharmacy-online.review cialis js7894qw6278

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

kl9816 http://canadian-pharmacy-online.review pharmacy Canada wb3246nh4610

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

uc7810 http://cialis-online.review rolling stone ambien buy cialis online hd1642dj9070 zc9782 http://canadian-pharmacy-online.review canada pharmacy fb9723hf8369 fx6043 http://viagra-online.men viagra england xt6252rh7022

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

ty8260 http://cialis-online.review buy cialis online in usa prescription dv175yn5952 au1425 http://levitra-online.men generic levitra 20mg dizziness fainting fz8525xk2066 et5562 http://canadian-pharmacy-online.review pharmacy canadian ob2639os8285

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

xh2723wu9688 pharmacy from canada canadian pharmacy viagra do5484

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

wq3661 http://canadian-pharmacy-online.review pharmacy canadian pd7586kg4168 cialis viagra ji4001 pharmacy from canada pharmacy Canada jd3873

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

ny3788 http://payday-loan-online.review payday loans in newport news in2048yr9016

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

kd4544 http://payday-loan-online.review payday loans in salt lake city utah hs8437dx1097 zf9963 http://viagra-online.men viagra stop stop lyrics rh2189da2695 ub4529 http://canadian-pharmacy-online.review CA Pharmacy wn8874yv2111

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

mi7987bo1243 Quick Cash Loan magnum z payday loans cp3082

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

wj5747gc4245 buy cheap levitra propecia for cheap generic levitra dy3342

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

sc7966 http://cialis-online.review cialis generic discount pz4380ih4031

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

si676zy573 instant payday loans payday loan no credit check uk pc3285

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

ut4098 http://payday-loan-online.review payday resources lehi utah tk5482bf8868

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

uj6412 http://cialis-online.review natural forms of viagra cialis pills hz6925pk4895

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

qd1293 http://viagra-online.men viagra with high blood pressure df8257ku7574 nt7941 http://levitra-online.men sell generic levitra om164jh1724 pg5846 http://payday-loan-online.review payday advance salem oregon wh4498fm2811

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

qn5608 http://zithromax.party cheap azithromycin 1g pv4904 ry1171 http://payday-loan-online.review zip 19 payday ic8483ve4959 mn9695 http://viagra-online.men generic viagra buy pt6193jx282

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

ri5734 http://viagra-online.men viagra dosage options te9404oz2010 ns9253 http://levitra-online.men how long last generic levitra ar4117ay3294 qc2716 http://canadian-pharmacy-online.review CA Pharmacy om9807ih8670

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

lc4125 http://zithromax.party purchase azithromycin online aj2454 rg8206 http://viagra-online.men generic viagra available xe9182xn9102 iv2490 http://levitra-online.men viagra or levitra online wd4752me5082

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

de8654 http://zithromax.party z pak coupon order zithromax eh6105

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

cf2605 http://payday-loan-online.review payday loan with bad credit po5066dd1121

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

dc7040 http://payday-loan-online.review payday loans faxless lt8361aw2830

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

ma7489 http://viagra-online.men viagra for women patch zw5128ph4448 viagra viagra soft gels rx5564 buy viagra online cheap viagra soft tablet xb2546

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

gr8161 http://payday-loan-online.review long payday loans ar1928rw9378 xs1374 http://viagra-online.men buy viagra online no prescription canada aa9459js5169 bb5712 http://canadian-pharmacy-online.review canadian pharmacy viagra cj9222sy6725

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

wx8321 http://levitra-online.men generic levitra manufacturers ao4934tx5986

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

ua2403zx7192 payday loan convention payday loans wilmington de ti1239

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

rw2149uc6153 buy cialis cut cialis pills ac1839

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

le3769 http://zithromax.party zithromax price toys r us xz3934

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

wp1601 http://canadian-pharmacy-online.review pharmacy canadian oh6432ti219 uj2750 http://zithromax.party sell azithromycin online jw9382 hn1998 http://levitra-online.men is generic levitra safe online pharmacy wk2845rh5643

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

qv532du8779 Zithromax Side Effects zithromax drug interactions clarithromycin biaxin zu8410

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

ep7192 http://viagra-online.men ordering viagra ik9418qi4307

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

hn2323 http://viagra-online.men buy brand viagra without prescription cr1377ff7348

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

ln9866 http://levitra-online.men facts levitra online kk5083kp3503 iu7760 http://canadian-pharmacy-online.review pharmacy canadian wf6294po9519 ea6041 http://viagra-online.men online viagra pharmacy xv5082uo6278

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

nr8254 http://viagra-online.men buying brand viagra rd3638vr4855

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

ma6410 http://cialis-online.review reductil online without prescription cialis 20mg yb2143bi9872 lc5234 http://viagra-online.men prescription viagra tg7664rr4315 qf4041 http://zithromax.party apo azithromycin drug interactions ea2943

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

vf5707 http://cialis-online.review cialis online discount kp8321sh7183

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

fk5001en1485 Zithromax zithromax generic walmart wf4579

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

wp1305 http://canadian-pharmacy-online.review levitra jx972qn6086 pharmacy canadian pharmacy canadian pk1726 CA Pharmacy Canadian Pharmacy fa8761

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

pz7380ph1894 Cialis Lowest Price buy cialis in canada yt848

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

am482 http://viagra-online.men free viagra sample zj4216fg376 sk7976 http://zithromax.party how long does take to cure chlamydia zithromax online mf7820 ad2452 http://levitra-online.men what does pill look like buy levitra ty3677zy7484

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

xr6212 http://viagra-online.men viagra triangle kp5394yc4942 ym7666 http://canadian-pharmacy-online.review pharmacy from canada cp9226lu9609 re3732 http://cialis-online.review internet pharmacy cialis generic medications gc6438xo778

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

pi2542zb9503 Zithromax Side Effects buy azithromycin no rx as9951

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

  • 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

Счетчики