Программирование на 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
Кто сейчас на конференции
Сейчас этот форум просматривают: Majestic-12 [Bot], SemrushBot и гости: 131