Затухающее движение

Затухающее движение

По экрану движется отрезок, оставляя за собой затухающий след. Алгоритм основан на уроке "Мячик, отскакивающий от границ окна"

Разместите на форме два компонента Timer1: TTimer и PaintBox1: TPaintBox с вкладки System. В инспекторе объектов (Object Inspector) выставьте начальные значения свойств

Timer1:
 Enabled: false
 Interval: 20
 
TPaintBox1:
 Align: alClient
 
TForm1:
 Color: clBlack

Для работы программы понадобятся переменные и процедура движения. Нажмите F12 и перейдите в редактор кода. В разделах type, var и const впишите следующие типы и переменные

 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    PaintBox1: TPaintBox;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
TPoints= Record
  X,Y: Real;
  End;
 
Const
 CountPoint=50;  // Количество линий в фигуре
 DistLim=50;     // Расстояние до края формы откуда начинается поворот
 
var
  Form1: TForm1;
  Pn,Pn2: Array [1..300] of TPoints;  // Концы отрезков
  dx,dy,dx2,dy2: Real;    // Приращение движения

В разделе implementation создайте процедуру, которая будет отвечать за движение отрезка

Procedure DrawPoints;
Var i:integer;
Begin
With Form1.PaintBox1 do
 Begin
 For i:=2 to CountPoint do
    Begin
    Canvas.Pen.Color:=RGB(255-round(5*i),0,255-round(5*i));
    Canvas.MoveTo(Round(Pn[i].X),Round(Pn[i].Y));
    Canvas.LineTo(Round(Pn2[i].X),Round(Pn2[i].Y));
    end;
 end;
End;

Для компонента Timer1 на вкладке Events в инспекторе объектов напротив события OnTimer сделайте двойной щелчок. Это действие создаст автоматически процедуру procedure TForm1.Timer1Timer(Sender: TObject). Заполните ее

procedure TForm1.Timer1Timer(Sender: TObject);
begin
With PaintBox1 do
begin
if Pn[1].X<DistLim then dx:=dx-0.4;
if Pn[1].X>Width-DistLim then dx:=dx+0.4;
if Pn[1].Y<DistLim then dy:=dy-0.2;
if Pn[1].Y>Height-DistLim then dy:=dy+0.2;
if Pn2[1].X<DistLim then dx2:=dx2-0.4;
if Pn2[1].X>Width-DistLim then dx2:=dx2+0.4;
if Pn2[1].Y<DistLim then dy2:=dy2-0.2;
if Pn2[1].Y>Height-DistLim then dy2:=dy2+0.2;
end;
Pn[1].X:=Pn[2].X-dx;
Pn[1].Y:=Pn[2].Y-dy;
Pn2[1].X:=Pn2[2].X-dx2;
Pn2[1].Y:=Pn2[2].Y-dy2;
 
Move(Pn[1],Pn[2],CountPoint*SizeOf(TPoints));
Move(Pn2[1],Pn2[2],CountPoint*SizeOf(TPoints));
DrawPoints;
end;

Для формы Form1 на вкладке Events создайте аналогично для события OnCreate процедуру procedure TForm1.FormCreate(Sender: TObject); и впишите следующий код

procedure TForm1.FormCreate(Sender: TObject);
Var i: Integer;
begin
With PaintBox1 do
begin
Timer1.Enabled:=True;
Pn[1].X:=Width-DistLim*2;
Pn[1].Y:=Height-DistLim;
Pn2[1].X:=Width-DistLim;
Pn2[1].Y:=Height-DistLim*2;
dx:=4; dx2:=3;
dy:=4; dy2:=2;
 For i:=2 to CountPoint do
    Begin
    Pn[i].X:=Pn[i-1].X+dx;
    Pn[i].Y:=Pn[i-1].Y+dy;
    Pn2[i].X:=Pn2[i-1].X+dx2;
    Pn2[i].Y:=Pn2[i-1].Y+dy2;
    end;
end;
DrawPoints;
end;

Запустите программу. Run.

СКАЧАТЬ ПРОГРАММУРазмер
Lines.exe (316)384.5 кб

Отправил Ср, 12/12/2018 - 06:46

Многолетний опыт организации ПК "Полимерстрой18" даёт о себе знать. Структура распространенная на рынке как лидер в отрасли комплексного проектирования производственных линий для товаров на базе полимер-песчаных материалов. Более точную информацию дробилка измельчитель об этом можно найти на нашем сайте.

На 18ps.ru вы также можете изучить сертификаты фирмы. Мастера ПК «Полимерстрой18» занимаются производством оборудования. Если вас заинтересовала уже готовая продукция, вы можете заказать её по телефону +7(3412)540-004. Сегодня в компании доступны различные услуги. Среди важных заказчиков компании считаются строительные застройщики. Если вам нужно стекло дробленое купить или ступени полимерпесчаные подобрать, сделать это можно через администраторов организации. В наши дни многих также интересует и сушилка для песка. Она активно используется в строительных целях. На стройке сушилка для песка барабанная считается неотъемлемым атрибутом. Без неё очень сложно подготовиться к строительным работам.

Фирма существует по адресу г. Ижевск, ул. Клубная, 24, куда вы можете прийти. Если вам нужна индивидуальная консультация, вам её предоставят. Многих интересует сейчас террасная доска в Ижевске. Её часто заказывают в коттеджи и частные дома. Вы можете террасную доску приобрести в Ижевске по очень выгодной цене. Компания часто проводит акции и распродажи материалов.

Иногда в компанию ПК "Полимерстрой18" обращаются даже городские власти. Власти заказывают кое-какие товары для города. Сегодня технология и переработка полимеров безумно интересует и само правительство. Как раз по этой причине много людей ставят канализационные люки из полимеров. Также в фирму раз в год приезжают и люди из-за границы. Их привлекает технология композитов из стекла пластика. Основные азы, естественно, им рассказываются. Но, технология полимерпесчаного производства остаётся закрытой для иностранных гостей.

На 18ps.ru вы можете найти роторная дробилка для пластика ипр цена и заказать ленточный транспортер, выбрать его в Ижевске или даже в регионе невероятно трудно. Как правило, транспортер ленточный наклонный нужно заказывать в магазинах за пару недель. Но в компании ПК «Полимерстрой18» это не нужно делать. Если вы желаете облагородить свой коттедж полимер-песчаными материалами, сделать это просто. Сегодня технология укладки тротуарной полимерпесчаной плитки невероятно популярна.

Вы можете без проблем найти и другие варианты. Сейчас укладка полимерпесчаной тротуарной плитки очень популярна. С помощью такой плитки реально облагородить очень красиво весь двор. Купить такую плитку можно в белых или серых цветах. На данный момент универсальные смесители предоставляют возможность сделать что угодно. Вы можете найти на ресурсе информацию и про другую продукцию. Заказать можно даже устройство для измельчения стекла. Много компаний из Российской Федерации также сотрудничают с компанией. Если вас заинтересовали утилизации текстильного композита, вы можете также звонить на горячую линию.

Вся продукция в организации невероятно дорогая. Из-за этого не все лица могут себе позволить сразу покупку. Есть варианты лизинга или бартера. Так как организация изготовляет оборудование для переработки пластика и стекла в огромных масштабах, вы можете купить лучшее оборудование с отсрочкой по выплатам.

Полные инструкции об этом вы также можете изучить на 18ps.ru ПК "Полимерстрой18", где есть много информации. Менеджеры всегда моментально отвечают. Вы можете прочитать также статьи на сайте про работу фирмы или про изготовление материалов.

Отправил Чт, 12/06/2018 - 22:15

http://www.reebokclassic.ru/ - https://image.nyigde.com/photos/board/79/board/6924_5_s.jpg

Если вы предпочитаете заниматься бегом, советуем обратить интерес на кроссовки фирмы Reebok. Эта фирма уже завоевала доверие у большого количества спортсменов. Даже если вы любитель в спорте, надёжная обувь для бега или баскетбола ждёт вас. Бренд постоянно разрабатывает новые кроссовки. Вы можете найти реально крутые варианты по скидке.

Купить кроссовки Reebok classic в Москве

Сейчас кроссовки очень популярны. Фирма Reebok очень распространенная, из-за чего спрос на обувь Reebok всегда большой. В последние месяцы бренд создаёт кроссовки красных цветов. Если вы не стремитесь заказать черные кроссовки, вы можете найти пурпурные или оранжевые. Но, классические кроссы всегда невероятно популярны. Их вы можете заказать для любых целей. Они подойдут как в дорогу, так и на морской курорт.

Если вы стремитесь приобрести кроссовки Reebok classic в Москве, советуем изучить каталог кроссовок на reebokclassic.ru, где есть модели разных размеров. Вы легко сможете найти модели как для мужчин, так и для девушек. На ресурсе http://www.reebokclassic.ru/muzhskie-krossovki-reebok/zimnie-reebok-muzhskie/ - reebok мужские зимние доступен большой выбор. Нужно и выделить то, что регулярно добавляются новые модели продукции. Каждый месяц в фирме проходят поступления новых моделей. Также часто бывают скидки и распродажи. Если вы хотите заказать кроссовки, сделать это можно даже по горячей линии +7(495)298-50-99.

На ресурсе reebokclassic.ru вы сможете найти также контакты компании. Вы можете индивидуально приехать и забрать кроссовки по адресу г. Москва ул. Ферганская, 27к1. Администраторы в организации работают очень хорошо. Вам помогут выбрать кроссовки для ходьбы или для спорта. Если вам потребуются зимние варианты Reebok, такие также доступны на ресурсе.

Мужские кроссы Reebok

Среди мужских кроссовок в последние годы пользуются спросом кроссовки для лета и весны. Их постоянно заказывают в магазине со скидками. На reebokclassic.ru вы найдёте варианты из текстиля или замши. Если вас заинтересовали кроссовки для дальних путешествий, очень удобные кроссовки доступны на сайте. Администрация постоянно обновляет рейтинг кроссовок, которые чаще покупают. Среди лидеров продаж, как правило, классические модели. Следует выделить и варианты, у которых скидка более 50%. Среди таких кроссовок доступны красные и белые варианты.

Вы также можете найти кроссовки салатового и желтого цвета. Коричневый цвет в основном идет для зимних кроссовок Reebok. Оплатить варианты обуви вы можете через сайт. Надо зарегистрироваться на портале reebokclassic.ru

Вы также можете выбрать товары в поиске. Если вас привлекает какая-то определенная модель, она будет размещена на портале. Вы легко можете найти модели больших или маленьких размеров и http://www.reebokclassic.ru/reebok-classic-club-c-85/ - reebok classic club c . Если у вас огромная ножка и раньше вы долго искали модели огромных размеров, на данный момент вам не нужно беспокоиться. Очень много кроссовок огромных размеров размещены на ресурсе.

Женские классические кроссовки Reebok

На сайте вы можете подобрать очень много женских моделей Reebok. Все модели очень крутые и элегантные. Вы легко можете заказать кроссовки на подарок или на Новый Год. Если вы живете далеко, не волнуйтесь. Доставка курьерами проходит очень быстро. На портале можно найти огромное количество разных моделей. Быстрая доставка также даёт о себе знать. Все кроссовки доставляются курьерами компании невероятно быстро!

На портале вы можете найти женские кроссовки Reebok на зиму. Они очень теплые и удобные. Гулять в таких кроссовках одно удовольствие. Оплата возможна картой или наличкой. На ресурсе вы можете также сравнить различные женские модели. По любым вопросам вы можете также обращаться к администраторам на ресурсе. На reebokclassic.ru вы легко найдёте крутые кроссовки.

Отправил Пт, 11/30/2018 - 15:55

Сейчас очень много девушек в Санкт-Петербурге приобретают квартиры. Строительство активно развивается, ежемесячно строятся красивые новостройки. Если вы захотели приобрести свежую квартиру, вам потребуется дизайн интерьера для неё. В новых помещениях иногда молодые семьи меняют перегородки, сносят какие-то панели и устанавливают всё для себя. Если вам необходима консультация дизайнера, советуем кликать на наш сайт.

На mudryakova.ru вы найдёте полный перечень услуг дизайнера Ольги Мудряковой. Сотрудники в её организации являются очень мудрыми специалистами. Они сделают приятный дизайн. Надо отметить и то, что их дизайны всегда невероятно красивые. Консультация дизайнера интерьера без денег также реальна сегодня. Особенно, если у вас есть особые пожелания или ваша площадь большая.

Если вам необходима разработка планировочного решения помещения или дизайн квартир спб цены , сначала вам нужно связаться с сотрудниками, которые детально изучат план вашего помещения. Необходимо отметить и наличие сетей. Дизайн план должен создаваться с учетом всех данных. Если вам нужен ремонт и дизайн квартиры под ключ спб, компания может сделать и его. В студии работают сотрудники, которые смогут создать дизайнерский проект и под ремонтные работы.

Если вам необходима перепланировка квартиры спб согласование, сделать это также реально сегодня. Вы можете увидеть на ресурсе всю необходимую информацию. На данный момент анкета для дизайнера интерьера онлайн свободная доступна на портале. Там также вы просмотрите портфолио. Если вас интересует ценовая политика, все данные указаны на портале. Среди отзывов людей возможно найти отклики разных лиц в разных местах. Информацию можно получить по телефону +7-(812)408-00-07.

На mudryakova.ru опубликованы также статьи. Там вы сможете прочитать про дизайн-студии спб , и что необходимо для уютного и комфортного интерьера. Прежде всего, цветовая гамма очень важна в квартире. Услуги по планировке безумно важны. Если вы желаете жить в квартире самостоятельно, важно, чтобы вами были обсуждены все моменты. Если вы хотите создать легонький дизайн проект для сдачи квартиры в аренду, порекомендовать оптимальные варианты вам также могут менеджеры. Как правильно установить мебель, где поставить стол, куда установить ТВ – с этими вопросами также могут помочь дизайнеры.

Сейчас большое количество людей заказывают квартиры студии дизайн в Питере. Вы также можете обговорить услуги дизайнерской студии интерьера Ольги Мудряковой. Достаточно приехать по адресу г. Санкт-Петербург, улица Мебельная, дом 49/92, где вас угостят чаем, и все детально расскажут. Также, если вас заинтересовали красивые интерьеры спб в каких-то квартирах, вы можете сделать фото и показать их менеджерам. Сейчас дизайнеры Петербурга активно работают над проектированием и разработкой дизайнов для загородных помещений. Но если у вас стоит задача обустроить дом, это также реально сделать. Сейчас дизайн-студии Санкт-Петербурга невероятно популярен. Вы можете попросить сделать дизайн интерьера на даче или коттедже.

На mudryakova.ru есть также услуги индивидуальных дизайнеров. Если вы желаете, чтобы ваша квартира была оригинальной и отличалась от других очень сильно, советуем рассмотреть их. Сейчас индивидуальные дизайнеры работают долго над созданием дизайн проектов, но очень качественно. Прорабатывается любая мелочь. Если у вас на балконе мало места, существует вероятность того, что дизайнеры сделают дизайн таким, что место прибавится. Ребята смогут разместить там стол или создать закрытое помещение. Сейчас консультация дизайнеров интерьера СПБ очень важна. С помощью таких лиц создаются крутые интерьеры СПБ. Если вас заинтересовал премиальный дизайн интерьера, его также реально заказать.

На портале дизайнера Ольги Мудряковой есть полная информация. Вы можете изучить данные про её команду. На сайте также размещены ответы на многие ваши вопросы. Если вас интересует месторасположение офиса, вы можете связаться также по этому вопросу со специалистами.

Отправил Чт, 11/22/2018 - 16:25

Игры на деньги занимают почетную позицию в сфере развлечений Российской Федерации. Со времен Древней Греции люди играли и будут играть, чтобы испытать везение, снять джекпот и ощутить себя победителем.

Бренд Avtomatyi Na Dengi - лидирует в услугах гемблинга 2018 года - представляет интернет игры на реальные деньги с минимальным депозитом яндекс деньги . На портале расположено информацию о популярных интернет казино и популярных игровых автоматах. Имеются отзывы о методах перевода средств, промокодах, акциях и бонусах.

Vulkan Casino
Наиболее известный бренд нейм в СНГ - Vulcan. Этот игровой клуб помнят из 90-х годов синим фоном. В наше время на avtomatyi-na-dengi.com представлена целая выборка c бренд неймом Вулкан:
1. Club Vulkan
2. Вулкан Гранд
3. Вулкан Rossiya
4. Vulkan Platinum
5. Вулкан Бит
6. Vulkan Neon
7. Vulcan Олимп
8. Vulcan Победа
9. Вулкан Prestige
10. Vulkan 777
11. Вулкан Million
12. Русский Вулкан

Мужчины со всего земного шара имеют возможность поиграть в онлайне без денег без регистрации и SMS в демо режиме игровые аппараты для русскоязычных от топовых мировых производителей: BetSoft, МегаДжек, Evoplay, Новоматик, Микрогейминг, Эйскинг, Yggdrasil, Хабанэро, Тандеркик. Но поднять большой куш возможно только вложив рубли и испытав удачу в рулетку онлайн, техасский покер, раздаче с живыми дилерами, привычные аппараты и новинки слоты.

Сыграйте за реальные деньги с моментальным выводом на карту сейчас! Зарегистрируйте личный кабинет и вам станут подарены: бонус новичкам и фриспины.

Топ онлайн казино

Также на сайте расположен список честных виртуальных казино РФ. Среди них:
Pharaon
Адмирал
Азартплей
Frank
Плей Фортуна
Azino777
Иви Казино
Арго Казино
Zigzag777
Вегас Автоматы
Супер Слотс
Джойказино
Казино Х

Перечень ежемесячно дополняется. А эксперты без пристрастия изучают в обзорах преимущества и недостатки брендов.

Аппараты

Кто угодно может скачать на андроид моб версию выбранного игрового клуба и наслаждаться 3D гаминаторами в хорошем качестве на мобильнике:
Братва
Turaga
Sharky
Cabaret
Sizzling Hot Deluxe
Алмазы
Марко Поло
The Money Game
Gnome
Garage
Ramses II
Pharaoh's Gold II
Riches Of Cleopatra
Фруктовый Коктейль
Книга Ра
Sweet Life
Space Wars
Секретный Лес
Лиса
Лаки Леди Шарм
Невероятный Халк
Beetle Mania
Bananas Go Bahamas
Alice in Wonderland
Лаки Хантер
Фрукты
Diamond Trio
Island
Счастливые Пираты
Dolphin's Pearl
Taiga
Resident
Circus

Чтобы положить на счет средства сделайте это комфортным методом оплаты: Yandex Money, QIWI, Скрилл, Вебмани, ПэйПал, Биткоин. Выберите игровой клуб с моментальным выводом реальных денег на карту, дабы понять всю прелесть азартных игровых аппаратов.

На официальном сайте размещено инфу о актуальном зеркале сегодня. Из-за того, что часто в следствие внесения в реестр понравившийся сайт находится под запретом к открытию.

Лучшие условия от персонального менеджера для VIP игроков. Свяжитесь по е-мейлу или позвоните по указанному телефону, для того, чтобы решить любой проблемный вопрос.

Знайте, что настоящее онлайн казино имеет лицензию и соблюдает ответственную игру. А также борется с игровой зависимостью. Страница FAQ расскажет: как снять деньги.

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

  • http://ziter.ru/index.php?productID=3751 http://eur-style.ru/product/713 http://samaram.ru/product/nemnogo-o-napolnyh-chasah http://salonturov.ru/index.php?productID=43345
  • What Do Installment Loans Present Themselves? In case if one feels need in ready money straight away, the best method to get it is to turn to installment loans that have historically been known as the most efficient and timely for enormous buyings. Installment loan constitutes a close-end loan,...
  • ОСТАЛОСЬ ВСЕГО 15 ДЕНЕЖНЫХ БОНУСОВ! ВЫПЛАЧЕНО БОЛЕЕ 4 000 000 РУБЛЕЙ ! ---http://link.futbol/8lko

Счетчики