VB 6 и анимация

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

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

Очень нужна помощь. Никак не могу разобраться. Задание такое - заставить кружок двигаться вниз, вправо, вверх, вправо. С таймерами проблема. Есть значит что-то вроде Shape.Top = Shape.Top --2 а дальше с таймерами замут. If Shape.Top >-2 Then Timer1.Enabled = False Timer2.Enabled = True Timer3.Enabled = False и все остальные таймеры так же у меня идут, но ничего не получается, двигается только в одном направлении Можно пожалуйста таким же образом как-то это сделать, а то это задание в школе (12 класс) и ничего серьезного мы не проходили и не оценят? []http://cs616223.vk.me/v616223543/ccc8/KvAVGPkruOs.jpg[/] Как-то так. А потом еще и чтоб назад по такой же траектории двигался

Решение задачи: «VB 6 и анимация»

textual
Листинг программы
Dim x&(), y&(), i&, upDown&
 
Private Sub Form_Load()
Scale (0, 0)-(3, 2)
ReDim x(0 To 3), y(0 To 3)
x(1) = 1: x(3) = 1
y(0) = 1: y(2) = -1
upDown = 1
Timer1.Interval = 500
Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
With Shape1
  .Left = .Left + upDown * x(i)
  .Top = .Top + upDown * y(i)
End With
i = i + upDown
If i > 3 Or i < 0 Then upDown = -upDown: i = i + upDown
End Sub

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


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

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

11   голосов , оценка 4.273 из 5