Траектория движения точки - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.273 из 5
Похожие ответы