Изобразить движение точки совершающей независемые горманические колебания с частотой w1 - VB
Формулировка задачи:
Вот задачка
значения a, W1, W2 вписать произвлоьные через TextBox
Изобразить движение точки совершающей независемые горманические колебания с частотой w1 по горизонтали и W2 по вертикали (амплитуда их равна а) считать что в момент времени t точка имееет координаты X=a cos (w1 t) Y=a cos (W2 t)
Решение задачи: «Изобразить движение точки совершающей независемые горманические колебания с частотой w1»
textual
Листинг программы
Dim t As Single, y, x, y1, y2 As Single Private Sub Command1_Click() Picture1.Cls Timer1.Interval = 20 End Sub Private Sub Command2_Click() Timer1.Interval = 0 End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Timer1_Timer() t = t + Timer1.Interval / 1000 Picture1.Cls x = Picture1.Height / 2 y = Picture1.Width / 2 w1 = Val(Text1.Text) W2 = Val(Text2.Text) a = Val(Text3.Text) y1 = y + a * Cos(w1 * t) y2 = x + a * Cos(W2 * t) Picture1.Circle (y, y2), 30, vbBlack Picture1.Circle (y1, x), 30, vbBlack End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д