Реферат: Использование языка программирования Visual Basic для решения математических задач

Вторым шагом будет редактирование вертикального скрола (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

v = 150

g = 9.8

a = Label2

f = a * 3.14 / 180

100 q = 0.0001

t = t + q

s = v * t * Cos(f) * 2

h = (v * t * Sin(f) - (g * t ^ 2) / 2) * 5.5

Line (X2, Y2)-(x0 + s, y0 - h), 14

X2 = x0 + s

Y2 = y0 - h

If h < 0 Then GoTo 200

GoTo 100

200 End Sub

Значение координат х0 и у0 (начальная точка старта) подбираются индивидуально.

В целом, на этом, задачу можно считать выполненной. На Рис.8 и Рис.9 отображен общий вид формы.