Программа шутка 2

@anonimus · Регистрация: 28.04.2010

Author24 — интернет-сервис помощи студентам

Помогите написать ) смысл такой:
прога запускается и по экрану летит шарик (к примеру улыбающийся смайлик) когда он долетает до конца экрана рекошетит и их становится двое и при каждом сталкновении с гранями экрана или самим с собой каждый шарик делился.
не понятно как заставить летать шарик? или он будет рисоваться на мониторе или рисоваться на канве на форме, а потом уменьшить саму форму и двигать уже форму, тогда нужно что бы другие формы создавались в режиме run-time. И не понятно как отследить столкновение друг с другом.

@Gorezcaid · 26.08.2010, 16:06

Это сложно и может потянуть процесс.
Это возможно,но должен быть придел деления шариков.
Вы хорошо знаете Delphi?

@anonimus · 26.08.2010, 16:09 **[ТС]**

понятное дело предел должен быть, но скажем общее кол-во 1000 а потом они просто беспорядочно перемещаются.

@Gorezcaid · 26.08.2010, 16:16

Будет сильно тормозить...
На примере 2-х объектов уже будет притормаживать...
Как например этот исходник?
bounce02.zip

@anonimus · 26.08.2010, 16:18 **[ТС]**

а если на по экрану а в пределах формы, как в твоем примере

@Gorezcaid · 26.08.2010, 16:24

Можно и по экрану,но нужно вывести объекты в отдельном окне и заменить
перемещение не объектов а форм относительно экрана и его размеров,а не размеры самого приложения.
попробую переделать...
но сразу скажу,что будет тормозить,если как ты сказал "общее кол-во 1000" не влезет и не заработает.

@Zabiyak · 26.08.2010, 16:27

Даже 100 форм будет жутко тормозить ) Не говоря уже о 1000. Нужно рисовать на экране.

@Gorezcaid · 26.08.2010, 16:35

Вот уже на экране:
Копия bounce02.zip
Посмотри на рабочем столе

@anonimus · 26.08.2010, 16:38 **[ТС]**

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

Даже 100 форм будет жутко тормозить ) Не говоря уже о 1000. Нужно рисовать на экране.

вот и я думаю рисование на экране практичнее, но как отследить столкновение 2-х нарисованных объектов?
Если уж сложно сделать на экране, подскажите как то же самое реализовать в приделах формы?

P.S.
1000 я взял за примерную цифру, как только шарики закроют большую или всю часть экрана, тут конечно зависит от размера шариков.

Добавлено через 1 минуту

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

Вот уже на экране:
Вложение 40467
Посмотри на рабочем столе

действительно претормаживает, а у тебя эти шарики на чем выводятся?
это 2 отдельные формы летают?

@Gorezcaid · 26.08.2010, 16:43

это 2 отдельные формы летают?

отдельные окна.На другой среде.
Но принцип такой-же.

@anonimus · 26.08.2010, 16:44 **[ТС]**

Gorezcaid
можешь проект выложить?

@Gorezcaid · 26.08.2010, 16:50

104 строчки кода?
ты не разберёшся,хотя код лёгкий.
тут спойлера нет?...

@anonimus · 26.08.2010, 16:54 **[ТС]**

104 строчки кода просто летать по экрану? или она еще что-то делает?

P.S.
выкладывай, еще не в таком кол-ве строк разбирался

@Gorezcaid · 26.08.2010, 17:00

Буду переделывать код для Delphi по частям...

вывести объект 1 за окно
вывести объект 2 за окно

Delphi

//начальное присваивание:
bounce:=1;
x1:=1;
y1:=1;
x2:=ScreenWidth-50;
y2:=ScreenHeight/2;
max_x1:=ScreenWidth]-72;
max_y1:=ScreenHeight]-72;
max_x2:=ScreenWidth-50;
max_y2:=ScreenHeight-50;
oper_x1:='+';
oper_y1:='+';
oper_x2:='-';
oper_y2:='+';

@anonimus · 26.08.2010, 17:01 **[ТС]**

ааа так это не на делфи написана прога?

@Gorezcaid · 26.08.2010, 17:09

Delphi

//цикл While
while bounce = 1 do
Begin
//--
If x1 > max_x1 then
oper_x1:='-';
If x1 < 1 then
oper_x1:='+';
If y1 > max_y1 then
oper_y1:='-';
If y1 < 1 then
oper_y1:='+';
//39 строчка=======================

@anonimus · 26.08.2010, 17:12 **[ТС]**

заставить летать я сделаю, заставить рекошетить от граней экрана или формы тоже, не понятно как заставить рекошетить друг от друга и соответственно как делить их.

@Gorezcaid · 26.08.2010, 17:20

Delphi

If  x2 > max_x2 then
oper_x2:='-';
If x2 < 1 then
oper_x2:='+';
If y2 >max_y2 then
oper_y2:='-';
If y2 <1 then
oper_y2:='+';
//56 строчка=======================

Давай остольное ты поймёшь,если что спрашивай:Не Delphi:

Delphi

If "[x1]" "=" "[x2]"
If "[y1]" "=" "[y2]"
 
If "[oper_x1]" "=" "+"
SetVar "[oper_x1]" "-"
EndIf
If "[oper_x1]" "=" "-"
SetVar "[oper_x1]" "+"
EndIf
If "[oper_y1]" "=" "+"
SetVar "[oper_y1]" "-"
EndIf
If "[oper_y1]" "=" "-"
SetVar "[oper_y1]" "+"
EndIf
.+-+-+-+-+-+-+-+-+-+-+-+-+-
If "[oper_x2]" "=" "+"
SetVar "[oper_x2]" "-"
EndIf
If "[oper_x2]" "=" "-"
SetVar "[oper_x2]" "+"
EndIf
If "[oper_y2]" "=" "+"
SetVar "[oper_y2]" "-"
EndIf
If "[oper_y2]" "=" "-"
SetVar "[oper_y2]" "+"
EndIf
EndIf
EndIf
. =======================
Math "[x1][oper_x1]2" "" "[x1]"
Math "[y1][oper_y1]2" "" "[y1]"
Math "[x2][oper_x2]2" "" "[x2]"
Math "[y2][oper_y2]2" "" "[y2]"
zmSetCustomWindowPos "AnimatedGIF1" "[x1]" "[y1]" "" "" "ScreenPos" ""
zmSetCustomWindowPos "AnimatedGIF2" "[x2]" "[y2]" "" "" "ScreenPos" ""
EndWhile

Добавлено через 4 минуты

не понятно как заставить рекошетить друг от друга и соответственно как делить их.

делить когда переменные [oper_x1] [oper_x2] [oper_y2] [oper_y2] меняют своё значение от "+" к "-" и наоборот.При ударе об границы экрана.

@anonimus · 26.08.2010, 17:23 **[ТС]**

мне бы на делфи реализацию
у вас что за язык?

@Gorezcaid · 26.08.2010, 17:28

Всё очень просто сравните и замените:

Delphi

1
2
3

If "[oper_x1]" "=" "+"
SetVar "[oper_x1]" "-"
EndIf

На

Delphi

1 2	If oper_x1 = '+' then oper_x1:='-';

@anonimus 2184 / 1254 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	26.08.2010, 16:44 [ТС]	11
	Gorezcaid можешь проект выложить? 0

@anonimus 2184 / 1254 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	26.08.2010, 16:54 [ТС]	13
	104 строчки кода просто летать по экрану? или она еще что-то делает? P.S. выкладывай, еще не в таком кол-ве строк разбирался 0

@anonimus 2184 / 1254 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	26.08.2010, 17:01 [ТС]	15
	ааа так это не на делфи написана прога? 0

@anonimus 2184 / 1254 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	26.08.2010, 17:23 [ТС]	19
	мне бы на делфи реализацию у вас что за язык? 0

@anonimus 2184 / 1254 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
		1
	Программа шутка 2 26.08.2010, 15:47. Показов 3400. Ответов 28 Метки нет (Все метки) Помогите написать ) смысл такой: прога запускается и по экрану летит шарик (к примеру улыбающийся смайлик) когда он долетает до конца экрана рекошетит и их становится двое и при каждом сталкновении с гранями экрана или самим с собой каждый шарик делился. не понятно как заставить летать шарик? или он будет рисоваться на мониторе или рисоваться на канве на форме, а потом уменьшить саму форму и двигать уже форму, тогда нужно что бы другие формы создавались в режиме run-time. И не понятно как отследить столкновение друг с другом. 0

@Gorezcaid 15 / 15 / 0 Регистрация: 09.08.2010 Сообщений: 90
	26.08.2010, 16:06	2
	Это сложно и может потянуть процесс. Это возможно,но должен быть придел деления шариков. Вы хорошо знаете Delphi? 0

@anonimus 2184 / 1254 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	26.08.2010, 16:09 [ТС]	3
	понятное дело предел должен быть, но скажем общее кол-во 1000 а потом они просто беспорядочно перемещаются. 0

@Gorezcaid 15 / 15 / 0 Регистрация: 09.08.2010 Сообщений: 90
	26.08.2010, 16:16	4
	Будет сильно тормозить... На примере 2-х объектов уже будет притормаживать... Как например этот исходник? bounce02.zip 0

@anonimus 2184 / 1254 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	26.08.2010, 16:18 [ТС]	5
	а если на по экрану а в пределах формы, как в твоем примере 0

@Gorezcaid 15 / 15 / 0 Регистрация: 09.08.2010 Сообщений: 90
	26.08.2010, 16:24	6
	Можно и по экрану,но нужно вывести объекты в отдельном окне и заменить перемещение не объектов а форм относительно экрана и его размеров,а не размеры самого приложения. попробую переделать... но сразу скажу,что будет тормозить,если как ты сказал "общее кол-во 1000" не влезет и не заработает. 0

@Zabiyak КотЪ 219 / 219 / 60 Регистрация: 26.05.2009 Сообщений: 688
	26.08.2010, 16:27	7
	Даже 100 форм будет жутко тормозить ) Не говоря уже о 1000. Нужно рисовать на экране. 0

@Gorezcaid 15 / 15 / 0 Регистрация: 09.08.2010 Сообщений: 90
	26.08.2010, 16:35	8
	Вот уже на экране: Копия bounce02.zip Посмотри на рабочем столе 0

@anonimus 2184 / 1254 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	26.08.2010, 16:38 [ТС]	9
	Сообщение от Zabiyak Даже 100 форм будет жутко тормозить ) Не говоря уже о 1000. Нужно рисовать на экране. вот и я думаю рисование на экране практичнее, но как отследить столкновение 2-х нарисованных объектов? Если уж сложно сделать на экране, подскажите как то же самое реализовать в приделах формы? P.S. 1000 я взял за примерную цифру, как только шарики закроют большую или всю часть экрана, тут конечно зависит от размера шариков. Добавлено через 1 минуту Сообщение от Gorezcaid Вот уже на экране: Вложение 40467 Посмотри на рабочем столе действительно претормаживает, а у тебя эти шарики на чем выводятся? это 2 отдельные формы летают? 0

@Gorezcaid 15 / 15 / 0 Регистрация: 09.08.2010 Сообщений: 90
	26.08.2010, 16:43	10
	это 2 отдельные формы летают? отдельные окна.На другой среде. Но принцип такой-же. 0

@Gorezcaid 15 / 15 / 0 Регистрация: 09.08.2010 Сообщений: 90
	26.08.2010, 16:50	12
	104 строчки кода? ты не разберёшся,хотя код лёгкий. тут спойлера нет?... 0

@anonimus 2184 / 1254 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	26.08.2010, 17:12 [ТС]	17
	заставить летать я сделаю, заставить рекошетить от граней экрана или формы тоже, не понятно как заставить рекошетить друг от друга и соответственно как делить их. 0