机械原理课程设计曲柄与移动从动件型近似等速平面六杆机构

《机械原理课程设计曲柄与移动从动件型近似等速平面六杆机构》由会员分享，可在线阅读，更多相关《机械原理课程设计曲柄与移动从动件型近似等速平面六杆机构（23页珍藏版）》请在装配图网上搜索。

1、机械原理课程设计（曲柄与移动从动件型近似等速平面六杆机构） 机械原理课程设计 说明书 设计题目：曲柄与移动从动件型近 似等速比平面六杆机构 年 级： 大 二 专 业： 机械电子工程 班 级： XXXXXXXXXX 姓 名： XXXXXX 学 号： xxxxxxxxxx 指导老师： XXXXXXXX 1、 设计题目、设计任务和要求l 设计题目：图3.1为曲柄与移动从动件型近似等速比平面六杆机构。令，当，曲柄从沿方向转动到时，从动件在其位移中部做近似等速比运动。导杆的半摆角，当已知从动件的工作行程H时，从动件关于点的距离，当已知曲柄的杆长时，、之间的距离。该机构的行程速比系数，最小传动角，的方位角

2、，的方位角。 图3.1 第一型近似等速比平面六杆机构 l 设计任务和要求：机构的设计参数为，；，。（1） 制作机构的动画，以上述参数作为默认设计，将设计成可以调节的，通过滚动条的方式实现的变化，的默认值为。（2） 在窗体上生成滑块5的位移、速度与加速度关于的曲线，的变化区间为，参见图3.3。（3） 生成滑块的、与的Excel数据表文件，的变化区间为。二、机构设计三个杆件+两个滑块，如图3.1所示原动件（杆1）绕O1转动,通过滑块2使导杆3绕O3做摆动，杆3摆动通过滑块4使导杆5在机架6内水平移动。该构件的自由度:，所以该机构的运动是唯一确定的。机构的设计参数为，。有了以上的参数可以在VB的pi

3、cturebox控件的picture1中的绘制机构简图，首先要先定义坐标系，具体程序为：Picture1.Scale (-800, 300)-(200, -500)，然后根据图3.1和所给的参数在对应的坐标系上来绘制，起始位置是当原动件（即杆1）的转角为0（即水平位置）。杆1与机架6形成转动副，与滑块2同样形成转动副；杆3与滑块2组成移动副，与滑块4构成移动副；杆5与滑块4构成转动副，与机架6构成移动副，不过上述的滑块都不能用矩形来画，要用线条组合。同样为了在窗体上生成滑块5的位移、速度与加速度关于的曲线，的变化区间为，在picturebox控件的picture2定义坐标系，具体程序为：Pic

4、ture2.Scale (-0.25 * PI, 500)-(2.25 * PI, -500)，为了能清楚表示X轴上的坐标用Line?.X1 = ?,Line?.Y1 = ?的方法来标上刻度，用 Label标签来标上刻度值。另外为了实现picture1和picture2的动画，还得画上相应的Command命令按钮（开始、暂停、刷新、退出）、定时器、CommonDialog对话框控件；为了显示运动时picture1中滑块5的即时数据（包括S5、V5、a5）和其曲线图，还需要text文本框来显示、Check复选框来控制；为了能调节机构原动件的运动角速度，需要HScrollBar水平滚动条；最后还要

5、一个Command命令按钮来导出Excel数据文件。整体设计的初始界面如下截图：三、机构动画（VB程序详见附录七）设计原理：通过Visual Basic程序语言，使机构实现运动。l 先确定原动件的运动，其程序为：Line3.X2 = 100 * Cos(1) Line3.Y2 = 100 * Sin(1)l 杆1与滑块2连接的转动副（即shape3）的运动轨迹，其程序为：Shape3.Top = Line3.Y2 + 7.5Shape3.Left = Line3.X2 - 7.5l 滑块2的运动轨迹，其程序为：Line16.X2 = Line3.X2 - Sqr(19.5 2 + 37 2)

6、* Cos(Atn(39 / 74) + )Line16.Y2 = Line3.Y2 - Sqr(19.5 2 + 37 2) * Sin(Atn(39 / 74) + )Line16.X1 = Line16.X2 - 39 * Sin()Line16.Y1 = Line16.Y2 + 39 * Cos()Line17.X1 = Line16.X1 + 74 * Cos()Line17.Y1 = Line16.Y1 + 74 * Sin()Line17.X2 = Line16.X2 + 74 * Cos()Line17.Y2 = Line16.Y2 + 74 * Sin()Line15.X1

7、= Line16.X1Line15.Y1 = Line16.Y1Line15.X2 = Line17.X1Line15.Y2 = Line17.Y1Line14.X1 = Line16.X2Line14.Y1 = Line16.Y2Line14.X2 = Line17.X2Line14.Y2 = Line17.Y2l 把杆3分成两部分，其中O3A的轨迹，其程序为：Line5.X2 = Line16.X2 - 0.5 * 39 * Sin()Line5.Y2 = Line16.Y2 + 0.5 * 39 * Cos()Line58.X1 = Line17.X2 - 0.5 * 39 * Sin(

8、)Line58.Y1 = Line17.Y2 + 0.5 * 39 * Cos()Line58.X2 = 384 * Cos() - 200Line58.Y2 = 384 * Sin()l 杆5与滑块4够成的转动副的运动轨迹，其程序为：Shape5.Left = -640.5Shape5.Top = -433 * Tan() + 7.5l 杆5的运动轨迹，其程序为：Line8.X1 = -433 - 200Line8.Y1 = -433 * Tan()Line8.X2 = -433 - 200Line8.Y2 = -433 * Tan() - 650l 滑块4的运动轨迹，其程序为：Line12

9、.X1 = Line8.X1 - 37 * Cos() - 39 / 2 * Sin()Line12.Y1 = Line8.Y1 - 37 * Sin() + 39 / 2 * Cos()Line12.X2 = Line12.X1 + 39 * Sin()Line12.Y2 = Line12.Y1 - 39 * Cos()Line11.X1 = Line12.X1 + 74 * Cos()Line11.Y1 = Line12.Y1 + 74 * Sin()Line11.X2 = Line12.X2 + 74 * Cos()Line11.Y2 = Line12.Y2 + 74 * Sin()Li

10、ne10.X1 = Line12.X1Line10.Y1 = Line12.Y1Line10.X2 = Line11.X1Line10.Y2 = Line11.Y1Line9.X1 = Line12.X2Line9.Y1 = Line12.Y2Line9.X2 = Line11.X2Line9.Y2 = Line11.Y2l 杆3的另一部分O3B的运动轨迹，其程序为：Line7.X1 = Line11.X1 + (Line11.X2 - Line11.X1) / 2Line7.Y1 = Line11.Y2 + (Line11.Y1 - Line11.Y2) / 2Line7.X2 = -200

11、Line7.Y2 = 0Line13.X2 = Line12.X1 + (Line12.X2 - Line12.X1) / 2Line13.Y2 = Line12.Y2 + (Line12.Y1 - Line12.Y2) / 2Line13.X1 = -576 * Cos() - 200Line13.Y1 = -576 * Sin()l 另外picturebox控件的picture2中的曲线动画，其程序为：If f = True Then If Check1.Value = 1 Then Picture2.PSet (1, S5 / 2), RGB(255, 0, 0) 为了能在P2中能够全部

12、显示出来，将S5、V5、a5分别除以2、20、200，（以合适的比例缩小）这样能以合适的比例在P2中显示 End If If Check2.Value = 1 Then Picture2.PSet (1, V5 / 20), RGB(0, 255, 0) End If If Check3.Value = 1 Then Picture2.PSet (1, a5 / 200), RGB(255, 0, 255) End IfEnd Ifl Frame1容器中显示滑块5的位移、速度和加速度，其程序为：Text2.Text = Format(S5 / 1000, 0.0000000000)Text3.

13、Text = Format(V5 / 1000, 0.0000000000)Text4.Text = Format(a5 / 1000, 0.0000000000)l Command 6（数据文件输出）控件程序：Private Sub Command6_Click() Dim File_Path As String SaveFile.CancelError = True On Error GoTo ErrHandler SaveFile.Flags = cdlOFNHideReadOnly SaveFile.Filter = Excel文件 (*.xls)|*.xls SaveFile.Fil

14、terIndex = 2 SaveFile.ShowSave File_Path = SaveFile.FileName Call Kill_File(File_Path) Set ex = CreateObject(Excel.Application) Set exwbook = Nothing Set exsheet = Nothing Set exwbook = ex.workbooks().Add Set exsheet = exwbook.worksheets.Add exwbook.worksheets(1).Activate ex.cells(1, 1).Value = 2： e

15、x.cells(1, 2).Value = S5： ex.cells(1, 3).Value = V5： ex.cells(1, 4).Value = a5： Dim i As Integer 1 = HScroll1.Value = 0 For i = 1 To 360 2 = 2 + 1 1 = 2 / 180 * PI c = 1 / (1 + q 2 + 2 * q * Cos(1) = Atn(q * Sin(1) / (1 + q * Cos(1) 1 = c * q * (q + Cos(1) 2 = c 2 * q * (q 2 - 1) * Sin(1) 3 = c 3 *

16、q * (q 2 - 1) * (2 * q * (1 + (Sin(1) 2) + (1 + q 2) * Cos(1) 4 = c 4 * q * (q 2 - 1) * Sin(1) * (8 * q * (1 - q 2) * Cos(1) + 8 * q 2 * (Cos(1) 2 + 12 * q 2 * (1 + (Sin(1) 2) - (1 + q 2) 2) S5 = 0.5 * H - d2 * Tan() VL5 = -d2 / (Cos() 2 al5 = 2 * VL5 * Tan() V5 = VL5 * 1 * 1 a5 = (al5 * (1) 2 + VL5

17、 * 2) * 1 2 ex.cells(i + 1, 1).Value = Format(2, 0.00000) ex.cells(i + 1, 2).Value = Format(S5 / 1000, 0.00000) ex.cells(i + 1, 3).Value = Format(V5 / 1000, 0.00000) ex.cells(i + 1, 4).Value = Format(a5 / 1000, 0.00000) Next i exwbook.sheets(1).Name = 运动分析 exwbook.worksheets(1).Activate exwbook.save

18、as File_Path Set exwbook = Nothing Set exsheet = Nothing ex.quit MsgBox 数据保存完毕！, vbOKOnly + vbInformation, 数据保存ErrHandler:End Subl picturebox控件的picture1中的机构动画截图：l picturebox控件的picture2中的曲线动画截图：l Frame1容器中显示滑块5的位移、速度和加速度截图：4、 机构运动分析l 运动分析：在图3.1中，当曲柄1的角位移为时，导杆3上的长度，的长度，导杆3的角位移。对求关于的一二阶导数，令，于是得到 当导杆3的角

19、位移为时，滑块5的位移为：l 相应的VB程序为： = + 1 * 180 / PI / 10001 = / 180 * PI -的单位为弧度-c = 1 / (1 + q 2 + 2 * q * Cos(1) = Atn(q * Sin(1) / (1 + q * Cos(1)1 = c * q * (q + Cos(1)2 = c 2 * q * (q 2 - 1) * Sin(1)3 = c 3 * q * (q 2 - 1) * (2 * q * (1 + (Sin(1) 2) + (1 + q 2) * Cos(1)4 = c 4 * q * (q 2 - 1) * Sin(1) *

20、(8 * q * (1 - q 2) * Cos(1) + 8 * q 2 * (Cos(1) 2 + 12 * q 2 * (1 + (Sin(1) 2) - (1 + q 2) 2)S5 = 0.5 * H - d2 * Tan()VL5 = -d2 / (Cos() 2al5 = 2 * VL5 * Tan()V5 = VL5 * 1 * 1a5 = (al5 * (1) 2 + VL5 * 2) * 1 2l 根据导出的Excel数据文件（在该文件夹内），做出Excel曲线，截图为：数据表为：(具体数据详见该文件夹下的Excel数据文件)2:(0)S5：(m)V5：(m/s)a5：(m

21、/s2)10.24748-1.443330.0000120.24496-1.443330.0000730.24244-1.443330.0002340.23992-1.443330.0005550.2374-1.443330.00107.3560.26008-1.44333-0.000553570.25756-1.44333-0.000233580.25504-1.44333-0.000073590.25252-1.44333-0.000013600.25-1.443330因为S5、V5和a5的幅值相差相对较大，为了能更好的看出它们随角度变 化而变化的情况，分别根据Excel中的数据做出曲线图

22、：位移：(m) 速度：(m/s) 加速度：(m/s2) 5、 .设计的心得体会和收获 作为一名机械电子工程的大二的学生，我觉得能做类似的课程设计是十分有意义，而且是十分必要的，机电专业的学生就是要将机器或机构通过一系列方法实现其功能。在已度过的大二的时间里我们大多数接触的是专业基础课，我们在课堂上掌握的仅仅是专业基础课的理论面，如何去锻炼我们的实践面？如何把我们所学到的专业基础理论知识用到实践中去呢？我想做类似的课程设计就为我们提供了良好的实践平台。在做本次课程设计的过程中，我感触最深的当数查阅大量的资料。为了让自己的设计的机构和所编的程序更加完善，更加符合题目的要求标准，一次次翻阅Visua

23、l Basic程序设计基础课本和网上资料是十分必要的，同时也是必不可少的。我们是在作设计，编程是细心活。 作为一名专业学生掌握一门或几门制图编程软件同样是必不可少的，VB正是这种既要绘图又要编程的软件，虽然大一时学过，但那些都是基础，而且一直没有机会能将所学到的知识运用到我们的专业课程上，然而本次课程设计就是一个很好的机会，我们即将专业知识通过软件编程，了解了“曲柄与移动从动件兴近似等速比平面六杆机构”的运动原理，也将我们大一时学的VB软件知识温故一遍，可谓一举两得，收获颇大。 虽然在画图或者编程的过程中碰到了很多的困难，特别是编程，一次又一次的出现问题，一次又一次的修改程序，使得其每个构件的

24、运动都能符合题目要求。特别有必要要提一下Excel的数据文件输出，这个问题将近困扰了我大半个月，机构能顺利运动，但就是不能导出数据文件，当然在这过程当中也不断询问老师，不断查资料，最后发现是电脑系统原因，最后借用别人XP系统的电脑，顺利导出数据文件。 在本次课程设计过程中我学到了很多，我们要不断温故以前学过的知识，当我们要去用到它时再去温故，恐怕有点迟了；还有遇到问题不要气馁，不要抱怨，就像指导老师说的一样，要善于查找问题，去不断的攻克，当我们解决问题的时候，我们就又提升了一个档次.话说回来，由于自己能力有限，本次课程设计难免还会有错误或者不完善的地方，还望老师批评指正。6、 参考文献 王洪欣

25、、戴宁 主编-机械原理课程设计上机与设计. 东南大学出版社出版，2007. 陈庆章 主编-Visual Basic 程序设计基础. 浙江科技技术出版社出版，2010. 王文奎 主编-机械原理. 电子工业出版社出版，2007.七、附录（完整vb程序）Option ExplicitDim As SingleDim 1, 2 As SingleDim 1 As SingleDim f As BooleanDim c As Single, S5 As Single, VL5 As Single, al5 As Single, a5 As Single, V5 As SingleDim , 1, 2,

26、3, 4 As SingleDim ex As Object, exwbook As Object, exsheet As ObjectConst PI = 3.1415926Const a = 100Const q = 0.5Const d1 = 200Const d2 = 433Const H = 500Private Sub Command6_Click() Dim File_Path As String SaveFile.CancelError = True On Error GoTo ErrHandler SaveFile.Flags = cdlOFNHideReadOnly Sav

27、eFile.Filter = Excel文件 (*.xls)|*.xls SaveFile.FilterIndex = 2 SaveFile.ShowSave File_Path = SaveFile.FileName Call Kill_File(File_Path) Set ex = CreateObject(Excel.Application) Set exwbook = Nothing Set exsheet = Nothing Set exwbook = ex.workbooks().Add Set exsheet = exwbook.worksheets.Add exwbook.w

28、orksheets(1).Activate ex.cells(1, 1).Value = 2： ex.cells(1, 2).Value = S5： ex.cells(1, 3).Value = V5： ex.cells(1, 4).Value = a5： Dim i As Integer 1 = HScroll1.Value = 0 For i = 1 To 360 2 = 2 + 1 1 = 2 / 180 * PI c = 1 / (1 + q 2 + 2 * q * Cos(1) = Atn(q * Sin(1) / (1 + q * Cos(1) 1 = c * q * (q + C

29、os(1) 2 = c 2 * q * (q 2 - 1) * Sin(1) 3 = c 3 * q * (q 2 - 1) * (2 * q * (1 + (Sin(1) 2) + (1 + q 2) * Cos(1) 4 = c 4 * q * (q 2 - 1) * Sin(1) * (8 * q * (1 - q 2) * Cos(1) + 8 * q 2 * (Cos(1) 2 + 12 * q 2 * (1 + (Sin(1) 2) - (1 + q 2) 2) S5 = 0.5 * H - d2 * Tan() VL5 = -d2 / (Cos() 2 al5 = 2 * VL5

30、 * Tan() V5 = VL5 * 1 * 1 a5 = (al5 * (1) 2 + VL5 * 2) * 1 2 ex.cells(i + 1, 1).Value = Format(2, 0.00000) ex.cells(i + 1, 2).Value = Format(S5 / 1000, 0.00000) ex.cells(i + 1, 3).Value = Format(V5 / 1000, 0.00000) ex.cells(i + 1, 4).Value = Format(a5 / 1000, 0.00000) Next i exwbook.sheets(1).Name =

31、 运动分析 exwbook.worksheets(1).Activate exwbook.saveas File_Path Set exwbook = Nothing Set exsheet = Nothing ex.quit MsgBox 数据保存完毕！, vbOKOnly + vbInformation, 数据保存ErrHandler:End SubPrivate Sub Kill_File(ByVal S As String)On Error GoTo KillErrorKill SExit SubKillError:End SubPrivate Sub Form_Load() HScr

32、oll1.Value = 10 Timer1.Enabled = False Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Picture1.ScaleMode = 6 定义单位为mm Picture1.Scale (-800, 300)-(200, -500) 定义坐标系,原点为控件中心,右为X轴正方向,上为Y轴正方向 画静态图，p2的界面设计 Picture2.Scale (-0.25 * PI, 500)-(2.25 * PI, -500) Picture2.DrawWidth = 2

33、 Line47.X1 = 0 Line47.Y1 = 500 Line47.X2 = 0 Line47.Y2 = -500 Line46.X1 = -0.25 * PI Line46.Y1 = 0 Line46.X2 = 2.25 * PI Line46.Y2 = 0 Line50.X1 = PI / 2 Line50.Y1 = 20 Line50.X2 = PI / 2 Line50.Y2 = 0 Line51.X1 = PI Line51.Y1 = 20 Line51.X2 = PI Line51.Y2 = 0 Line49.X1 = 3 * PI / 2 Line49.Y1 = 20 L

34、ine49.X2 = 3 * PI / 2 Line49.Y2 = 0 Line48.X1 = 2 * PI Line48.Y1 = 20 Line48.X2 = 2 * PI Line48.Y2 = 0 Label12.Top = -10 Label12.Left = 0.1 Label8.Top = -10 Label8.Left = PI / 2 - 0.2 Label11.Top = -10 Label11.Left = PI - 0.1 Label10.Top = -10 Label10.Left = 3 * PI / 2 - 0.2 Label9.Top = -10 Label9.

35、Left = 2 * PI - 0.1 画静态图，P1的界面设计 由于画图时已经很标准所以P1的界面设计省略 = 0 画初始位置图 Call DrawEnd SubPrivate Sub Check1_Click() f = TrueEnd SubPrivate Sub Check2_Click() f = TrueEnd SubPrivate Sub Check3_Click() f = TrueEnd SubPrivate Sub HScroll1_Change() Text1 = Val(HScroll1.Value)End SubPrivate Sub HScroll1_Scroll(

36、) Call HScroll1_ChangeEnd SubPrivate Sub command1_Click() If Command1.Caption = 开始 Then Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command2.SetFocus Timer1.Enabled = True Else If Command1.Caption = 继续 Then Command3.Enabled = True Command4.Enabled = True Command2.SetFocus

37、 Timer1.Enabled = True End If End If End SubPrivate Sub Command2_Click() Command3.Enabled = False Command4.Enabled = False Timer1.Enabled = False Command1.Caption = 继续 Command1.SetFocusEnd SubPrivate Sub Command4_Click() Dim i As Integer i = MsgBox(确实要退出吗？, 1 + 32 + 0, 提示！) Select Case i Case 1 End

38、Case 2 End SelectEnd SubPrivate Sub Command3_Click() Picture1.Cls Picture2.Cls Timer1.Enabled = True = 0 HScroll1.Value = 10End SubPrivate Sub Text1_Change() HScroll1.Value = Text1.TextEnd SubPrivate Sub Timer1_Timer() 1 = HScroll1.Value = + 1 * 180 / PI / 1000 If = 360 Then = 0 动画 Call DrawEnd SubP

39、rivate Sub Draw()机构运动分析1 = / 180 * PI -1的单位为弧度-c = 1 / (1 + q 2 + 2 * q * Cos(1) = Atn(q * Sin(1) / (1 + q * Cos(1)1 = c * q * (q + Cos(1)2 = c 2 * q * (q 2 - 1) * Sin(1)3 = c 3 * q * (q 2 - 1) * (2 * q * (1 + (Sin(1) 2) + (1 + q 2) * Cos(1)4 = c 4 * q * (q 2 - 1) * Sin(1) * (8 * q * (1 - q 2) * Cos

40、(1) + 8 * q 2 * (Cos(1) 2 + 12 * q 2 * (1 + (Sin(1) 2) - (1 + q 2) 2)S5 = 0.5 * H - d2 * Tan()VL5 = -d2 / (Cos() 2al5 = 2 * VL5 * Tan()V5 = VL5 * 1 * 1a5 = (al5 * (1) 2 + VL5 * 2) * 1 2Text2.Text = Format(S5 / 1000, 0.0000000000)Text3.Text = Format(V5 / 1000, 0.0000000000)Text4.Text = Format(a5 / 10

41、00, 0.0000000000)机构动画Line3.X2 = 100 * Cos(1)Line3.Y2 = 100 * Sin(1)Shape3.Top = Line3.Y2 + 7.5Shape3.Left = Line3.X2 - 7.5Line16.X2 = Line3.X2 - Sqr(19.5 2 + 37 2) * Cos(Atn(39 / 74) + )Line16.Y2 = Line3.Y2 - Sqr(19.5 2 + 37 2) * Sin(Atn(39 / 74) + )Line16.X1 = Line16.X2 - 39 * Sin()Line16.Y1 = Line

42、16.Y2 + 39 * Cos()Line17.X1 = Line16.X1 + 74 * Cos()Line17.Y1 = Line16.Y1 + 74 * Sin()Line17.X2 = Line16.X2 + 74 * Cos()Line17.Y2 = Line16.Y2 + 74 * Sin()Line15.X1 = Line16.X1Line15.Y1 = Line16.Y1Line15.X2 = Line17.X1Line15.Y2 = Line17.Y1Line14.X1 = Line16.X2Line14.Y1 = Line16.Y2Line14.X2 = Line17.X

43、2Line14.Y2 = Line17.Y2Line5.X2 = Line16.X2 - 0.5 * 39 * Sin()Line5.Y2 = Line16.Y2 + 0.5 * 39 * Cos()Line58.X1 = Line17.X2 - 0.5 * 39 * Sin()Line58.Y1 = Line17.Y2 + 0.5 * 39 * Cos()Line58.X2 = 384 * Cos() - 200Line58.Y2 = 384 * Sin()Shape5.Left = -640.5Shape5.Top = -433 * Tan() + 7.5Line8.X1 = -433 -

44、 200Line8.Y1 = -433 * Tan()Line8.X2 = -433 - 200Line8.Y2 = -433 * Tan() - 650Line12.X1 = Line8.X1 - 37 * Cos() - 39 / 2 * Sin()Line12.Y1 = Line8.Y1 - 37 * Sin() + 39 / 2 * Cos()Line12.X2 = Line12.X1 + 39 * Sin()Line12.Y2 = Line12.Y1 - 39 * Cos()Line11.X1 = Line12.X1 + 74 * Cos()Line11.Y1 = Line12.Y1

45、 + 74 * Sin()Line11.X2 = Line12.X2 + 74 * Cos()Line11.Y2 = Line12.Y2 + 74 * Sin()Line10.X1 = Line12.X1Line10.Y1 = Line12.Y1Line10.X2 = Line11.X1Line10.Y2 = Line11.Y1Line9.X1 = Line12.X2Line9.Y1 = Line12.Y2Line9.X2 = Line11.X2Line9.Y2 = Line11.Y2Line7.X1 = Line11.X1 + (Line11.X2 - Line11.X1) / 2Line7

46、.Y1 = Line11.Y2 + (Line11.Y1 - Line11.Y2) / 2Line7.X2 = -200Line7.Y2 = 0Line13.X2 = Line12.X1 + (Line12.X2 - Line12.X1) / 2Line13.Y2 = Line12.Y2 + (Line12.Y1 - Line12.Y2) / 2Line13.X1 = -576 * Cos() - 200Line13.Y1 = -576 * Sin()画P2的曲线If f = True Then If Check1.Value = 1 Then Picture2.PSet (1, S5 / 2), RGB(255, 0, 0) 为了能在P2中能够全部显示出来，将S5、V5、a5分别除以2、20、200，（以合适的比例缩小）这样能以合适的比例在P2中显示 End If If Check2.Value = 1 Then Picture2.PSet (1, V5 / 20), RGB(0, 255, 0) End If If Check3.Value = 1 Then Picture2.PSet (1, a5 / 200), RGB(255, 0, 255) End IfEnd IfEnd Sub22