50分！VB程序高手进！用VB程序实现曲柄连杆机构运动

来源：百度知道 编辑：UC知道 时间：2024/05/24 03:58:08
这个程序怎么做？（参考图片我空间相册里面有）谁能帮我组出来，源代码以及控件，控件应该怎么建立？尽量要源代码，控件的建立用语言描述吧！多谢了！好的答案给50分哈！！

'新建窗体，添加command1,label1,hscroll1,timer1,picture1
Const pi = 3.1415926
Dim angle As Integer
Private Sub Form_Load() '调整空间尺寸，位置及初始参数
Me.ScaleMode = 3
Me.Caption = "曲柄滑块机构的演示"
Me.Width = 5000
Me.Height = 3500
Picture1.ScaleMode = 3
Picture1.AutoRedraw = True
Picture1.Move 0, 0, Me.ScaleWidth, 150
Command1.Caption = "开始(&B)"
Command1.Move 20, 160, 70, 30
Label1.Caption = "速度："
Label1.Move 120, 170, 100, 30
HScroll1.Min = 1
HScroll1.Max = 20
HScroll1.Move 160, 160, 140, 30
Timer1.Interval = 20
Timer1.Enabled = False
End Sub
Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
If Timer1.Enabled Then
Command1.Caption = "暂停(&S)"
Else
Command1.Caption = "开始(&B)"
End If
End Sub
Sub draw(