Синусоидальное движение объекта Shape, Visual basic 6.0 Опции

[-CherkaS-]

Уважаемые товарищи программисты!!!!
Прошу прощения у вас за мою тему, но я уже какой день не могу реализовать вот что:

Мне надо сделать синусоидальное движение объекта Shape
пожалуйста кому не трудно выложите пожалуйста код реализации этого или же подробнейший алгоритм как написать код(подробнейший потому что я с бейсиком знаком не очень сильно=))))

Заранее благодарен вам, товарищи программисты!!!!

[CherkaS]

вот что у мя получилось сегодня но он поднимается и все я не могу сделать ограничения чтоб если t дошел до единица пошел вниз до нуля опять вверх и тд

помогите исправить пожалуйста

Код

Dim x As Integer, y As Integer
Private Sub Form_Load()
Show
End Sub
Private Sub Form_Initialize()
With Shape1
    .FillColor = vbRed
    .FillStyle = vbSolid
    .BorderStyle = vbBSNone
End With
With Timer1
    .Enabled = True
    .Interval = 50
End With
x = 0
t = 0
End Sub

Private Sub Timer1_Timer()

t_delta = 0.01
t = t + t_delta



With Shape1
    .Move .Left + x, .Top - y
End With
x = x + 1
y = Sin(t) * 900
End Sub

Сообщение отредактировано: CherkaS - 14.11.2007 14:09