Столкновение обьектов

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

Столкновение обьектов

Сообщение ArtVer94 » 06.11.2006 (Пн) 14:08

Добрый день !
Подскажите как расчитать чтобы в игре при заходе на "препятствие" заданный обьект останавливался. Что нузно добавить в функцию
Код: Выделить всё
Public Function Contact(ob As Object, ob2 As Object, cDlin As Long)
X1 = Abs((ob2.Left + ob2.Width) - (ob.Left + ob.Width / 2))
Y1 = Abs((ob2.Top + ob2.Height) - (ob.Top + ob.Height / 2))
Z = X1
If X1 < Y1 Then Z = Y1
Select Case Z
Case Is < cDlin
Contact = 1
Case Else: Contact = 0
End Select
End Function


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

Сообщение Matew » 07.11.2006 (Вт) 8:57

ArtVer94, эта функция только говорит есть ли контакт.
Алкоголь и сканеры-ваши враги! Не верите-смотрите аватару :-)


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

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

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 41

    TopList