用VB凸轮设计说明书.docVIP

凸轮的计算机辅助设计 作业报告 班级：0704201 学号：1070420113 姓名：赵通 指导老师：叶东 任务分析 凸轮的计算机辅助设计。分析法设计凸轮，分为对心偏心，尖顶和滚子几种形式。在给定凸轮应用时的尖顶或滚子高度，使用VB，VC++，等编程语言进行设计，要求能自动生成凸轮图片和动画，程序执行可靠，人机交互界面有友好。 选择VB进行设计。 程序设计流程 程序设计流程如图所示. 程序源代码： 工程1-form1(code) Private Sub Command1_Click() If Not flag = 2 Then fai1 = Val(Text1.Text) * 3.14 / 180 fai2 = Val(Text2.Text) * 3.14 / 180 fai3 = Val(Text3.Text) * 3.14 / 180 fai4 = Val(Text4.Text) * 3.14 / 180 If Not Text4.Text = 360 Then MsgBox 错误！近休止角不是360度, 52, 错误提示 Text4.Text = Text4.SetFocus Exit Sub End If fai4 = Val(Text4.Text) * 3.14 / 180 dfsf End If rb = Val(Text5.Text) e = Val(Text6.Text) h = Val(Text7.Text) If e = rb Then MsgBox 错误！偏心距大于基圆半径, 52, 错误提示 Text5.Text = Text5.SetFocus Text6.Text = Text6.SetFocus Exit Sub End If rb = Val(Text5.Text) e = Val(Text6.Text) If Option1.Value = True Then tianhui = 1 End If If Option2.Value = True Then luqiugang = 1 End If If Option1.Value = False And Option2.Value = False Then luqiugang = 1 End If l = Sqr(rb * rb - e * e) Form1.Hide Form2.Show End Sub Private Sub Form_Load() buchang = 1 fai = 0 fsai = 0 return_value = 0 dudu = 0 zhaotong = 0 If flag = 2 Then Text1.Visible = False Text2.Visible = False Text3.Visible = False Text4.Visible = False Label1.Visible = False Label2.Visible = False Label3.Visible = False Label4.Visible = False End If End Sub 工程1-form2(code) Private Sub Command1_Click() Form2.Scale (-3 * rb, 2.83 * rb)-(3 * rb, -2.83 * rb) Timer1.Interval = 10 End Sub Private Sub Command2_Click() Timer1.Interval = 0 End Sub Private Sub Timer1_Timer() DrawWidth = 6 s1 = tuicheng(fsai) Line (e, l + s1 + rb * 1.5)-(e, l + s1), RGB(255, 0, 0) Cls DrawWidth = 2 Line (0, 2.5 * rb)-(0.9 * e, 2.5 * rb) Line (0.9 * e, 2.5 * rb)-(0.9 * e, 2 * rb) Line (0.9 * e, 2 * rb)-(0, 2 * rb) Line (0, 2 * rb)-(0, 2.5 * rb) Line (1.1 * e, 2.5 * rb)-(2 * e, 2.5 * rb) Line (2 * e, 2.5 * rb)-(2 * e, 2 * r