vb 做转动地杆

来源：百度知道 编辑：UC知道 时间：2024/06/23 22:52:37
机械课程设计用的，曲柄滑块机构，要做一个整周转动杆，timer该怎么设定

在窗体里绘制一个line控件。
Const 杆长 = 1000
Const 固定纵 = 2000
Const 固定横 = 2000
Const 速度 = 0.1
Const PI2 = 2 * 3.14159265
Dim 角度 As Single

Private Sub Form_Load()
角度 = 0
Line1.X1 = 固定横
Line1.Y1 = 固定纵
位置
Timer1.Interval = 100
End Sub

Private Sub 位置()
Line1.X2 = 固定横 + 杆长 * Cos(角度)
Line1.Y2 = 固定纵 + 杆长 * Sin(角度)
End Sub

Private Sub Timer1_Timer()
角度 = 角度 + 速度
If 角度 > PI2 Then 角度 = 角度 - PI2
位置
End Sub