Упругое столкновение шаров - Помощь студентам

DanilTR · 15.02.2016, 20:26

Программный код на Delphi, упругие столкновение шаров. Помогите написать код для проекта.

type_Oleg · 15.02.2016, 21:50

Начинай, поможем.

DanilTR · 16.02.2016, 14:47

Как сделать движение в левую сторону, и плавное?

Serge_Bliznykov · 16.02.2016, 15:22

Цитата:

Сообщение от DanilTR

Как сделать движение в левую сторону, и плавное?

да так же, как и любое другое: нужно вывести рисунок, сделать маленькую паузу, убрать рисунок и вывести его на новом месте.
Делать это удобно в обработчике, назначенном на таймер

p.s. если шар - это у Вас готовый компонент (TShape), то для его перемещения достаточно изменять его координаты (для движения влево, например, достаточно уменьшать Left

Код:

if Shar.Left>0 then
  Shar.Left := Shar.Left - 1;

DanilTR · 16.02.2016, 16:29

Спасибо большое! Кажется понял

15.02.2016, 20:26	#1
DanilTR Регистрация: 15.02.2016 Сообщений: 3	Упругое столкновение шаров Программный код на Delphi, упругие столкновение шаров. Помогите написать код для проекта.

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Столкновение шаров надеюсь на вашу помощь	Мария1994	Помощь студентам	2	04.06.2015 17:53
абсолютную упругое столкновение шаров	HACbKA	Помощь студентам	5	30.04.2013 16:28
Столкновение шаров и их исчезновение при этом	iljuase	C# (си шарп)	0	28.11.2012 16:26
Арканоид в Делфи (столкновение шаров)	Scabby	Gamedev - cоздание игр: Unity, OpenGL, DirectX	31	07.03.2010 22:30
Столкновение шаров, Delphi	Absentik	Помощь студентам	0	10.12.2009 18:15

15.02.2016, 21:50	#2
type_Oleg Старожил Регистрация: 02.03.2008 Сообщений: 2,504	Начинай, поможем.

16.02.2016, 14:47	#3
DanilTR Регистрация: 15.02.2016 Сообщений: 3	Как сделать движение в левую сторону, и плавное?

16.02.2016, 16:29	#5
DanilTR Регистрация: 15.02.2016 Сообщений: 3	Спасибо большое! Кажется понял