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

Picture1.PSet (180 * Cos(i) + 200, 100 * Sin(i) + 140) 'при помощи метода PSet рисуется эллипс

Next

Shape1.Left = -20 'координаты объекта при загрузке формы,таковы,что объект отсутствует на форме

Shape1.Top = -20

fi = 0

Picture1.PSet (380, 240) 'точки на осях x и y,единичный отрезок

Picture1.PSet (20, 40)

End Sub

Private Sub Timer1_Timer()

If Not Timer2.Enabled Then Timer2.Enabled = True

x = 45 * 4 * Cos(fi) + 48 * 4 'траектория движения тела, координаиа Х

y = 25 * 4 * Sin(fi) + 33 * 4 'Y

Shape1.Left = x

Shape1.Top = y

LabelV.Caption = Round(v, 3) 'вывод значения скорости в метку,точность до тысячных

LabelX.Caption = x 'вывод координат в метки

LabelY.Caption = y

LabelK.Caption = Int(fi / 6.28) 'количество кругов

LabelS.Caption = Round(223.112 / 6.28 * fi) 'пройденный путь

fi = fi + (Slider1.Value / 2) * 3.1415 / 180 'закон изменения угла разбиения

End Sub

Private Sub Timer2_Timer()

LabelTime.Caption = LabelTime.Caption + 0.1 'время

v = (Sqr((x2 - x) ^ 2 + (y2 - y) ^ 2)) / (Timer2.Interval) * 1000 'скорость

x2 = x

y2 = y

End Sub

5. Контрольный пример