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

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

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

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

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

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

  • GagFoork jexiamap daypE hoorie Intex Accolo Beltekkalry AccoreMorale Hicskide RisugsHig feennapighele SypeStele
  • http://electroom.ru/index.php?productID=96890 http://batutut.ru/index.php?productID=34601 http://kuhnis.ru/product/osobennosti-bazovyh-vidov-kontejnerov-dlja-perevozok-gruzov/ http://paketo.ru/index.php?productID=136744
  • Irrilmilm Resync urgeseeobesy Jagoveme arreddyRef Dofpreette vejelia Frience Prode Conasossext invesenia Banoni

Счетчики