Как сделать само столкновение с движущимися блоками?

@abaddonx · Регистрация: 14.05.2014

Студворк — интернет-сервис помощи студентам

Игра заключается в поднятии "смайликом" ключа, пройдя через движущиеся блоки. При достижении цели появляется окно с надписью "победа", при касании блоков "поражение" и откидывается "смайл" на начало.
Блоки двигаются таймерами, "смайл" управляется стрелками.
Вопрос: Как сделать само столкновение с движущимися блоками?
Кто чем может ^^
Вот так примитивно это выглядит)

Как сделать само столкновение с движущимися блоками?

@Апострофф · 15.05.2014, 07:06

Сообщение от abaddonx

Вопрос: Как сделать само столкновение с движущимися блоками?

Если вопрос лишь в этом - приведите имеющийся проект, что бы не играть в испорченный телефон.

@abaddonx · 15.05.2014, 09:00 **[ТС]**

Сообщение от Апострофф

Если вопрос лишь в этом - приведите имеющийся проект, что бы не играть в испорченный телефон.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 39 Then    'вправо
    smile.Left = smile.Left + 100
End If
If KeyCode = 37 Then    'влево
    smile.Left = smile.Left - 100
    End If
If KeyCode = 40 Then        'вниз
smile.Top = smile.Top + 100
End If
If KeyCode = 38 Then         'вверх
smile.Top = smile.Top - 100
End If
 
End Sub
 
Private Sub Timer1_Timer()
block1.Left = block1.Left + 30
If block1.Left = 5760 Then Timer1 = False
If Timer1 = False Then Timer3 = True
 
End Sub
 
Private Sub Timer2_Timer()
block2.Left = block2.Left - 30
If block2.Left = 120 Then Timer2 = False
If Timer2 = False Then Timer4 = True
End Sub
 
Private Sub Timer3_Timer()
block1.Left = block1.Left - 30
If block1.Left = 120 Then Timer3 = False
If Timer3 = False Then Timer1 = True
End Sub
 
Private Sub Timer4_Timer()
block2.Left = block2.Left + 30
If block2.Left = 5760 Then Timer4 = False
If Timer4 = False Then Timer2 = True
End Sub
 
Private Sub Timer5_Timer()
 
End Sub
 
Private Sub Timer6_Timer()
 
End Sub

Это весь код, что смог написать

@Апострофф · 15.05.2014, 09:07

abaddonx,

Сообщение от Апострофф

приведите имеющийся проект, что бы не играть в испорченный телефон.

Запакуйте ZIPом и приложите (расширенный режим, скрепка). Ведь нам отсюда не видно, что такое o, block1, block2 и другие подробности...

@abaddonx · 15.05.2014, 09:15 **[ТС]**

Сообщение от Апострофф

Запакуйте ZIPом и приложите (расширенный режим, скрепка). Ведь нам отсюда не видно, что такое o, block1, block2 и другие подробности...

Игра.zip

@Апострофф · 15.05.2014, 10:23

Как-то так (и выкиньте лишние таймеры)

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
With o
  
  Select Case KeyCode
    Case 37: .Left = .Left - 100 'влево
    Case 38: .Top = .Top - 100 'вверх
    Case 39: .Left = .Left + 100 'вправо
    Case 40: .Top = .Top + 100 'вниз
    Case Else: Exit Sub
  End Select
  
  If I(o, key) Then
    MsgBox "Победа!", , "Ключ подобран!"
    .Left = 3500
    .Top = 1000
  End If
  
  If I(o, block1) Or I(o, block2) Then Crash
 
End With
End Sub
 
Function I(a As Image, b As Image) As Boolean
  If Abs(a.Top + a.Height / 2 - b.Top - b.Height / 2) < a.Height / 2 + b.Height / 2 Then
    If Abs(a.Left + a.Width / 2 - b.Left - b.Width / 2) < a.Width / 2 + b.Width / 2 Then
      I = True
    End If
  End If
End Function
 
Private Sub Form_Load()
block1.Tag = 20
block2.Tag = 25
End Sub
 
Sub Crash()
  MsgBox "УВЫ!", , "Игра проиграна!"
  o.Left = 3500
  o.Top = 1000
End Sub
 
Private Sub Timer1_Timer() '20
With block1
  If .Left > 5760 Then
    .Tag = -.Tag - 10
  ElseIf .Left < 120 Then
    .Tag = -.Tag - 10
  End If
  .Left = .Left + .Tag
End With
 
With block2
  If .Left > 5760 Then
    .Tag = -.Tag - 10
  ElseIf .Left < 120 Then
    .Tag = -.Tag - 10
  End If
  .Left = .Left + .Tag
End With
 
If I(o, block1) Or I(o, block2) Then Crash
 
End Sub

Новые блоги и статьи Все статьи Все блоги /
Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .

@abaddonx 0 / 0 / 0 Регистрация: 14.05.2014 Сообщений: 6

	Как сделать само столкновение с движущимися блоками? 14.05.2014, 22:35. Показов 2135. Ответов 5 Метки нет (Все метки) Игра заключается в поднятии "смайликом" ключа, пройдя через движущиеся блоки. При достижении цели появляется окно с надписью "победа", при касании блоков "поражение" и откидывается "смайл" на начало. Блоки двигаются таймерами, "смайл" управляется стрелками. Вопрос: Как сделать само столкновение с движущимися блоками? Кто чем может ^^ Вот так примитивно это выглядит) 0

Как сделать само столкновение с движущимися блоками?

Решение