Движение фигуры

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

Движение фигуры

Сообщение Morion » 03.04.2006 (Пн) 10:42

В проге управление фигурой осуществляется с помощью клавиатуры. Необходимо, чтобы если одна фигура «наезжает» на другую (даже если слегка соприкасается с ней), происходило какое-либо событие. Пытался сделать сам, но ничего не получилось. Подскажите, как это осуществить.
Компьютер – отличная вещь! Он позволяет решать все проблемы, которые до изобретения компьютера просто не существовали!..

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 03.04.2006 (Пн) 10:49

А как ты пытался это сделать?
Lasciate ogni speranza, voi ch'entrate.

Viper
Артефакт VBStreets
Артефакт VBStreets
Аватара пользователя
 
Сообщения: 4394
Зарегистрирован: 12.04.2005 (Вт) 17:50
Откуда: Н.Новгород

Сообщение Viper » 03.04.2006 (Пн) 10:51

код этого самого "ничего не получилось" в студию
Весь мир матрица, а мы в нем потоки байтов!

Morion
Новичок
Новичок
Аватара пользователя
 
Сообщения: 44
Зарегистрирован: 11.03.2006 (Сб) 15:51
Откуда: Сургут

Сообщение Morion » 03.04.2006 (Пн) 10:53

Допустим если Shape1.Left находится м/у Shape2.Left и её (Shape2) правым краем. Но почему-то не получается, наверно надо не так... :?
Компьютер – отличная вещь! Он позволяет решать все проблемы, которые до изобретения компьютера просто не существовали!..

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 03.04.2006 (Пн) 10:54

И как ты определяешь, что она находится "между"?
Lasciate ogni speranza, voi ch'entrate.

minotawr
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 195
Зарегистрирован: 08.01.2006 (Вс) 12:38
Откуда: Курск

Сообщение minotawr » 03.04.2006 (Пн) 10:55

Хотябы скажи что за фигура, и в чем (Какой контрол использует).
Я лично решал такую проблему отслеживанием координат относительно положения на форме, и при пересечении этмх самых координат вызывал определенную процедуру

Morion
Новичок
Новичок
Аватара пользователя
 
Сообщения: 44
Зарегистрирован: 11.03.2006 (Сб) 15:51
Откуда: Сургут

Сообщение Morion » 03.04.2006 (Пн) 10:57

Код: Выделить всё
If  Shape2.Left+100>Shape1.Left>Shape2.Left Then ...


100-Это ширина фигуры
Компьютер – отличная вещь! Он позволяет решать все проблемы, которые до изобретения компьютера просто не существовали!..

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 03.04.2006 (Пн) 10:59

Ты прям так и пишешь?
Во-первых, в MSDN, читать синтаксис операторов сравнения.
Во-вторых, у тебя что, Shape1 ширины не имеет?
Lasciate ogni speranza, voi ch'entrate.

Viper
Артефакт VBStreets
Артефакт VBStreets
Аватара пользователя
 
Сообщения: 4394
Зарегистрирован: 12.04.2005 (Вт) 17:50
Откуда: Н.Новгород

Сообщение Viper » 03.04.2006 (Пн) 10:59

ну во первых вместо 100 наверно Shape.Width, а во вторых два сравнения в учловии выглядят ООчень забавно
Весь мир матрица, а мы в нем потоки байтов!

Morion
Новичок
Новичок
Аватара пользователя
 
Сообщения: 44
Зарегистрирован: 11.03.2006 (Сб) 15:51
Откуда: Сургут

Сообщение Morion » 03.04.2006 (Пн) 11:01

alibek писал(а):Во-вторых, у тебя что, Shape1 ширины не имеет?

Почему не имеет? Имеет.
Компьютер – отличная вещь! Он позволяет решать все проблемы, которые до изобретения компьютера просто не существовали!..

Morion
Новичок
Новичок
Аватара пользователя
 
Сообщения: 44
Зарегистрирован: 11.03.2006 (Сб) 15:51
Откуда: Сургут

Сообщение Morion » 03.04.2006 (Пн) 11:02

!Viper! писал(а):а во вторых два сравнения в учловии выглядят ООчень забавно

А как тогда?
Компьютер – отличная вещь! Он позволяет решать все проблемы, которые до изобретения компьютера просто не существовали!..

uhm
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1597
Зарегистрирован: 02.12.2004 (Чт) 15:21

Сообщение uhm » 03.04.2006 (Пн) 11:02

Конструкция вида 3>2>1 вычисляется так:

(3>2) - True (или -1 в числовом значении);

(True)>1 - False.

Т. е. то, что ты написал, будет False практически всегда.
Быть... или не быть. Вот. В чём вопрос?

minotawr
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 195
Зарегистрирован: 08.01.2006 (Вс) 12:38
Откуда: Курск

Сообщение minotawr » 03.04.2006 (Пн) 11:03

Хм, вижу тут присутствие силы черной, наверное Morion
пытается линию с точкой столкнуть?
Сори за стиль, просто вырвалось...

Viper
Артефакт VBStreets
Артефакт VBStreets
Аватара пользователя
 
Сообщения: 4394
Зарегистрирован: 12.04.2005 (Вт) 17:50
Откуда: Н.Новгород

Сообщение Viper » 03.04.2006 (Пн) 11:11

Morion писал(а):
!Viper! писал(а):а во вторых два сравнения в учловии выглядят ООчень забавно

А как тогда?


а это смотря чего тебе хочется... я думаю, что тебе должно хотется читать справку о синтаксисе конструкции If ... Then ...
Весь мир матрица, а мы в нем потоки байтов!

Morion
Новичок
Новичок
Аватара пользователя
 
Сообщения: 44
Зарегистрирован: 11.03.2006 (Сб) 15:51
Откуда: Сургут

Сообщение Morion » 03.04.2006 (Пн) 11:12

!Viper! писал(а):думаю, что тебе должно хотется читать справку о синтаксисе конструкции If ... Then ...

Да была-бы она у меня, я бы вопросы не задавал...
Компьютер – отличная вещь! Он позволяет решать все проблемы, которые до изобретения компьютера просто не существовали!..

Viper
Артефакт VBStreets
Артефакт VBStreets
Аватара пользователя
 
Сообщения: 4394
Зарегистрирован: 12.04.2005 (Вт) 17:50
Откуда: Н.Новгород

Сообщение Viper » 03.04.2006 (Пн) 11:15

дык online-справку смотри раз обычной нет, что собственно странно, VB есть, справки нет...
Весь мир матрица, а мы в нем потоки байтов!

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 03.04.2006 (Пн) 11:17

Morion писал(а):Да была-бы она у меня, я бы вопросы не задавал...

Поскольку у тебя есть возможность писать в форум, постольку есть и справка.
http://msdn.microsoft.com/library/
Lasciate ogni speranza, voi ch'entrate.

minotawr
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 195
Зарегистрирован: 08.01.2006 (Вс) 12:38
Откуда: Курск

Сообщение minotawr » 03.04.2006 (Пн) 11:17

Morion писал(а):Да была-бы она у меня, я бы вопросы не задавал...

Хм, а как же ты программируешь то, на пальцах чтоли, этого борохла по основам синтаксиса в сети хоть заройся...
Изучай основы программирования!

Morion
Новичок
Новичок
Аватара пользователя
 
Сообщения: 44
Зарегистрирован: 11.03.2006 (Сб) 15:51
Откуда: Сургут

Сообщение Morion » 03.04.2006 (Пн) 11:18

Я занимался по учебникам, а справку уже скачиваю
Компьютер – отличная вещь! Он позволяет решать все проблемы, которые до изобретения компьютера просто не существовали!..

minotawr
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 195
Зарегистрирован: 08.01.2006 (Вс) 12:38
Откуда: Курск

Сообщение minotawr » 03.04.2006 (Пн) 11:24

Morion писал(а):Я занимался по учебникам

Странные учебники...
Morion писал(а):а справку уже скачиваю

если эту http://msdn.microsoft.com/library/ то не пугайся когда придет счет за трафик ;)

Morion
Новичок
Новичок
Аватара пользователя
 
Сообщения: 44
Зарегистрирован: 11.03.2006 (Сб) 15:51
Откуда: Сургут

Сообщение Morion » 03.04.2006 (Пн) 11:27

minotawr писал(а): если эту http://msdn.microsoft.com/library/ то не пугайся когда придет счет за трафик ;)

Нет, другую. Ну всё, пошёл я её почитаю...
Компьютер – отличная вещь! Он позволяет решать все проблемы, которые до изобретения компьютера просто не существовали!..

Konst_One
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
Аватара пользователя
 
Сообщения: 3041
Зарегистрирован: 09.04.2004 (Пт) 13:47
Откуда: Химки

Сообщение Konst_One » 03.04.2006 (Пн) 12:12

вот набросал на скорую руку
Вложения
Moving Shapes.rar
(8.96 Кб) Скачиваний: 537

Matew
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 894
Зарегистрирован: 28.06.2004 (Пн) 17:44
Откуда: Дальний Восток, г. Ха

Сообщение Matew » 04.04.2006 (Вт) 4:25

Скачано: 498 раз(а)

Как это? :shock:
П.С. Обратите внимание на даты.
П.П.С. Сори за офтоп, просто сильно удивило.
Алкоголь и сканеры-ваши враги! Не верите-смотрите аватару :-)

HotKitten
Дятил
Дятил
Аватара пользователя
 
Сообщения: 400
Зарегистрирован: 24.01.2005 (Пн) 21:48
Откуда: из дома

Сообщение HotKitten » 04.04.2006 (Вт) 9:12

а всего 126 просмотров - мистика!
а код я думаю ответит на все вопросы
Изображение

Faust
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 649
Зарегистрирован: 29.12.2003 (Пн) 13:38
Откуда: лаборатория

Сообщение Faust » 04.04.2006 (Вт) 9:32

Morion, что за фигуры? Точки, линии, прямоугольники ориентированные по осям координат, любые другие многоугольники? Поконкретней, пожайлуста.
Листинги не горят!

Konst_One
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
Аватара пользователя
 
Сообщения: 3041
Зарегистрирован: 09.04.2004 (Пт) 13:47
Откуда: Химки

Сообщение Konst_One » 04.04.2006 (Вт) 11:08

да, круто народ качает программку, которую я написал за несколько минут для примера :shock:

Morion
Новичок
Новичок
Аватара пользователя
 
Сообщения: 44
Зарегистрирован: 11.03.2006 (Сб) 15:51
Откуда: Сургут

Сообщение Morion » 07.04.2006 (Пт) 13:19

Konst_One, спасибо за пример! Я понял!!!! :!:
Компьютер – отличная вещь! Он позволяет решать все проблемы, которые до изобретения компьютера просто не существовали!..

Morion
Новичок
Новичок
Аватара пользователя
 
Сообщения: 44
Зарегистрирован: 11.03.2006 (Сб) 15:51
Откуда: Сургут

Сообщение Morion » 07.04.2006 (Пт) 13:19

Faust простые прямоугольники
Компьютер – отличная вещь! Он позволяет решать все проблемы, которые до изобретения компьютера просто не существовали!..


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

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

Сейчас этот форум просматривают: AhrefsBot и гости: 183

    TopList