мяч в vba

@StileSex · Регистрация: 12.06.2013

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

Изобразить движение футбольного мяча после удара (задается начальное положение мяча и вектор скорости). В процессе полёта мяч ударяется о пол, потолок и стены,стены поле есть,но не пойму как сделать(

@proft · 13.06.2013, 09:16

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
Dim Up As Boolean, toLeft As Boolean
Dim a_x, a_y
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
            ' vbKeyLeft --- 37
            ' vbKeyUp ----- 38
            ' vbKeyRight -- 39
            ' vbKeyDown --- 40
   With Bita1
      If KeyCode = 37 And .Left > 0 Then .Left = .Left - 240
      If KeyCode = 39 And .Left < 5400 Then .Left = .Left + 240
         
      If KeyCode = 38 And .Top > 0 Then .Top = .Top - 120
      If KeyCode = 40 And .Top < 6600 Then .Top = .Top + 120
   End With
   
   If KeyCode = vbKeyEscape Then End
End Sub
 
Private Sub Form_Load()
   Randomize
   a_x = 60: a_y = 30
End Sub
 
Private Sub Timer1_Timer()
   Dim d_x As Integer, d_y As Integer
   
   With Ball
      d_x = Bita1.Left - .Left
      d_y = Bita1.Top - .Top
      
      .Top = .Top + a_y
      .Left = .Left + a_x
      
      If .Left <= 0 Then a_x = Abs(a_x) 'ëåâàÿ ñòåíà
      If .Left >= 6720 Then a_x = -Abs(a_x) 'ïðàâàÿ ñòåíà
      
      If .Top <= 0 Then a_y = Abs(a_y) 'ïîòîëîê
      If .Top >= 6480 Then a_y = -Abs(a_y) 'ïîë
      
      If d_x >= -1440 And d_x <= 120 And d_y = 360 Then a_y = -Abs(a_y) 'âåðõíÿÿ
      If d_x >= -1440 And d_x <= 120 And d_y = -240 Then a_y = Abs(a_y) 'íèæíÿÿ
      
      If d_y >= -120 And d_y <= 240 And d_x = 360 Then a_x = -Abs(a_x) 'ëåâàÿ
      If d_y >= -120 And d_y <= 240 And d_x = -1680 Then a_x = Abs(a_x) 'ïðàâàÿ
   End With
End Sub
 
'   Dim a()
'   a = Array(10, 15, 30, 45, 60)
'   k = Int(Rnd * 5)
'   a_x = a(k)    Debug.Print .Left, .Top, k, a(k)

@Апострофф · 13.06.2013, 09:51

Не по теме:

Ну если в невесомости, вакууме и при абсолютной упругости, то наверно так:)!

@StileSex · 13.06.2013, 10:41 **[ТС]**

Извините не до писал что В процессе полёта мяч ударяется о пол, потолок и стены, "теряя при каждом ударе часть энергии"вот,на сколько понимаю полную его остановку.

@The trick · 13.06.2013, 10:44

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

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
Option Explicit
 
Private Type Vector
    Dx As Single
    Dy As Single
End Type
 
Dim Vec As Vector, Pos As Vector
Dim Fri As Single, Loss As Single, Rad As Single
Dim Bf As Boolean
 
Private Sub Form_Load()
    Rad = 20: Loss = 1.2: Fri = 1.01
    Pos.Dx = Me.ScaleWidth / 2
    Pos.Dy = Me.ScaleHeight / 2
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim Dx As Single, Dy As Single, R As Single
    Dx = X - Pos.Dx: Dy = Y - Pos.Dy
    R = Sqr(Dx * Dx + Dy * Dy)
    If R < Rad Then Bf = True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim Dx As Single, Dy As Single
    If Not Bf Then Exit Sub
    Dx = X - Pos.Dx: Dy = Y - Pos.Dy
    Vec.Dx = -Dx: Vec.Dy = -Dy
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Bf = False
End Sub
Private Sub LossVec()
    If Vec.Dx Then Vec.Dx = Vec.Dx / Loss
    If Vec.Dy Then Vec.Dy = Vec.Dy / Loss
End Sub
Private Sub tmrTimer_Timer()
    Me.Cls
    If Bf Then
        Me.Circle (Pos.Dx, Pos.Dy), Rad, vbRed
        Me.Line (Pos.Dx, Pos.Dy)-Step(-Vec.Dx, -Vec.Dy), vbGreen
    Else
        Vec.Dx = Vec.Dx / Fri: Vec.Dy = Vec.Dy / Fri
        Pos.Dx = Pos.Dx + Vec.Dx
        Pos.Dy = Pos.Dy + Vec.Dy
        If Pos.Dx > Me.ScaleWidth - Rad Then Pos.Dx = Me.ScaleWidth - Rad: Vec.Dx = -Vec.Dx: LossVec
        If Pos.Dx < Rad Then Pos.Dx = Rad: Vec.Dx = -Vec.Dx: LossVec
        If Pos.Dy > Me.ScaleHeight - Rad Then Pos.Dy = Me.ScaleHeight - Rad: Vec.Dy = -Vec.Dy:  LossVec
        If Pos.Dy < Rad Then Pos.Dy = Rad: Vec.Dy = -Vec.Dy:  LossVec
        Me.Circle (Pos.Dx, Pos.Dy), Rad
    End If
    Me.Refresh
End Sub

@StileSex · 13.06.2013, 10:51 **[ТС]**

The trick Огромное спасибо,то что нужно

@Alex77755 · 13.06.2013, 12:45

Можно сделать поправочку на земное притяжение. Реальней будет смотреться

Visual Basic
1
2
        Pos.Dx = Pos.Dx + Vec.Dx
        Pos.Dy = Pos.Dy + Vec.Dy + 2

@The trick · 13.06.2013, 13:07

Alex77755, Ну это вид сверху как бы был, мяч не летал а по земле катался)

@Alex77755 · 13.06.2013, 16:07

Ясно

Добавлено через 5 минут
А задача-то не так проста как кажется на первый взгляд.
И решена-то только на треть! Последнюю треть.

В процессе полёта мяч ударяется о пол, потолок и стены

вопрос как решить полностью!? В аксАно-метрии?

Новые блоги и статьи Все статьи Все блоги /
Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. 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 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .

мяч в vba

Решение

Решение

@Апострофф
	13.06.2013, 09:51
	Не по теме: Ну если в невесомости, вакууме и при абсолютной упругости, то наверно так:)! 1

@StileSex 0 / 0 / 0 Регистрация: 12.06.2013 Сообщений: 18
	13.06.2013, 10:41 [ТС]
	Извините не до писал что В процессе полёта мяч ударяется о пол, потолок и стены, "теряя при каждом ударе часть энергии"вот,на сколько понимаю полную его остановку. 0

@StileSex 0 / 0 / 0 Регистрация: 12.06.2013 Сообщений: 18
	13.06.2013, 10:51 [ТС]
	The trick Огромное спасибо,то что нужно 0

@The trick Модератор 10057 / 3902 / 884 Регистрация: 22.02.2013 Сообщений: 5,853 Записей в блоге: 79
	13.06.2013, 13:07
	Alex77755, Ну это вид сверху как бы был, мяч не летал а по земле катался) 1