Курсовая работа: Движение по эллиптическому маршруту с регулируемой скоростью и графической визуализацией процесса

Переменная fi изменяется по закону fi = fi + (Slider1.Value / 2) * 3.1415 / 180, т.е. угол разбиения, а следовательно и скорость объекта Shape 1 , зависит от свойства Value, объекта Slider1, иначе говоря от положения бегунка.

Число полных кругов, пройденных объектом Shape 1, рассчитывается по формуле k = Int(fi / 6.28), и после расчёта выводится в соответствующую метку LabelK.Caption = k.

Пройденный телом путь, рассчитывается по формуле S = Round(223.112 / 6.28 * fi).

Число 223.112 – это длина эллипса в метрах, рассчитана с помощью определённого интеграла:

4*.

После расчёта значение выводится в соответствующую метку LabelS.Caption = S.

Свойство Interval объекта Timer 1 , равно 1, это значит, что все описанные выше действия повторяются 1 раз в миллисекунду. Величина интервала подобрана опытным путём.

В программном коде процедуры Timer2_Timer() осуществляется подсчёт времени, по формуле LabelTime.Caption = LabelTime.Caption + 0.1,а свойство Interval объекта Timer2 равно 100, что обеспечивает отсчёт времени в секундах, с точностью до десятых.

Скорость объекта Shape 1 , рассчитывается по формуле v = (Sqr((x2 - x) ^ 2 + (y2 - y) ^ 2)) / (Timer2.Interval) * 1000. Расстояние между двумя соседними точками определяется как корень квадратный из суммы квадратов разностей координат этих точек, и делится на время, т.е интервал таймера Timer 1.

3. Разработка блок-схемы

Представим графический алгоритм, в виде блок-схемы, для процедуры Private Sub Timer1_Timer(), отвечающей за передвижение тела по эллиптической траектории.

4. Текст программы на VB

Dim fi As Double 'угол'

Dim x As Integer 'текущая координата Х

Dim y As Integer 'текущая координата Y

Dim x2 As Integer

Dim y2 As Integer

Dim v As Single 'скорость тела

Private Sub Command1_Click()

If Slider1.Value = 0 Then Timer1.Enabled = False Else Timer1.Enabled = True 'при нажатии на СТАРТ если скорость установлена 0,тело не движется

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False 'кнопка СТОП.Движение тела и отсчёт времени прекращается.

Timer2.Enabled = False

End Sub

Private Sub Form_Load()

Picture1.DrawWidth = 8 'устанавливается толщина линии 8 пикселей