凸轮轮廓曲线.docVIP

姓名：雷小舟 班级：机制04班 学号：1103010411 利用VB绘制凸轮轮廓曲线及计算相关直角坐标和压力角 VB程序语言如下： Private Sub Command1_Click() 参数初始化 Dim r0%, r1%, h%, e% Dim a1%, a01%, a2%, a02% r0 = Val(InputBox(请输入基圆半径)) r1 = Val(InputBox(请输入滚子半径)) h = Val(InputBox(请输入升程)) e = Val(InputBox(请输入偏距)) a1 = Val(InputBox(请输入推程运动角)) a01 = Val(InputBox(请输入远休止角)) a2 = Val(InputBox(请输入回程运动角)) a02 = Val(InputBox(请输入近休止角)) Text1.Text = r0 Text2.Text = r1 Text3.Text = h Text4.Text = e Text5.Text = a1 Text6.Text = a01 Text7.Text = a2 Text8.Text = a02 Picture1.Scale (-75, 55)-(75, -55) 建立坐标系 Picture1.Line (0, 50)-(0, -50) Picture1.Li