VB 6 и анимация

@KnightFury · Регистрация: 12.05.2014

Author24 — интернет-сервис помощи студентам

Очень нужна помощь. Никак не могу разобраться. Задание такое - заставить кружок двигаться вниз, вправо, вверх, вправо. С таймерами проблема.
Есть значит что-то вроде
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[/]
Как-то так. А потом еще и чтоб назад по такой же траектории двигался

@Казанский · 12.05.2014, 22:52

KnightFury, как-то так. Shape1 разместите близко к левому верхнему углу формы.

Visual Basic

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

@KnightFury · 12.05.2014, 23:20 **[ТС]**

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

@Казанский · 13.05.2014, 00:00

Сообщение от KnightFury

а можно как-нибудь с таймерами?

Что, одного (Private Sub Timer1_Timer()) недостаточно? Ну, запускайте/останавливайте в зависимости от i (номер состояния, от 0 до 3).

@KnightFury · 13.05.2014, 00:10 **[ТС]**

Так в том вся проблема. Нужно много таймеров (по его запросам) и когда я пытаюсь так сделать, у меня они все путаются - я не могу понять, где и в каком моменте и который из них нужно отключить/включить

Добавлено через 3 минуты
Стоп! Я идиот! Он же не просит сохранять форму, а просит только готовый exe файл. Спасибо, в общем, все ок )

Добавлено через 42 секунды
у меня тут на компе нет VB, код точно работает?

@KnightFury 0 / 0 / 0 Регистрация: 12.05.2014 Сообщений: 4
		1
	VB 6 и анимация 12.05.2014, 22:05. Показов 1460. Ответов 4 Метки нет (Все метки) Очень нужна помощь. Никак не могу разобраться. Задание такое - заставить кружок двигаться вниз, вправо, вверх, вправо. С таймерами проблема. Есть значит что-то вроде 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[/] Как-то так. А потом еще и чтоб назад по такой же траектории двигался 0

@KnightFury 0 / 0 / 0 Регистрация: 12.05.2014 Сообщений: 4
	12.05.2014, 23:20 [ТС]	3
	большое спасибо, а можно как-нибудь с таймерами? а то наверняка не зачтет, скажет, что мы такого не учили 0

@Казанский 15153 / 6426 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	13.05.2014, 00:00	4
	Сообщение от KnightFury а можно как-нибудь с таймерами? Что, одного (Private Sub Timer1_Timer()) недостаточно? Ну, запускайте/останавливайте в зависимости от i (номер состояния, от 0 до 3). 0

@KnightFury 0 / 0 / 0 Регистрация: 12.05.2014 Сообщений: 4
	13.05.2014, 00:10 [ТС]	5
	Так в том вся проблема. Нужно много таймеров (по его запросам) и когда я пытаюсь так сделать, у меня они все путаются - я не могу понять, где и в каком моменте и который из них нужно отключить/включить Добавлено через 3 минуты Стоп! Я идиот! Он же не просит сохранять форму, а просит только готовый exe файл. Спасибо, в общем, все ок ) Добавлено через 42 секунды у меня тут на компе нет VB, код точно работает? 0

VB 6 и анимация

Решение