VPF::[Delphi] Падение тела и его подпрыгивание

NitreX

Дата 16.2.2006, 03:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 26.11.2005
Где: Ukraine. Nikolaev

Репутация: нет
Всего: нет

Немогу сделать такую задачку:
1). нарисовать тело средствами Round....
2). Пользователь вводит высоту h...
3). тело падает с высоты h.. и подпрыгивает!

Fixin

Дата 16.2.2006, 16:07 (ссылка)

(нет голосов)

Загрузка ...

Ёжик

Профиль
Группа: Комодератор
Сообщений: 1357
Регистрация: 6.1.2004

Репутация: 5
Всего: 18

Вообще не понятно, что нужно. Анимированное падение тела и отскакивание от поверхности? И на чем надо делать?
Там сверху правила есть.

--------------------

Пользуйтесь ссылкой <<решенный\нерешенный вопрос>>
IRC-канал Винграда

Albinos_x

Дата 16.2.2006, 21:04 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 2
Всего: 108

делфи...от туда тема перенесена... и ещё в разделе делфи другого форума постили...

Цитата(NitreX @ 16.2.2006, 03:09

)

Немогу сделать такую задачку:

уже раз спрашивал.... так в чём заключается "не могу сделать"... или вы хотите чтоб вам целиком прогу накатали?

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

NitreX

Дата 17.2.2006, 01:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 26.11.2005
Где: Ukraine. Nikolaev

Репутация: нет
Всего: нет

ану посмотрите... вот есть наработки smile

)
но тело нада рисовать.. а не TImage....
Помогите...
П.С: И тело (шарик) не подпрыгивает, а останавливается!!

Код


unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
a, i, j, k, l, m, n : integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Picture.LoadFromFile('C:\2.bmp');
Image1.Refresh;
i := 40;
j := 250;
k := 120;
l := 250;
m := 180;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.SetBounds(100, i, 100, 100);
i := i + 5;
If i > 250 then
begin
Image1.SetBounds(100, j, 100, 100);
j := j - 4;
end;
If j < 120 then
begin
Image1.SetBounds(100, k, 100, 100);
k := k + 3;
end;
If k > 250 then
begin
Image1.SetBounds(100, l, 100, 100);
l := l - 2;
end;
If l < 180 then
begin
Image1.SetBounds(100, m, 100, 100);
m := m + 2;
If m > 250 then Timer1.Destroy;
end;
end;
end.

Модератор: пользуйтесь тегами [cоde][/cоdе]

Это сообщение отредактировал(а) Fixin - 17.2.2006, 20:00

Akina

Дата 17.2.2006, 10:16 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 17
Всего: 454

NitreX
1) Существует тег "код" - его НУЖНО использовать чтобы не строгать лапшу. Исправь свой постинг.
2) Код надо комментировать - никому не интересно догадываться нафига ты ввел переменную Зю...
3) А соударение - упругое?

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

mvdr

Дата 17.2.2006, 11:46 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: 7
Всего: 42

Цитата(NitreX @ 16.2.2006, 03:09

)

2). Пользователь вводит высоту h...
3). тело падает с высоты h.. и подпрыгивает!

физику надо учитывать? т.е. высота подскока реальная или просто на ту же самую?

В любом случае: рисование-перерисовка в новом положении - затирание старого.

--------------------

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

Albinos_x

Дата 17.2.2006, 13:24 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 2
Всего: 108

Цитата(NitreX @ 16.2.2006, 03:09

)

1). нарисовать тело средствами Round....

обязательно Round-ом или можно Ellipse или Rectangle ?

Цитата(NitreX @ 17.2.2006, 01:32

)

И тело (шарик) не подпрыгивает, а останавливается!!

Round-ом врят ли шарик насисуешь... если только приближённо и что значит останавливается? перед этим писали :

Цитата(NitreX @ 16.2.2006, 03:09

)

с высоты h.. и подпрыгивает!

---------

Цитата(Akina @ 17.2.2006, 10:16

)

1) Существует тег "код" - его НУЖНО использовать чтобы не строгать лапшу. Исправь свой постинг.
2) Код надо комментировать - никому не интересно догадываться нафига ты ввел переменную Зю...

точно замечено...

---
NitreX,
тебя интересует что-то вроде этого приложение или по адресу где ещё задавал вопрос

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

NitreX

Дата 18.2.2006, 02:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 26.11.2005
Где: Ukraine. Nikolaev

Репутация: нет
Всего: нет

Цитата

физику надо учитывать? т.е. высота подскока реальная или просто на ту же самую?

да... физика учитывать!

Цитата

ound-ом врят ли шарик насисуешь...

ну можно не шарик..... проста тело какое нибуть!

Цитата

тебя интересует что-то вроде этого приложение

да...... это оно... тока исходники нужны мне smile

)) плиз скинь!

cardinal

Дата 18.2.2006, 03:09 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 15
Всего: 99

NitreX, ты так и не понял. Подпрыгивать он должен на туже высоту или на меньшую (то есть в итоге он должен когда то лежать на земле)?

Короче и в том и в другом случае все сводится в дифф.уравнению. Или вида
(d2/dx2 x) + cx = 0
или
(d2/dx2 x) + a*(d/dx x) + c*x = 0.
То есть колебание с затуханием и без... Такое проходили? Решение уравнения известно? (В каждом учебнике есть). В чем проблема?

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

Albinos_x

Дата 18.2.2006, 08:42 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 2
Всего: 108

Цитата

В чем проблема?

видно в реализации

простой пример

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

KostyaK

Дата 15.12.2006, 12:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 14.12.2006

Репутация: нет
Всего: нет

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

Теперь насчёт её реализации в Delphi.

Движение графических объектов по заданным законам - классическая задача, которую решают при изучении ООП. Поэтому перед тем, как что-то рисовать, посмотрите учебник Фаронова "Turbo Pascal". У него есть целая глава, посвящённая реализации идей ООП в Pascal - е. И рассматривается как раз пример с рисованием графических объектов (конечно, средствами BP7.0).
Вам надо будет
1) перенести этот код в Delphi (что касается объявления объктов)
2) реализовать свои методы для этих объектов (отобразить, сдвинуть и пр)
3) ну и собственно реализовать свой алгоритм движения. Скорее всего, создав дополнительные методы.

Alexeis

Дата 15.12.2006, 12:59 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

Ну ну последнее сообщение Дата 18.2.2006, 08:42 (ссылка)

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »