Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 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(секунды) там где нужна задержка

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам