Изобразить движение точки совершающей независемые горманические колебания с частотой w1 - VB

Формулировка задачи:

Вот задачка значения a, W1, W2 вписать произвлоьные через TextBox Изобразить движение точки совершающей независемые горманические колебания с частотой w1 по горизонтали и W2 по вертикали (амплитуда их равна а) считать что в момент времени t точка имееет координаты X=a cos (w1 t) Y=a cos (W2 t)

Код к задаче: «Изобразить движение точки совершающей независемые горманические колебания с частотой w1 - VB»

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

10   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ