本项目运用Visual Basic编程技术，模拟了曲柄连杆机构的动态工作过程，旨在通过计算机视觉化展示机械工程原理。
程序代码新建窗体，并添加Command1, Label1, HScroll1, Timer1 和 Picture1 控件。
定义常量 pi 为 3.1415926。
声明整型变量 angle。
在 Form_Load() 过程中进行以下操作：
- 调整空间尺寸，位置及初始参数
- 设置窗体的 ScaleMode 属性为 3
- 将窗体标题设置为 曲柄滑块机构的演示
- 窗体宽度设为 5000 单位, 高度设为 3500 单位
- 对 Picture1 控件进行如下操作：
- 设置 ScaleMode 属性为 3
- 启用自动重绘功能 (AutoRedraw = True)
- 将Picture1 移动到窗体的左上角，宽度和高度分别为 Me.ScaleWidth 和 150 单位
- 对 Command1 控件进行如下操作：
- 设置其 Caption 属性为 开始(&B)
- 将Command1 的位置设置为 (20, 160), 宽度和高度分别设为70单位，30单位
- 对 Label1 控件进行如下操作:
- 将Label1的Caption属性值设置为速度：
- 设置 Label1的位置到(120, 170)，宽度和高度分别为100单位、30单位
- HScroll1控件的相关设定：
- 最小值设为 1，最大值 设为 20
- 将Hscroll 的位置设置为 (160, 160), 宽度和高度分别设为 140 单位、30单位
- 对 Timer 控件进行如下操作：
- 设置其 Interval 属性为 20 毫秒
- 禁用定时器(Enabled = False)
5星
