Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Разное > Ваши программы
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 09.12.2011, 21:09
Аватар для Pilot_Red
Pilot_Red Pilot_Red вне форума
Продвинутый
 
Регистрация: 01.11.2006
Адрес: Карелия
Сообщения: 702
Версия Delphi: D7
Репутация: 11581
По умолчанию Обход препятствий

Вот оно, вот оно!!! Алгоритм моей мечты!!
Давно хотел сделать что-то подобное, когда-то делал для игры пак-мен, но там не интересно было, ибо пространство было дискретно. Хотелось что-нибудь на непрерывном сделать! И вот ОНО, совершилось, после недельной атаки на мозг написал алгоритм обходов препятствий на неограниченном пространстве.!
Скоро сяду писать что-нибудь на подобие Алена-шутера(просто так для себя)

З.Ы. На интерфейс проги внимание не обращать!

Последний раз редактировалось Pilot_Red, 29.06.2012 в 15:50.
Ответить с цитированием
  #2  
Старый 09.12.2011, 21:30
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Не понял смысла этой программы. Либо: "List out of bounds", либо тишина. Что должно произойти?
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #3  
Старый 09.12.2011, 23:06
Аватар для Pilot_Red
Pilot_Red Pilot_Red вне форума
Продвинутый
 
Регистрация: 01.11.2006
Адрес: Карелия
Сообщения: 702
Версия Delphi: D7
Репутация: 11581
По умолчанию

Цитата:
Сообщение от angvelem
Не понял смысла этой программы. Либо: "List out of bounds", либо тишина. Что должно произойти?

Нажимаем на кнопочку линия
рисуем линии(препятствия), паутем зажатия мышки и проведением по форме
нажимаем на кнопочку точка А, выставляем на форме точку А
нажимаем на кнопочку точка B, выставляем на форме точку B
нажимаем на здоровую кнопку
и наконец на кнопку поиск
Ответить с цитированием
  #4  
Старый 09.12.2011, 23:09
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

И кто бы мог догадаться, что там ещё и рисовать нужно?
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #5  
Старый 09.12.2011, 23:34
Аватар для Pilot_Red
Pilot_Red Pilot_Red вне форума
Продвинутый
 
Регистрация: 01.11.2006
Адрес: Карелия
Сообщения: 702
Версия Delphi: D7
Репутация: 11581
По умолчанию

Цитата:
Сообщение от angvelem
И кто бы мог догадаться, что там ещё и рисовать нужно?
Ну... я особо то внимание свое на интерфейсе не акцентировал
Ответить с цитированием
  #6  
Старый 09.12.2011, 23:35
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Ну хоть бы табличку повесил с объяснением.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #7  
Старый 09.12.2011, 23:42
Аватар для Pilot_Red
Pilot_Red Pilot_Red вне форума
Продвинутый
 
Регистрация: 01.11.2006
Адрес: Карелия
Сообщения: 702
Версия Delphi: D7
Репутация: 11581
По умолчанию

Цитата:
Сообщение от angvelem
Ну хоть бы табличку повесил с объяснением.
Да ладно, я думаю здесь не глупые люди сидят!
Ответить с цитированием
  #8  
Старый 09.12.2011, 23:49
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Как видишь, я затупил. Наверное масла в голове не хватило.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #9  
Старый 09.12.2011, 23:54
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,906
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Со второй попытки.
__________________
Некоторые программисты настолько ленивы, что сразу пишут рабочий код.

Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты.
Ответить с цитированием
  #10  
Старый 10.12.2011, 00:01
Аватар для Pilot_Red
Pilot_Red Pilot_Red вне форума
Продвинутый
 
Регистрация: 01.11.2006
Адрес: Карелия
Сообщения: 702
Версия Delphi: D7
Репутация: 11581
По умолчанию

Цитата:
Сообщение от Aristarh Dark
Со второй попытки.
Адекватная реакция! там есть проход который явно меньше 10 пикселей, поставь 4-5 размер
Да, кстати размер, это радиус можно сказать!
Ответить с цитированием
  #11  
Старый 10.12.2011, 00:03
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

С первой попытки:
__________________
jmp $ ; Happy End!
The Cake Is A Lie.

Последний раз редактировалось Bargest, 02.05.2013 в 00:28.
Ответить с цитированием
  #12  
Старый 10.12.2011, 00:04
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Нашёл другой косяк. В процессе создания лабиринта, изменил размер окна (увеличил). Кнопка "кликни" стала вызывать ошибку с дробными числами.
Когда путь не найден, нужно было попытаться уменьшить размер объекта.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #13  
Старый 10.12.2011, 00:06
Аватар для Pilot_Red
Pilot_Red Pilot_Red вне форума
Продвинутый
 
Регистрация: 01.11.2006
Адрес: Карелия
Сообщения: 702
Версия Delphi: D7
Репутация: 11581
По умолчанию

Цитата:
Сообщение от Bargest
С первой попытки:
см. выше.
размер учитывайте

И еще!
Если объекта радиус которого 10, а вы его ставите к линии на растоянии 9, то тоже увидиете тапкую же картинку! Все так и задуманно
Ответить с цитированием
  #14  
Старый 10.12.2011, 00:08
Аватар для Pilot_Red
Pilot_Red Pilot_Red вне форума
Продвинутый
 
Регистрация: 01.11.2006
Адрес: Карелия
Сообщения: 702
Версия Delphi: D7
Репутация: 11581
По умолчанию

Цитата:
Сообщение от angvelem
Когда путь не найден, нужно было попытаться уменьшить размер объекта.
А зачем, ты видел в играх чтобы объект менял свой размер чтобы пройти в какую-нибудь щель
Ответить с цитированием
  #15  
Старый 10.12.2011, 00:13
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Это только в этой программе, чтобы не говорили про непрохождение.
Лучше разберись с изменением размера.
P.S. А в играх я и сквозь стенку пройти могу.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 05:13.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter