Использование языка программирования Visual Basic для решения математических задач
Категория реферата: Рефераты по информатике, программированию
Теги реферата: конспект урока по математике, дипломы рефераты
Добавил(а) на сайт: Vitvinskij.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата
Использование таймера в VB
В большинстве случаев решаемые задачи в той или иной мере привязаны к реальному времени. В VB так же при решении задач можно использовать время - таймер, причем таймеров может быть несколько, они могут работать как вместе, так и поочередно, при этом один процесс решения может останавливаться, а другой - начинаться.
В предлагаемом примере (Приложение 3), решена задача наведения в ручную ракеты (ПТУРС) на цель. Для решения задачи использованы пять таймеров, причем данное решение не является самым удачным и имеет ряд погрешностей. Но для получения начальных навыков в программировании в VB вполне приемлем. Общий вид формы представлен на Рис. 12.
Рис.12.
Особенностью составления, в этом случае, программы является то, что в самом начале указывается перечень элементов, которые, так или иначе, зависят от таймеров:
Private Sub Form_Load()
Label1.Caption = 0
Label2.Caption = 0
Label3.Caption = 0
Label4.Caption = 0
Label5.Caption = 0
Label6.Caption = 0
Label13.Caption = 0
Label15.Caption = 0
Label17.Caption = 0
End Sub
Первый таймер (Private Sub Timer1_Timer()), запускается сразу после начала программы, так как по умолчанию в свойствах элемента Timer1 в графе interval установлена 1, что соответствует 1мл.сек. При этом положение цели (танка) начинает меняться в соответствию с записью:
Label1.Caption = Label1.Caption + Timer1.Interval
a = Label1.Caption
Timer1 работает до тех пор пока ракета не выйдет за приделы 13000 или не попадет в цель:
If X0 > 13000 Then Timer1.Interval = 0
If Label17.Caption < 150 Then Timer1.Interval = 0
Остальные таймеры в начальный момент отключены, т.е. для каждого таймера в графе interval установлен 0.
Работа таймера 3 начинается после нажатия кнопки ПУСК:
Private Sub Command1_Click()
Рекомендуем скачать другие рефераты по теме: класс, скачать реферат бесплатно на тему.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата