Летящий шарик)

[TiG]

Есть две точки. Надо чтобы от одной точки к другой достаточно плавно, например за секунду прилетел, а не телепортнулся шарик.

Подскажи плз кто что знает по этой теме)

[GSerg]

Расстояние между точками.
Делим на N частей.
За единицу времени двигаем шарик на одну часть.

[Faust]

Где-то так:

Код: Выделить всё


Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Dim t as Long, dt as long, sx as integer, sy as integer, dx as integer, dy as integer, cx as integer, cy as integer
' sx, sy - координаты начала движения; dx, dy - координаты смещения
t=timegettime
dt=0
Do
  ' 1000 - подолжительность полёта шарика в мс
  cx=sx+(dt*dx+500)\1000
  cy=sy+(dt*dy+500)\1000
  Call PaintBall(cx,cy) ' нарисовать шарик
  DoEvents
  dt=timegettime-t
  Call ClearBall(cx,cy) ' зачистить следы
Loop Until dt>1000

[TiG]

Сенк) Подскажи как продекларировать PaintBall

[Faust]

Никак. Почем я знаю, какой у тебя шарик? Просто я ввел некоторые процедуры рисования/затирания шарика, чтобы наглядней была суть работы.