Траектория движения точки - VB
Формулировка задачи:
Нарисовать траекторию движения точки,расположенной на ободе колеса,движущегося равномерно с линейной скоростью V
Решение задачи: «Траектория движения точки»
textual
Листинг программы
- Option Explicit
- Private Const pi As Single = 3.14
- Dim i As Long, n As Long
- Dim x0 As Single, y0 As Single, r As Single
- Private Sub Timer1_Timer()
- Form1.Cls
- i = i + 2
- x0 = Form1.ScaleWidth / 2
- y0 = Form1.ScaleHeight / 2
- r = 0.9 * IIf(x0 < y0, x0, y0)
- Form1.PSet (x0 + r * Cos(2 * pi * i / 360), y0 + r * Sin(2 * pi * i / 360)), vbRed
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
