哈工大机械原理大作业凸轮机构设计题.docVIP

Harbin Institute of Technology 机械原理大作业二 课程名称： 机械原理 设计题目： 凸轮机构设计 院系机电工程学院 班级 1208101 设 计 者学号 指导教师 设计时间 2014年6月1日Private Sub Command1_Click() Timer1.Enabled = True 开启计时器 End Sub Private Sub Timer1_Timer() Static i As Single Dim s As Single, q As Single i作为静态变量，控制流程；s代表位移；q代表角度 Picture1.CurrentX = 0 Picture1.CurrentY = 0 i = i + 0.1 If i = 45 Then q = i s = 240 * (q / 90) ^ 2 Picture1.PSet Step(q, -s), vbRed ElseIf i = 45 And i = 90 Then q = i s = 120 - 240 * ((90 - q) ^ 2) / (90 ^ 2) Picture1.PSet Step(q, -s), vbGreen ElseIf i = 90 And