Страница: 1 |
Страница: 1 |
Вопрос: Анимация в vb(нужна помощь)
Добавлено: 27.04.07 01:00
Автор вопроса: litt
В итоге выполнения моей программы появляется график состоящий из:
1)системы координат
2)парабола
3)прямоугольник, внутри которого находится парабола(по точкам максимума и минимума)
4)Некоторого количества(оно вводится) точек, которые лежат в прямоугольнике
В моем задании нужно еще сделать анимацию: простую и пошаговую.
Вопрос: как мне это реализовать, при помощи каких методов?
Мне нужно, чтобы все появлялось по пунктам, т.е сначала система координат, потом парабола на ней, потом парабола заключалась в прямоугольник... и появлялись точки...
Ответы
Всего ответов: 5
Номер ответа: 1
Автор ответа:
Artyom
Разработчик
Вопросов: 130
Ответов: 6602
Профиль | | #1
Добавлено: 27.04.07 01:05
Ну методами Line наверное, Print, Point...
Или тебе весь код написать?
Номер ответа: 2
Автор ответа:
litt
Вопросов: 6
Ответов: 18
Профиль | | #2
Добавлено: 27.04.07 01:09
у меня код есть... и вырисовывается просто график... без анимации, который включает в себя все вышенаписанные пункты... тоже часть задания..
Номер ответа: 3
Автор ответа:
avdey
ICQ: 219571279
Вопросов: 34
Ответов: 486
Профиль | | #3
Добавлено: 27.04.07 10:54
если нужно чтоб все поочереди появлялось (как я понал), то ставь задержку.
Номер ответа: 4
Автор ответа:
HACKER
Разработчик Offline Client
Вопросов: 236
Ответов: 8362
Профиль | | #4
Добавлено: 27.04.07 23:44
да в таймере, делаешь visible всем по очереди...
Номер ответа: 5
Автор ответа:
litt
Вопросов: 6
Ответов: 18
Профиль | | #5
Добавлено: 30.04.07 23:34
сделала, может кому понадобится:
Создаем процедуру:
Public Sub Wait(seconds)
Timer1.Enabled = True 'âêëþ÷åíèå òàéìåðà
Timer1.Interval = 1000 * seconds 'óñòàíîâêà èíòåðâàëà äëÿ òàéìåðà
While Timer1.Interval > 0
DoEvents
Wend
Timer1.Enabled = False 'âûêëþ÷åíèå òàéìåðà
End Sub
Private Sub Timer1_Timer()
Timer1.Interval = 0
End Sub
Юзаем wait(секунды) там где нужна задержка