Использование языка программирования Visual Basic для решения математических задач
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: конспект урока по математике, дипломы рефераты
| Добавил(а) на сайт: Vitvinskij.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата
Cls
X1 = Label1 * 0.55 + 500
Line (X1, 4300)-(X1 + 100, 4450), 11, BF
Общий вид записи представлен на рис. 6.
Рис. 5.
Рис. 6.
При этом надо учитывать разницу в масштабах координаты Х1 и значения HScroll. Их согласование обеспечивается выражением:
X1 = Label1 * 0.55 + 500
В принципе, для каждого конкретного случая, значения коэффициентов (0,55 и 500) могут быть различными и требуют индивидуального подбора.
Оператор CLS обеспечивает обнуление изображения цели после каждого обращения к HScroll.
Вторым шагом будет редактирование вертикального скрола (VScroll). Для этого создадим и разместим на рабочей области элемент управления Label 2. Выберем VScroll и в свойствах объекта (Properties-VScroll) изменим значение параметра MAX и Value на 80, что будет соответствовать максимальному углу стрельбы в 80 градусов и начальному положению вертикального скрола в нижней части шкалы. В графе Mouse Pointer можно установить значение 9-Size WE. А чтобы нижнее положение курсора VScroll1, отображаемое элементом Label2 соответствовало 0, необходимо, активировав окно Properties для VScroll1 и записать в содержание формы:
Private Sub VScroll1_Change()
Label2 = 80 - VScroll1
End Sub
Общий вид содержания формы представлен на Рис. 7.
Рис. 7.
Следующим
шагом будет введение активной кнопки, нажатием на которую будет осуществляться
старт (Пуск, Выстрел). Для этого на панели управления выберем новый элемент
Command1 
и устанавливаем его в любом удобном месте
рабочей области формы. При этом в свойствах элемента Properties-Command1 в
строке Caption пропишем новое имя «Start». Активировав содержание формы запишем
для элемента Command1 следующие строки, взятые из уже решенной задачи полета
ядра в QBasic (Приложение 1), правда пока без учета сопротивления воздуха:
Private Sub Command1_Click()
x0 = 480
y0 = 4440
X2 = x0
Y2 = y0
Рекомендуем скачать другие рефераты по теме: класс, скачать реферат бесплатно на тему.
Категории:
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата
Главная