Поиск кратчайшего пути

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Volkova
Начинающий
Начинающий
 
Сообщения: 14
Зарегистрирован: 10.12.2007 (Пн) 13:03

Поиск кратчайшего пути

Сообщение Volkova » 22.07.2008 (Вт) 0:49

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

Заранее спасибо.

DODge
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 126
Зарегистрирован: 30.07.2006 (Вс) 0:25
Откуда: Нижний Новгород

Сообщение DODge » 22.07.2008 (Вт) 1:24

Вот пример формы на которой вроде бы реализована часть твоего вопроса, ну разве что самая малость :) Не помню где скачал, но я его немного подкорректировал и упростил, но от багов не избавлял, времени нет. Правда придётся слегка его доработать, и чтобы точки бегали, и чтобы препятствия обходили...
Кстати, у меня где-то был полностью готовый вариант, чёт я его найти не могу :( В общем как найду, так выложу.
Вложения
PathFind.rar
Путь от точки А до точки Б.
(1.08 Кб) Скачиваний: 74
CPU = Intel Core i5 6500 @ 3.2 GHz
VGA = GeForce GTX 650Ti 2Gb
RAM = 8 ГБ DDR4 @ 2133 MHz
OS = Windows 10 Pro 64-bit
IDE = Microsoft Visual Studio Community 2017 (Visual Basic.NET)
GAPI = SharpDX 9 + 12

SLIM
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1840
Зарегистрирован: 04.04.2008 (Пт) 18:21
Откуда: Краснодар

Сообщение SLIM » 22.07.2008 (Вт) 20:45

ОФФ:
------------
Еще один задумал игру написать......
Пишите жизнь на чистовик.....переписать не удастся.....

DODge
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 126
Зарегистрирован: 30.07.2006 (Вс) 0:25
Откуда: Нижний Новгород

Сообщение DODge » 22.07.2008 (Вт) 23:30

SLIM
Пускай, жалко что ли :)

Volkova
Тут наткнулся на русскоязычный мануал, сам не читал, но думаю пригодится (может ещё кого заинтересует)
Вложения
pathfind.zip
Поиск оптимального пути для транспортных средств на оцифрованых картах реальной местности
(588.57 Кб) Скачиваний: 69
CPU = Intel Core i5 6500 @ 3.2 GHz
VGA = GeForce GTX 650Ti 2Gb
RAM = 8 ГБ DDR4 @ 2133 MHz
OS = Windows 10 Pro 64-bit
IDE = Microsoft Visual Studio Community 2017 (Visual Basic.NET)
GAPI = SharpDX 9 + 12

Proxy
Профессор VB наук
Профессор VB наук
Аватара пользователя
 
Сообщения: 2941
Зарегистрирован: 31.08.2007 (Пт) 4:41

Сообщение Proxy » 25.07.2008 (Пт) 8:44

А в чём минусы поиска простым перечислением всех путей из данной точки? Ну всмысле так:

A -> B
A -> C
...
A -> B -> M
...
A -> ... -> ... -> ... -> ... -> ... -> X

где A - начальная точка, X - последняя.

ЗЫ. Вариантов вроде не сильно много выходит, т.к. варианты с рекурсией не допускаются. Т.е. A -> B -> A -> C недопустим, т.к. содержит рекурсивный путь.
Последний раз редактировалось Anonymous 26.07.2008 (Сб) 9:28, всего редактировалось 1 раз.
Follow the white rabbit.

Mikle
Изобретатель велосипедов
Изобретатель велосипедов
Аватара пользователя
 
Сообщения: 4148
Зарегистрирован: 25.03.2003 (Вт) 14:02
Откуда: Туапсе

Сообщение Mikle » 26.07.2008 (Сб) 9:23

Volkova
Пишешь Lines? :)
Вот:
http://tuapse-mikle.narod.ru/Lines.rar

SLIM
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1840
Зарегистрирован: 04.04.2008 (Пт) 18:21
Откуда: Краснодар

Сообщение SLIM » 26.07.2008 (Сб) 10:25

Не хилая реализация. А кто-ть разбирался как енто работает. Я что полез и видимя зря....все равно не понял
Пишите жизнь на чистовик.....переписать не удастся.....

Mikle
Изобретатель велосипедов
Изобретатель велосипедов
Аватара пользователя
 
Сообщения: 4148
Зарегистрирован: 25.03.2003 (Вт) 14:02
Откуда: Туапсе

Сообщение Mikle » 26.07.2008 (Сб) 14:19

SLIM
Это, вообще-то, я писал :)
Спрашивай, что не ясно.

SLIM
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1840
Зарегистрирован: 04.04.2008 (Пт) 18:21
Откуда: Краснодар

Сообщение SLIM » 26.07.2008 (Сб) 15:06

Ну, с моим уровнем то я вообше мало что пойму. Во превых зачем столько наложенных друг на друга PictureBox-ов?
Пишите жизнь на чистовик.....переписать не удастся.....

Mikle
Изобретатель велосипедов
Изобретатель велосипедов
Аватара пользователя
 
Сообщения: 4148
Зарегистрирован: 25.03.2003 (Вт) 14:02
Откуда: Туапсе

Сообщение Mikle » 27.07.2008 (Вс) 9:39

SLIM
Они не наложены, точнее наложены только в редакторе, после запуска программа их расставляет по местам. Реализация не шибко оптимальная - это один из моих первых проектов на VB6, писался много лет назад.
Но к теме топика это не имеет отношения, я предполагал, что демонстрирую алгоритм поиска пути.


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот и гости: 53

    TopList