Как сделать "выстрел" объектом? - VB

Узнай цену своей работы

Формулировка задачи:

есть объект command1 ПОсле клика мышкой объекс напраявляется в координаты куда кликнул мышкой ?
и как потом пускать объект кнопку в напрвление куда кликнул мышкой ? Что то не пойму угол вычислять я не умею ? command1.left= Как тут вычислить направление mx ? commd1.top= Как тут вычислить направление my ?

Решение задачи: «Как сделать "выстрел" объектом?»

textual
Листинг программы
Option Explicit
Dim dx As Single, dy As Single, cnt As Long
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If cnt Then Exit Sub
  dx = X - Command1.Left
  dy = Y - Command1.Top
  cnt = Sqr(dx ^ 2 + dy ^ 2) / Width * 50
  dx = dx / cnt
  dy = dy / cnt
 
  Timer1.Interval = 10
  Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
  If cnt Then
    cnt = cnt - 1
    With Command1
      .Left = .Left + dx
      .Top = .Top + dy
    End With
  Else
    Timer1.Enabled = False
  End If
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 3.643 из 5
Похожие ответы