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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д