Программа написана на языке высокого уровня Visual Basic.
При разработке были использованы следующие технологии:
· работа с массивами данных;
· работа с таблицей DataGridView;
· работа с библиотекой ZedGraph.dll и компонентом ZedGrarh, используемого для вывода графиков на экран;
· работа с компонентом MenuStrip, используемого для создания меню программы.
Основные процедуры/классы системы
В программе используются следующие основные процедуры:
1. Вычисление координат X и Y в момент времени t и заполнение списка координат list1 данными:
Dim t As New Integer
Dim Vx, Vy, x, y, g, rad, b, a1 As Double
g = 9.80665
Vx = 0, Vy = 0
x = 0, y = 0
rad = Math.PI / 180
Dim list1 As New ZedGraph.PointPairList
Dim ex As New Boolean
ex = False
t = 0
While ex = False
Vx = V * Math.Cos(a * rad)
x = Vx * t
Vy = V * Math.Sin(a * rad)
y = Vy * t - g * t * t / 2
If y < 0 Then
Dim x1, x2, y1, y2 As Double
x2 = x
y2 = y
x1 = Vx * (t - 1)
y1 = Vy * (t-1) - g * (t-1) * (t-1) / 2
a1 = (x2 - x1) / (y2 - y1)
b = y1 - a1 * x1
x = -b / a1
y = 0
ex = True
End If
list1.Add(x, y)
t = t + 1
End While
CreateGraph(zg1, list1)
zg1.Refresh()
2. Вывод графика на экран
Private Sub CreateGraph(
ByVal zg As ZedGraph.ZedGraphControl,
ByVal list1 As ZedGraph.PointPairList)
Dim myPane As ZedGraph.GraphPane
|
|
myPane = zg1.GraphPane
myPane.Title.Text = "Движение тела, брошенного
под углом к горизонту"
myPane.XAxis.Title.Text = "X(м)"
myPane.YAxis.Title.Text = "Y(м)"
myPane.CurveList.Clear()
myPane.AddCurve("График функции", list1,
Color.DarkGray, ZedGraph.SymbolType.VDash)
myPane.Chart.Fill = New ZedGraph.Fill(
Color.WhiteSmoke, Color.Azure, 45.0F)
myPane.Fill = New ZedGraph.Fill(Color.White,
Color.FromArgb(220, 220, 255), 45.0F)
zg1.AxisChange()
End Sub
Создание новых классов для реализации в программе методов движения тела, брошенного под углом к горизонту, не потребовалось.
Инсталляция программного продукта
Программа не требует предварительной установки. Необходимо лишь скопировать исполняемый файл «Движение тела, брошенного под углом к горизонту.exe» в папку «Program files» и запустить его двойным нажатием мыши на значке приложения.. При этом гарантируется полноценная работа данного приложением, даже если оно запущено не от имени администратора ПК.
При выдачи сообщения (рис. 2.1) об необходимо установить на компьютер microsoft.net framework 3.0. Для этого необходимо запустить файл «dotnetfx.exe» с диска и далее следовать указаниям инсталлятора.
Рис. 2.1. Сообщение об ошибке