UC知道VB内实现简单的轨迹
来源：百度知道 编辑：UC知道 时间：2024/06/22 00:03:03
我的设计要求是机械臂的运动仿真。其中有一个要求是给一个参数要求实时画出机械臂（即简单的一根线）的轨迹。
其中的第一个是就简单的一条线，当给出这条线的长度，便会再以这根线的一端为原点的坐标系里画出他的轨迹（即一个圆），但是要求不能一下完成，必须跟动画似的，随着这条线围绕原点的转动而把轨迹慢慢的画出来。请问有哪个高手能指点一下，本人不甚感激。本人QQ：20721343.谢谢各位大侠的指导！！
其中的第一个是就简单的一条线，当给出这条线的长度，便会再以这根线的一端为原点的坐标系里画出他的轨迹（即一个圆），但是要求不能一下完成，必须跟动画似的，随着这条线围绕原点的转动而把轨迹慢慢的画出来。请问有哪个高手能指点一下，本人不甚感激。本人QQ：20721343.谢谢各位大侠的指导！！
在窗体上添加一个计时器,添加如下代码,运行后,点击窗体
Dim L As Long
Private Sub form_Click()
On Error Resume Next
L = Val(InputBox("请输入长度L:", "参数输入", "600"))
If L > 0 Then
Timer1.Enabled = True
End If
End Sub
Private Sub Form_Load()
Timer1.Interval = 20
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Dim Cx As Long, Cy As Long
Static theta As Double
Cx = Me.ScaleWidth / 2
Cy = Me.ScaleHeight / 2
Cls
theta = theta + 0.1
Line (Cx, Cy)-(L * Cos(theta) + Cx, L * Sin(theta) + Cy)
End Sub
这个很简单的。
你只要使用坐标变换结合时钟控件就能轻松实现。