大三机械设计课程设计vb
机械原理课程设计VB程序
![机械原理课程设计VB程序](https://img.taocdn.com/s3/m/1d84c08671fe910ef12df8f4.png)
Dim lab As IntegerPrivate Sub Command1_Click()k = V al(Text1.Text)lac = V al(Text2.Text)lcd = V al(Text3.Text)lde = V al(Text4.Text)h = V al(Text5.Text)n = V al(Text6.Text)a = (k - 1) / (k + 1) * 180e = a / 180 * 3.1415926lab = lac * Sin(e / 2)d1 = 90 + a / 2d2 = 90 - a / 2X1 = lcd * Sin(e / 2)X2 = Sqr(lde ^ 2 - (h - lcd * Cos(e / 2)) ^ 2) X = X1 + X2Y = X2 - X1s = 2 * X1Text7.Text = labText8.Text = d1Text9.Text = d2Text10.Text = aText11.Text = XText12.Text = YText13.Text = sEnd SubPrivate Sub Command2_Click()Text1.Text = 1.4Text2.Text = 450Text3.Text = 760Text4.Text = 190Text5.Text = 770Text6.Text = 60End SubPrivate Sub Command3_Click()'绘图程序lab = Text7.Textlac = 450lcd = 760lde = 190h = 770Const a = 3.14159With Picture1.Top = 0.Left = 0.Width = Me.ScaleWidth * 12 / 16.Height = Me.ScaleHeight * 3 / 5.ScaleMode = 6q = Picture1.ScaleWidth / 2p = Picture1.ScaleHeightoldx = Picture1.ScaleWidtholdy = Picture1.ScaleHeight / 2.ClsPicture1.Line (4, 0)-(4, p), RGB(255, 0, 0)Picture1.Line (0, oldy)-(oldx, oldy), RGB(255, 0, 0)Picture1.Line (4, 0)-(3.5, 2), RGB(255, 0, 0)Picture1.Line (4, 0)-(4.5, 2), RGB(255, 0, 0)Picture1.Line (oldx - 2, oldy)-(oldx, oldy), RGB(255, 0, 0)Picture1.Line (oldx - 2, oldy)-(oldx, oldy), RGB(255, 0, 0)Picture1.Line (12, 0)-(12, w), RGB(0, 255, 0)Picture1.Line (12, 0)-(11.5, 2), RGB(0, 255, 0)Picture1.Line (12, 0)-(12.5, 2), RGB(0, 255, 0)Picture1.Line (20, 0)-(20, w), RGB(0, 0, 255)Picture1.Line (20, 0)-(19.5, 2), RGB(0, 0, 255)Picture1.Line (20, 0)-(20.5, 2), RGB(0, 0, 255)End With'画X轴刻度Picture1.CurrentX = 20 - 3: Picture1.CurrentY = oldy + 0.5 Picture1.Print 0For t = 0 To oldx + 5 Step 0.5If t <> 0 Thenst = t * 10 * aPicture1.CurrentX = 20 + st - 3: Picture1.CurrentY = oldy + 0.5 Picture1.Print t & "π"Picture1.Line (20 + st, oldy - 1)-(20 + st, oldy), RGB(255, 0, 0)End IfNext t'画位移纵坐标For t = -Int(oldy) To Int(oldy - 0.5) Step 1If t <> 0 Thenyt = t * 10Picture1.CurrentX = -2: Picture1.CurrentY = oldy - ytPicture1.Print 20 * ytPicture1.Line (4, oldy - yt)-(1, oldy - yt), RGB(255, 0, 0)End IfNext t'画加速度纵坐标For t = -Int(oldy) To Int(oldy - 0.5) Step 1If t <> 0 Thenyt = t * 10Picture1.CurrentX = 6: Picture1.CurrentY = oldy - ytPicture1.Print yt * 0.1Picture1.Line (12, oldy - yt)-(13, oldy - yt), RGB(0, 255, 0)End IfNext t'画速度纵坐标For t = -Int(oldy) To Int(oldy - 0.5) Step 1If t <> 0 Thenyt = t * 5Picture1.CurrentX = 12: Picture1.CurrentY = oldy - yt * 2 - 1Picture1.Print yt * 0.1Picture1.Line (20, oldy - yt * 2)-(21, oldy - yt * 2), RGB(0, 0, 255)End IfNext tFor e = 0 To 2 * a Step 0.003X1 = 10 * ew = 8.37f = Atn((lac + lab * Sin(e)) / (lab * Cos(e)))If f < 0 Thenf = f + aEnd If'绘出图像lcb = lab * Cos(e) / Cos(f)w3 = lab * w * Cos(f - e) / lcbvb2b3 = -lab * w * Sin(f - e)e3 = -(lab * w ^ 2 * Sin(f - e) + 2 * vb2b3 * w3) / lcbz = (h - lcd * Sin(f)) / ldef4 = Atn(z / Sqr(1 - z ^ 2))h1 = h - lcd * Sin(f)x0 = lcd * (lab / lcb) + Sqr(lde ^ 2 - h1 ^ 2)s5 = x0 - lcd * Cos(f) - lde * Cos(f4)Picture1.PSet (20 + X1, oldy - s5 / 24), RGB(255, 255, 0)w4 = -lcd * Cos(f) * w3 / (lde * Cos(f4))v5 = lcd * w3 * Sin(f) + lde * Sin(f4) * w4Picture1.PSet (20 + X1, oldy - v5 / 200), RGB(0, 255, 255)e4 = (lcd * (w3 ^ 2 * Sin(f) - e3 * Cos(f)) + lde * w4 ^ 2 * Sin(f4)) / (lde * Cos(f4)) a5 = lcd * (e3 * Sin(f) + w3 ^ 2 * Cos(f)) + lde * (e4 * Sin(f4) + w4 ^ 2 * Cos(f4))Picture1.PSet (20 + X1, oldy - a5 / 1800), RGB(255, 0, 255)Next eEnd Sub。
大三机械原理课程设计
![大三机械原理课程设计](https://img.taocdn.com/s3/m/31547084cf2f0066f5335a8102d276a2002960e3.png)
大三机械原理课程设计一、课程目标知识目标:1. 理解并掌握大三机械原理课程中的基本概念、原理和公式,如力学、运动学、动力学等;2. 掌握机械系统的分析、设计和计算方法,能运用相关理论解决实际问题;3. 了解机械原理在工程实际中的应用,结合实例进行分析。
技能目标:1. 能够运用所学知识对机械系统进行受力分析、运动分析和动力分析;2. 掌握机械设计的基本步骤和方法,能够设计简单的机械装置;3. 能够使用相关软件(如CAD、MATLAB等)辅助分析和设计,提高工作效率。
情感态度价值观目标:1. 培养学生对机械原理课程的兴趣,激发学生主动学习和探索的精神;2. 培养学生的团队协作意识和沟通能力,提高解决实际工程问题的能力;3. 增强学生的创新意识,鼓励学生在机械设计中尝试新思路和方法;4. 培养学生严谨、求实的科学态度,遵循工程伦理,关注环保和可持续发展。
本课程针对大三学生,具有较强的理论性和实践性。
在教学过程中,注重理论与实践相结合,充分调动学生的主观能动性,培养学生的创新能力和实践能力。
通过本课程的学习,使学生具备扎实的机械原理基础,为后续专业课程学习和未来从事相关工作奠定基础。
二、教学内容本课程教学内容主要包括以下几部分:1. 机械原理基本概念:力学基础、运动学基础、动力学基础等;- 教材章节:第1章 机械原理概述,第2章 力学基础,第3章 运动学基础,第4章 动力学基础2. 机械系统分析:受力分析、运动分析、动力分析等;- 教材章节:第5章 机械系统的受力分析,第6章 机械系统的运动分析,第7章 机械系统的动力分析3. 机械设计方法:机械设计基本步骤、常用机械传动设计、机械零件设计等;- 教材章节:第8章 机械设计概述,第9章 常用机械传动设计,第10章 机械零件设计4. 机械原理在工程实际中的应用:结合实例分析,如机械装置设计、优化等;- 教材章节:第11章 机械原理在工程中的应用5. 计算机辅助分析与设计:运用CAD、MATLAB等软件进行机械系统分析与设计;- 教材章节:第12章 计算机辅助分析与设计教学内容安排与进度:1. 前四周:机械原理基本概念;2. 中间四周:机械系统分析;3. 后四周:机械设计方法;4. 最后一周:机械原理在工程实际中的应用及计算机辅助分析与设计。
大三机械设计课程设计
![大三机械设计课程设计](https://img.taocdn.com/s3/m/fdcf1114ac02de80d4d8d15abe23482fb4da029b.png)
大三机械设计课程设计大三机械设计课程设计是一个综合性的实践项目,旨在让学生掌握机械设计的基本原理和方法,培养其解决实际问题的能力。
以下是一个大三机械设计课程设计:题目:设计一个简单的机械手一、设计任务设计一个简单的机械手,用于抓取和搬运物体。
要求机械手能够实现以下功能:1.抓取物体:机械手能够抓取不同形状和大小的物体。
2.搬运物体:机械手能够将物体从一个位置移动到另一个位置。
3.释放物体:机械手能够将物体释放到指定位置。
二、设计要求1.机械手结构简单、紧凑,易于制造和装配。
2.机械手具有足够的刚度和稳定性,能够承受一定的工作负载。
3.机械手操作简便、灵活,能够适应不同形状和大小的物体。
4.机械手具有安全保护装置,避免在操作过程中对人员造成伤害。
三、设计步骤1.确定设计参数:根据设计任务和要求,确定机械手的基本参数,如手指数量、长度、角度等。
2.选择传动方式:根据设计参数和要求,选择合适的传动方式,如齿轮传动、连杆传动等。
3.设计机械手结构:根据传动方式,设计机械手的整体结构,包括手指、传动机构、支撑结构等。
4.进行运动分析和动力学分析:对机械手的运动进行详细的分析,包括手指的开合运动、抓取物体的过程等。
同时进行动力学分析,确定机械手的负载能力和稳定性。
5.进行结构设计:根据运动分析和动力学分析的结果,对机械手的结构进行详细的设计,包括零件的尺寸、材料选择、热处理工艺等。
6.绘制图纸:根据结构设计的结果,绘制机械手的装配图、零件图等图纸。
7.编写设计说明书:编写详细的设计说明书,包括设计任务书、设计方案说明、设计计算书等内容。
8.提交成果:将设计图纸和设计说明书提交给指导老师进行评审和答辩。
四、注意事项1.在设计过程中要充分考虑机械手的制造工艺和装配工艺,确保设计的可行性和实用性。
2.在进行运动分析和动力学分析时要考虑各种可能的工况和条件,确保设计的可靠性和稳定性。
3.在进行结构设计时要注重细节和精度,确保设计的精确性和美观性。
大三机械课程设计
![大三机械课程设计](https://img.taocdn.com/s3/m/00c7698e32d4b14e852458fb770bf78a65293afd.png)
大三机械课程设计一、课程目标知识目标:1. 掌握机械设计的基本原理和概念,包括力学、材料力学、机械原理等;2. 熟悉并掌握机械设计的相关标准和规范,如机械制图、公差配合等;3. 了解并掌握机械设计中常用的计算方法和设计软件。
技能目标:1. 能够运用所学知识进行机械零件的选型和设计;2. 能够运用CAD软件进行机械零部件的绘制和装配;3. 能够运用仿真软件对机械系统进行运动学和动力学分析;4. 能够撰写完整、清晰的机械设计说明书。
情感态度价值观目标:1. 培养学生对机械设计的兴趣和热情,提高其主动学习的积极性;2. 培养学生的团队协作精神,使其在项目实践中学会相互沟通、协作;3. 培养学生的创新意识和实践能力,使其敢于尝试新方法、新技术;4. 培养学生的责任感和职业道德,使其在设计过程中注重安全、可靠、经济、环保。
分析课程性质、学生特点和教学要求,本课程旨在通过理论与实践相结合的方式,使学生掌握机械设计的基本知识和技能,培养其解决实际工程问题的能力。
课程目标具体、可衡量,以便学生和教师能够清晰地了解课程的预期成果,并为后续的教学设计和评估提供依据。
二、教学内容本章节教学内容依据课程目标,主要包括以下几部分:1. 机械设计基本原理:讲解力学、材料力学、机械原理等基础知识,使学生掌握机械设计的基本概念和原理。
参考教材相关章节,如第一章“机械设计概述”和第二章“机械设计基础”。
2. 机械设计规范与标准:介绍机械制图、公差配合、焊接标准等,帮助学生熟悉并掌握机械设计的相关规范。
教学内容涵盖教材第三章“机械设计规范与标准”。
3. 机械零件选型与设计:分析常用机械零件的选型和设计方法,如轴、齿轮、轴承等。
结合教材第四章“常用机械零件的设计与计算”进行教学。
4. CAD软件应用:教授CAD软件的使用技巧,使学生能够运用软件进行机械零部件的绘制和装配。
参考教材第五章“计算机辅助设计”。
5. 仿真软件应用:介绍仿真软件在机械系统运动学和动力学分析中的应用,帮助学生掌握相关技能。
VB课程设计绘制机械图
![VB课程设计绘制机械图](https://img.taocdn.com/s3/m/adea9ade04a1b0717fd5dd22.png)
Vb程序设计训练任务书设计题目绘制机械图一.具体内容 :用visual basic 6.0的集成开发环境(IDE)编辑、调试、运行并生成可执行程序,在窗体或图片框中绘制图形首先要确定坐标,坐标轴的增加方向是从左向右或从上向下。
文本的文字可以通过属性窗口设置Font属性,也可以使用代码设置,用ScaleMode属性设置坐标系的标准刻度,用内部常数来设置颜色,用CurrentX 、CurrentY属性来设置当前的水平和垂直坐标,用print方法显示文本。
绘制图形可以使用Line和Shape控件绘制直线和六种不同的形状。
二.应用程序功能要求详细说明三.(一)应用程序要求1. 完成绘制右面机械图(包括主视图、左视图、俯视图,参数自拟)。
2. 机械图为参数化设计,主视图完全根据键盘输入的尺寸参数绘制,左视图和俯视图根据主视图坐标变换获得,主视图未表达的信息再次输入尺寸参数在相应的左视图和俯视图中予以完善。
并将键盘输入信息存入文件,以便再次绘制此图。
画出边框和标题栏。
(主视图尺寸参数用文本框输入,单击“画图”按钮,弹出绘制的界面)(二)应用程序功能当text1—text7中输入相应数值时,点击“绘图”按钮时将程序运行所画的图形和标题栏显示在右面Picture框中,点击“清除”时可把输入框中的数值清空,点击“结束”按钮时可关闭绘出的图形,从而结束程序运行四.输入数据类型、格式和内容限制其中对x、y、z、a、b、c、d输入的类型都为Integer型;msg1 、msg2 、msg3为Strin g型,内容限制必须为数值型。
其中的一些长度限定为If x <= 0 Or y <= 0 Or z <= 0 Or a <= 0 Or b <= 0 Or c <= 0 Or d <= 0 Or x <= a Or x <= c Or z <= (b + d) Then respone = MsgBox("对不起,您输入的参数不正确!请重新输入!", vbOKOnly + vbExclamation, "出错")四.系统主要界面描述–简要的语言描述1)首先确定该机械三视图的坐标系为左手系未改变。
机械设计大三课程设计
![机械设计大三课程设计](https://img.taocdn.com/s3/m/bd273671657d27284b73f242336c1eb91b373354.png)
机械设计大三课程设计一、课程目标知识目标:1. 理解并掌握机械设计的基本原理,包括力学、材料力学、机械原理等基础理论知识;2. 掌握机械设计中的创新设计方法,如TRIZ、六西格玛等;3. 熟悉机械设计的相关规范和标准,能够运用到实际设计中;4. 了解现代机械设计技术的发展趋势,如CAD/CAE/CAM技术的应用。
技能目标:1. 能够运用所学理论知识进行机械零件的设计与计算;2. 掌握使用CAD软件进行机械零件的绘制和建模;3. 学会使用CAE软件对机械零件进行强度、刚度、稳定性等性能分析;4. 能够撰写规范的机械设计说明书,并进行设计方案的阐述和展示。
情感态度价值观目标:1. 培养学生具备创新意识和团队协作精神,敢于面对设计挑战;2. 树立正确的工程观念,注重工程伦理,关注环境保护和可持续发展;3. 培养学生严谨、勤奋、刻苦的学习态度,提高自我管理和自我驱动能力;4. 增强学生对我国机械工程事业的自豪感和使命感,激发为国家和民族做贡献的愿望。
本课程针对大三学生的特点,结合机械设计课程性质和教学要求,将目标分解为具体的学习成果,以便后续的教学设计和评估。
课程旨在使学生在掌握基本理论知识的基础上,提高实践操作能力和创新设计能力,培养具备专业素养和工程伦理的机械设计人才。
二、教学内容1. 机械设计基本理论:- 力学基础:强度、刚度、稳定性等基本概念;- 材料力学:常用机械材料的性能及选用;- 机械原理:机构设计原理、机械传动、联接件设计等。
2. 创新设计方法:- TRIZ理论:矛盾矩阵、物理矛盾、技术系统进化法则等;- 六西格玛:DMAIC方法论、质量工程、过程优化等。
3. 机械设计规范与标准:- 国家和行业标准:GB、JB等;- 设计规范:公差配合、表面粗糙度、尺寸链等。
4. 现代机械设计技术:- CAD/CAE/CAM技术:软件操作、建模、分析、制造;- 快速原型制造:3D打印、CNC加工等。
5. 教学大纲安排:- 第一周:机械设计基本理论;- 第二周:创新设计方法;- 第三周:机械设计规范与标准;- 第四周:现代机械设计技术;- 第五周:课程设计实践与指导;- 第六周:课程设计成果展示与评价。
大三机械设计课程设计报告vb
![大三机械设计课程设计报告vb](https://img.taocdn.com/s3/m/90e5ddaeba0d4a7302763a66.png)
Private Sub Command1_Click(Index As Integer)Dim dblWP As Double, dblHP As Double, i As Integer dblWP = Abs(Picture1(0).ScaleWidth)dblHP = Abs(Picture1(0).ScaleHeight)For i = 0 To 5Picture1(i).ClsPicture1(i).ScaleMode = 1Picture1(i).DrawStyle = 0Picture1(i).DrawWidth = 1.5Picture1(i).Scale (-120, dblHP / 2)-(dblWP - 120, -dblHP / 2) Picture1(i).Line (0, 0)-(dblWP - 160, 0)Picture1(i).Line (dblWP - 160, 0)-Step(-120, 120)Picture1(i).Line (dblWP - 160, 0)-Step(-120, -120)Picture1(i).CurrentX = dblWP - 700Picture1(i).CurrentY = 250Picture1(i).Print "f_AB"Picture1(i).CurrentX = -120Picture1(i).CurrentY = -10Picture1(i).Print "0"Picture1(i).Line (0, dblHP / 2 - 60)-(0, -(dblHP / 2 - 60)) Picture1(i).Line (0, dblHP / 2 - 60)-Step(-120, -120) Picture1(i).Line (0, dblHP / 2 - 60)-Step(120, -120)Picture1(i).CurrentX = 160Picture1(i).CurrentY = dblHP / 2 - 60If i <> 0 Then Picture1(i).FontName = "ms sans serif" Select Case iCase 0Picture1(i).Print "f_CD"Case 1Picture1(i).Print "w_CD"Case 2Picture1(i).Print "e_CD"Case 3Picture1(i).Print "s_E"Case 4Picture1(i).Print "v_E"Case 5Picture1(i).Print "a_E"End SelectNext iDim dblMax_f_CD As Double, dblMax_w_CD As Double, dblMax_e_CD As Double Dim dblMax_s_E As Double, dblMax_v_E As Double, dblMax_a_E As DoubleDim dblF_CD, dblW_CD, dblE_CD As DoubleDim dblS_E, dblV_E, dblA_E As DoubleDim dblF_AB, dblF_DE As DoubleDim dblAB As Double, dblCD As Double, dblDE As Double, dblAC As Double, dblH As Double, dblSE As Double, dbldf_CD As DoubleDim PI As DoublePI = 3.1415926dblAB = Val(Form1.Text1.Text)dblCD = Val(Form1.Text2.Text)dblDE = Val(Form1.Text3.Text)dblAC = Val(Form1.Text4.Text)dblH = Val(Form1.Text5.Text)dbln1 = Val(Form1.Text6.Text)For i = 0 To 360dblF_AB = i * PI / 180dblF_CD = Atn((dblAC + dblAB * Sin(dblF_AB)) / (dblAB * Cos(dblF_AB)))If dblF_CD < 0 Then dblF_CD = dblF_CD + PIdblW_CD = dblAB * (2 * PI * dbln1 / 60) * Cos(dblF_AB - dblF_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB))) dblE_CD = (-dblAB * (2 * PI * dbln1 / 60) * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) + 2 * dblAB * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) * dblW_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))dblF_DE = Atn(((dblH - dblCD * Sin(dblF_CD)) / dblDE) / Sqr(Abs(1 - (dblH - dblCD * Sin(dblF_CD)) * (dblH - dblCD * Sin(dblF_CD)) / (dblDE * dblDE))))dblw_DE = (-(dblCD * dblW_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE)))dble_DE = ((dblDE * dblw_DE * dblw_DE * Sin(dblF_DE)) + dblCD * dblW_CD * dblW_CD * Sin(dblF_CD) - dblCD * dblE_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE))dblS2 = Sqr(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB))dblS_E = dblCD * Cos(dblF_CD) + dblDE * Cos(dblF_DE)dblV_E = (-dblCD / 1000) * dblW_CD * Sin(dblF_CD) - (dblDE / 1000) * (-(dblCD / 1000) * dblW_CD * Cos(dblF_CD) / ((dblDE / 1000) * Cos(dblF_DE))) * (((dblH / 1000) - (dblCD / 1000) * Sin(dblF_CD)) / (dblDE / 1000))dblA_E = (-dblCD / 1000) * dblE_CD * Sin(dblF_CD) - (dblCD / 1000) * dblW_CD * dblW_CD * Cos(dblF_CD) - (dblDE / 1000) * dble_DE * Sin(dblF_DE) - (dblDE / 1000) * dblw_DE * dblw_DE * Cos(dblF_DE)If Abs(dblF_CD) > dblMax_f_CD Then dblMax_f_CD = Abs(dblF_CD)If Abs(dblW_CD) > dblMax_w_CD Then dblMax_w_CD = Abs(dblW_CD)If Abs(dblE_CD) > dblMax_f_CD Then dblMax_e_CD = Abs(dblE_CD)If Abs(dblS_E) > dblMax_s_E Then dblMax_s_E = Abs(dblS_E)If Abs(dblV_E) > dblMax_v_E Then dblMax_v_E = Abs(dblV_E)If Abs(dblA_E) > dblMax_a_E Then dblMax_a_E = Abs(dblA_E)Next iDim dblSx As Double, dblSy As DoubledblSx = (dblWP - 240) / 360For i = 0 To 360dblF_AB = i * PI / 180dblF_CD = Atn((dblAC + dblAB * Sin(dblF_AB)) / (dblAB * Cos(dblF_AB)))If dblF_CD < 0 Then dblF_CD = dblF_CD + PIdblW_CD = dblAB * (2 * PI * dbln1 / 60) * Cos(dblF_AB - dblF_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB))) dblE_CD = (-dblAB * (2 * PI * dbln1 / 60) * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) + 2 * dblAB * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) * dblW_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))dblF_DE = Atn(((dblH - dblCD * Sin(dblF_CD)) / dblDE) / Sqr(Abs(1 - (dblH - dblCD * Sin(dblF_CD)) * (dblH - dblCD * Sin(dblF_CD)) / (dblDE * dblDE))))dblw_DE = (-(dblCD * dblW_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE)))dble_DE = ((dblDE * dblw_DE * dblw_DE * Sin(dblF_DE)) + dblCD * dblW_CD * dblW_CD * Sin(dblF_CD) - dblCD * dblE_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE))dblS2 = Sqr(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB))dblS_E = dblCD * Cos(dblF_CD) + dblDE * Cos(dblF_DE)dblV_E = (-dblCD / 1000) * dblW_CD * Sin(dblF_CD) - (dblDE / 1000) * (-(dblCD / 1000) * dblW_CD * Cos(dblF_CD) / ((dblDE / 1000) * Cos(dblF_DE))) * (((dblH / 1000) - (dblCD / 1000) * Sin(dblF_CD)) / (dblDE / 1000))dblA_E = (-dblCD / 1000) * dblE_CD * Sin(dblF_CD) - (dblCD / 1000) * dblW_CD * dblW_CD * Cos(dblF_CD) - (dblDE / 1000) * dble_DE * Sin(dblF_DE) - (dblDE / 1000) * dblw_DE * dblw_DE * Cos(dblF_DE)dblSy = (dblHP / 2 - 240) / dblMax_f_CDPicture1(0).PSet (i * dblSx, dblF_CD * dblSy)dblSy = (dblHP / 2 - 240) / dblMax_w_CDPicture1(1).PSet (i * dblSx, dblW_CD * dblSy)dblSy = (dblHP / 2 - 240) / dblMax_e_CDPicture1(2).PSet (i * dblSx, dblE_CD * dblSy * 0.25)dblSy = (dblHP / 2 - 240) / dblMax_s_EPicture1(3).PSet (i * dblSx, dblS_E * dblSy)dblSy = (dblHP / 2 - 240) / dblMax_v_EPicture1(4).PSet (i * dblSx, dblV_E * dblSy)dblSy = (dblHP / 2 - 240) / dblMax_a_EPicture1(5).PSet (i * dblSx, dblA_E * dblSy)Next iEnd SubPrivate Sub Command5_Click()Dim i As DoubleDim dblAB As Double, dblCD As Double, dblDE As Double, dblAC As Double, dblH As Double, dblF_AB As Double, dbldf_CD As DoubleDim dblF_CD As Double, dblW_CD As Double, dblE_CD As DoubleDim dblS_E As Double, dblV_E As Double, dblA_E As DoubleDim dblS2 As DoubleDim dblF_DE As Double, dblw_DE As Double, dble_DE As DoubleDim PI As DoublePI = 3.1415926dblAB = Val(Form1.Text1.Text)dblCD = Val(Form1.Text2.Text)dblDE = Val(Form1.Text3.Text)dblAC = Val(Form1.Text4.Text)dblH = Val(Form1.Text5.Text)dbln1 = Val(Form1.Text6.Text)List1.ClearList1.AddItem ("f_AB" & Chr(9) & "f_CD" & Chr(9) & "w_CD" & Chr(9) & "e_CD" & Chr(9) & "s_E" & Chr(9) & "v_E" & Chr(9) & "a_E")List1.AddItem ("………………………………………………………………………………………………………………")For i = 0 To 360 Step 30dblF_AB = i * PI / 180dblF_CD = Atn((dblAC + dblAB * Sin(dblF_AB)) / (dblAB * Cos(dblF_AB)))If dblF_CD < 0 Then dblF_CD = dblF_CD + PIdblW_CD = dblAB * (2 * PI * dbln1 / 60) * Cos(dblF_AB - dblF_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))dblE_CD = (-dblAB * (2 * PI * dbln1 / 60) * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) + 2 * dblAB * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) * dblW_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))dblF_DE = Atn(((dblH - dblCD * Sin(dblF_CD)) / dblDE) / Sqr(Abs(1 - (dblH - dblCD * Sin(dblF_CD)) * (dblH - dblCD * Sin(dblF_CD)) / (dblDE * dblDE))))dblw_DE = (-(dblCD * dblW_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE)))dble_DE = ((dblDE * dblw_DE * dblw_DE * Sin(dblF_DE)) + dblCD * dblW_CD * dblW_CD * Sin(dblF_CD) - dblCD * dblE_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE))dblS2 = Sqr(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)) dblS_E = dblCD * Cos(dblF_CD) + dblDE * Cos(dblF_DE)dblV_E = (-dblCD / 1000) * dblW_CD * Sin(dblF_CD) - (dblDE / 1000) * (-(dblCD / 1000) * dblW_CD * Cos(dblF_CD) / ((dblDE / 1000) * Cos(dblF_DE))) * (((dblH / 1000) - (dblCD / 1000) * Sin(dblF_CD)) / (dblDE / 1000))dblA_E = (-dblCD / 1000) * dblE_CD * Sin(dblF_CD) - (dblCD / 1000) * dblW_CD * dblW_CD * Cos(dblF_CD) - (dblDE / 1000) * dble_DE * Sin(dblF_DE) - (dblDE / 1000) * dblw_DE * dblw_DE * Cos(dblF_DE)dbldf_CD = dblF_CD * 180 / PIForm1.Text7.Text = Str(dblF_AB)Form1.Text8.Text = Str(dbldf_CD)Form1.Text9.Text = Str(dblW_CD)Form1.Text10.Text = Str(dblE_CD)Form1.Text11.Text = Str(dblS_E)Form1.Text12.Text = Str(dblV_E)Form1.Text13.Text = Str(dblA_E)List1.AddItem (Str(i) & Chr(9) & Format(Str(dbldf_CD), "0.00") & Chr(9) &Format(Str(dblW_CD), "0.00") & Chr(9) & Format(Str(dblE_CD), "0.00") & Chr(9) & Format(Str(dblS_E), "0.00") & Chr(9) & Format(Str(dblV_E), "0.00") & Chr(9) & Format(Str(dblA_E), "0.00"))Next iList1.AddItem ("………………………………………………………………………………………………………………")End Sub。
大学vb课程设计
![大学vb课程设计](https://img.taocdn.com/s3/m/b0c28ea6fbb069dc5022aaea998fcc22bdd14359.png)
大学vb课程设计一、课程目标知识目标:1. 理解VB编程语言的基本语法和结构,掌握变量、控制结构、数组等基本概念。
2. 学会使用VB进行简单的程序设计,包括输入输出、条件判断、循环等。
3. 了解VB中面向对象编程的基本概念,如类、对象、属性、方法等。
技能目标:1. 能够独立编写简单的VB程序,解决实际问题。
2. 掌握使用VB进行数据处理和文件操作的方法。
3. 培养良好的编程习惯,学会调试程序,找出并修正错误。
情感态度价值观目标:1. 培养学生对计算机编程的兴趣和热情,激发自主学习动力。
2. 培养学生的团队合作意识,学会与他人合作解决问题。
3. 培养学生的创新思维,敢于尝试新方法,解决实际问题。
课程性质:本课程为大学VB编程课程,旨在使学生掌握VB编程基础,培养编程思维和实际编程能力。
学生特点:学生具备一定的计算机操作基础,对编程有一定了解,但对VB编程尚属初学者。
教学要求:结合学生特点,注重理论与实践相结合,以案例教学为主,培养学生的实际编程能力。
在教学过程中,注重启发式教学,引导学生主动思考,提高解决问题的能力。
通过团队协作,培养学生的沟通与协作能力。
最终达到使学生能够独立完成VB程序设计的教学目标。
二、教学内容1.VB程序设计基础:- VB编程环境及基本操作- 简单的输入输出语句- 数据类型、变量和常量- 运算符和表达式- 控制结构(顺序、选择、循环)2.数组与函数:- 数组的基本概念及应用- 函数的定义、调用和返回值- 常用内部函数及其应用3.面向对象编程基础:- 类和对象的概念- 属性、方法、事件- 构造函数和析构函数- 继承、封装、多态性4.界面设计:- 窗体和控件的基本使用- 菜单、工具栏和状态栏设计- 对话框及其应用5.文件操作与数据处理:- 文件的打开、读取、写入和关闭- 数据的排序、查找和过滤- 数据库访问基础6.综合实例分析:- 案例一:简易计算器- 案例二:图书管理系统- 案例三:学生成绩管理系统教学内容按照教材章节进行安排,保证学生能够逐步掌握VB编程的基本知识和技能。
大三机械制造课程设计
![大三机械制造课程设计](https://img.taocdn.com/s3/m/d298360a3d1ec5da50e2524de518964bcf84d2bf.png)
大三机械制造课程设计一、课程目标知识目标:1. 掌握机械制造的基本理论,包括金属切削原理、加工工艺及机床结构;2. 熟悉机械加工过程中的质量控制方法,了解常见机械故障及排除方法;3. 了解现代制造技术发展趋势,如数控加工、智能制造等。
技能目标:1. 能够运用所学知识进行机械加工工艺设计,编制合理的加工工艺规程;2. 掌握机械加工过程中的参数调整和优化方法,提高加工效率和质量;3. 能够运用现代制造技术,如CAD/CAM软件,进行产品设计及制造。
情感态度价值观目标:1. 培养学生的团队合作精神,提高沟通与协作能力;2. 激发学生对机械制造的兴趣,培养创新意识和探索精神;3. 增强学生的质量意识,树立安全生产观念。
本课程针对大三学生,具有较强的理论性和实践性。
在教学过程中,需注重理论与实践相结合,充分调动学生的积极性,提高学生的工程实践能力。
课程目标旨在使学生掌握机械制造的基本知识,具备一定的工艺设计和加工技能,同时培养良好的职业素养,为我国机械制造业培养高素质的技术人才。
通过对课程目标的分解和教学设计,教师可更好地进行教学评估,确保学生达到预期学习成果。
二、教学内容1. 金属切削原理及机床:介绍切削力、切削温度、刀具磨损等基本概念;讲解各类机床的结构、工作原理及适用范围,结合教材第1章和第2章内容。
2. 机械加工工艺:分析各种加工方法的特点及适用范围,包括车削、铣削、磨削等;讲解加工工艺规程的编制方法,参考教材第3章和第4章。
3. 质量控制与故障排除:介绍加工过程中质量控制的方法和手段,分析常见机械故障的原因及排除方法,结合教材第5章内容。
4. 现代制造技术:阐述数控加工、智能制造等现代制造技术的发展趋势,以及其在机械制造业中的应用,参考教材第6章和第7章。
5. 工艺设计与参数优化:讲解工艺设计的基本原则和方法,分析加工参数对加工质量、效率的影响,探讨参数优化策略,结合教材第8章和第9章。
本章节教学内容按照课程目标进行科学、系统地组织,确保学生能够掌握机械制造的基本理论和实践技能。
机械设计大三课程设计
![机械设计大三课程设计](https://img.taocdn.com/s3/m/a0f78e33a88271fe910ef12d2af90242a995ab08.png)
机械设计大三课程设计一、课程目标知识目标:1. 理解并掌握机械设计的基本原理,包括力学、材料力学、机械原理等基础知识;2. 学习并应用机械设计的相关软件和工具,如CAD、CAE等,进行三维建模和仿真分析;3. 掌握机械系统的运动学、动力学分析方法,能够进行机械结构的强度、刚度、稳定性计算;4. 熟悉机械设计规范和标准,了解不同机械部件的设计要点和工程实践。
技能目标:1. 能够独立完成机械部件的选型、设计和优化,提高创新设计能力;2. 培养团队协作和沟通能力,能够撰写完整的设计说明书和技术报告;3. 学会运用项目管理方法,合理安排设计进度,确保项目按时完成;4. 掌握机械设计过程中出现问题的分析和解决方法,提高实际操作能力。
情感态度价值观目标:1. 培养学生热爱机械设计专业,树立正确的专业观念;2. 增强学生的工程意识,培养严谨、务实的工作作风;3. 激发学生的创新意识,培养敢于挑战、勇攀高峰的精神;4. 强化学生的环保意识,关注机械设计在可持续发展中的作用。
本课程针对大三学生,具有较强的理论性和实践性。
结合学生特点和教学要求,课程目标旨在使学生在掌握基本理论知识的基础上,提高实际设计能力,培养具备创新精神和团队协作能力的机械设计人才。
通过本课程的学习,为学生未来从事机械设计及相关领域工作打下坚实基础。
二、教学内容1. 机械设计基本原理:包括力学基础、材料力学、机械原理等,重点讲解机械系统的强度、刚度、稳定性计算方法。
教材章节:第一章 机械设计概述,第二章 机械设计力学基础,第三章 材料力学。
2. 机械设计软件应用:学习CAD、CAE等软件进行三维建模、仿真分析,掌握机械设计过程中的计算机辅助技术。
教材章节:第四章 计算机辅助设计,第五章 计算机辅助工程。
3. 机械系统运动学与动力学分析:分析机械系统的运动规律,进行动力学计算,为机械设计提供理论依据。
教材章节:第六章 机械系统运动学,第七章 机械系统动力学。
大三机械设计课程设计vb
![大三机械设计课程设计vb](https://img.taocdn.com/s3/m/783e995803d8ce2f01662317.png)
Private Sub Command1_Click(Index As Integer)Dim dblWP As Double, dblHP As Double, i As IntegerdblWP = Abs(Picture1(0).ScaleWidth)dblHP = Abs(Picture1(0).ScaleHeight)For i = 0 To 5Picture1(i).ClsPicture1(i).ScaleMode = 1Picture1(i).DrawStyle = 0Picture1(i).DrawWidth = 1.5Picture1(i).Scale (-120, dblHP / 2)-(dblWP - 120, -dblHP / 2) Picture1(i).Line (0, 0)-(dblWP - 160, 0)Picture1(i).Line (dblWP - 160, 0)-Step(-120, 120)Picture1(i).Line (dblWP - 160, 0)-Step(-120, -120)Picture1(i).CurrentX = dblWP - 700Picture1(i).CurrentY = 250Picture1(i).Print "f_AB"Picture1(i).CurrentX = -120Picture1(i).CurrentY = -10Picture1(i).Print "0"Picture1(i).Line (0, dblHP / 2 - 60)-(0, -(dblHP / 2 - 60)) Picture1(i).Line (0, dblHP / 2 - 60)-Step(-120, -120)Picture1(i).Line (0, dblHP / 2 - 60)-Step(120, -120)Picture1(i).CurrentX = 160Picture1(i).CurrentY = dblHP / 2 - 60If i <> 0 Then Picture1(i).FontName = "ms sans serif"Select Case iCase 0Picture1(i).Print "f_CD"Case 1Picture1(i).Print "w_CD"Case 2Picture1(i).Print "e_CD"Case 3Picture1(i).Print "s_E"Case 4Picture1(i).Print "v_E"Case 5Picture1(i).Print "a_E"End SelectNext iDim dblMax_f_CD As Double, dblMax_w_CD As Double, dblMax_e_CD As DoubleDim dblMax_s_E As Double, dblMax_v_E As Double, dblMax_a_E As DoubleDim dblF_CD, dblW_CD, dblE_CD As DoubleDim dblS_E, dblV_E, dblA_E As DoubleDim dblF_AB, dblF_DE As DoubleDim dblAB As Double, dblCD As Double, dblDE As Double, dblAC As Double, dblH As Double, dblSE As Double, dbldf_CD As DoubleDim PI As DoublePI = 3.1415926dblAB = Val(Form1.Text1.Text)dblCD = Val(Form1.Text2.Text)dblDE = Val(Form1.Text3.Text)dblAC = Val(Form1.Text4.Text)dblH = Val(Form1.Text5.Text)dbln1 = Val(Form1.Text6.Text)For i = 0 To 360dblF_AB = i * PI / 180dblF_CD = Atn((dblAC + dblAB * Sin(dblF_AB)) / (dblAB * Cos(dblF_AB)))If dblF_CD < 0 Then dblF_CD = dblF_CD + PIdblW_CD = dblAB * (2 * PI * dbln1 / 60) * Cos(dblF_AB - dblF_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))dblE_CD = (-dblAB * (2 * PI * dbln1 / 60) * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) + 2 * dblAB * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) * dblW_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))dblF_DE = Atn(((dblH - dblCD * Sin(dblF_CD)) / dblDE) / Sqr(Abs(1 - (dblH - dblCD * Sin(dblF_CD)) * (dblH - dblCD * Sin(dblF_CD)) / (dblDE * dblDE))))dblw_DE = (-(dblCD * dblW_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE)))dble_DE = ((dblDE * dblw_DE * dblw_DE * Sin(dblF_DE)) + dblCD * dblW_CD * dblW_CD * Sin(dblF_CD) - dblCD * dblE_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE))dblS2 = Sqr(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB))dblS_E = dblCD * Cos(dblF_CD) + dblDE * Cos(dblF_DE)dblV_E = (-dblCD / 1000) * dblW_CD * Sin(dblF_CD) - (dblDE / 1000) * (-(dblCD / 1000) * dblW_CD * Cos(dblF_CD) / ((dblDE / 1000) * Cos(dblF_DE))) * (((dblH / 1000) - (dblCD / 1000) * Sin(dblF_CD)) / (dblDE / 1000))dblA_E = (-dblCD / 1000) * dblE_CD * Sin(dblF_CD) - (dblCD / 1000) * dblW_CD * dblW_CD * Cos(dblF_CD) - (dblDE / 1000) * dble_DE * Sin(dblF_DE) - (dblDE / 1000) * dblw_DE * dblw_DE * Cos(dblF_DE)If Abs(dblF_CD) > dblMax_f_CD Then dblMax_f_CD = Abs(dblF_CD)If Abs(dblW_CD) > dblMax_w_CD Then dblMax_w_CD = Abs(dblW_CD)If Abs(dblE_CD) > dblMax_f_CD Then dblMax_e_CD = Abs(dblE_CD)If Abs(dblS_E) > dblMax_s_E Then dblMax_s_E = Abs(dblS_E)If Abs(dblV_E) > dblMax_v_E Then dblMax_v_E = Abs(dblV_E)If Abs(dblA_E) > dblMax_a_E Then dblMax_a_E = Abs(dblA_E)Next iDim dblSx As Double, dblSy As DoubledblSx = (dblWP - 240) / 360For i = 0 To 360dblF_AB = i * PI / 180dblF_CD = Atn((dblAC + dblAB * Sin(dblF_AB)) / (dblAB * Cos(dblF_AB)))If dblF_CD < 0 Then dblF_CD = dblF_CD + PIdblW_CD = dblAB * (2 * PI * dbln1 / 60) * Cos(dblF_AB - dblF_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))dblE_CD = (-dblAB * (2 * PI * dbln1 / 60) * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) + 2 * dblAB * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) * dblW_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))dblF_DE = Atn(((dblH - dblCD * Sin(dblF_CD)) / dblDE) / Sqr(Abs(1 - (dblH - dblCD * Sin(dblF_CD)) * (dblH - dblCD * Sin(dblF_CD)) / (dblDE * dblDE))))dblw_DE = (-(dblCD * dblW_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE)))dble_DE = ((dblDE * dblw_DE * dblw_DE * Sin(dblF_DE)) + dblCD * dblW_CD * dblW_CD * Sin(dblF_CD) - dblCD * dblE_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE))dblS2 = Sqr(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB))dblS_E = dblCD * Cos(dblF_CD) + dblDE * Cos(dblF_DE)dblV_E = (-dblCD / 1000) * dblW_CD * Sin(dblF_CD) - (dblDE / 1000) * (-(dblCD / 1000) * dblW_CD * Cos(dblF_CD) / ((dblDE / 1000) * Cos(dblF_DE))) * (((dblH / 1000) - (dblCD / 1000) * Sin(dblF_CD)) / (dblDE / 1000))dblA_E = (-dblCD / 1000) * dblE_CD * Sin(dblF_CD) - (dblCD / 1000) * dblW_CD * dblW_CD * Cos(dblF_CD) - (dblDE / 1000) * dble_DE * Sin(dblF_DE) - (dblDE / 1000) * dblw_DE * dblw_DE * Cos(dblF_DE)dblSy = (dblHP / 2 - 240) / dblMax_f_CDPicture1(0).PSet (i * dblSx, dblF_CD * dblSy)dblSy = (dblHP / 2 - 240) / dblMax_w_CDPicture1(1).PSet (i * dblSx, dblW_CD * dblSy)dblSy = (dblHP / 2 - 240) / dblMax_e_CDPicture1(2).PSet (i * dblSx, dblE_CD * dblSy * 0.25)dblSy = (dblHP / 2 - 240) / dblMax_s_EPicture1(3).PSet (i * dblSx, dblS_E * dblSy)dblSy = (dblHP / 2 - 240) / dblMax_v_EPicture1(4).PSet (i * dblSx, dblV_E * dblSy)dblSy = (dblHP / 2 - 240) / dblMax_a_EPicture1(5).PSet (i * dblSx, dblA_E * dblSy)Next iEnd SubPrivate Sub Command5_Click()Dim i As DoubleDim dblAB As Double, dblCD As Double, dblDE As Double, dblAC As Double, dblH As Double, dblF_AB As Double, dbldf_CD As DoubleDim dblF_CD As Double, dblW_CD As Double, dblE_CD As DoubleDim dblS_E As Double, dblV_E As Double, dblA_E As DoubleDim dblS2 As DoubleDim dblF_DE As Double, dblw_DE As Double, dble_DE As DoubleDim PI As DoublePI = 3.1415926dblAB = Val(Form1.Text1.Text)dblCD = Val(Form1.Text2.Text)dblDE = Val(Form1.Text3.Text)dblAC = Val(Form1.Text4.Text)dblH = Val(Form1.Text5.Text)dbln1 = Val(Form1.Text6.Text)List1.ClearList1.AddItem ("f_AB" & Chr(9) & "f_CD" & Chr(9) & "w_CD" & Chr(9) & "e_CD" & Chr(9) & "s_E" & Chr(9) & "v_E" & Chr(9) & "a_E")List1.AddItem ("………………………………………………………………………………………………………………")For i = 0 To 360 Step 30dblF_AB = i * PI / 180dblF_CD = Atn((dblAC + dblAB * Sin(dblF_AB)) / (dblAB * Cos(dblF_AB)))If dblF_CD < 0 Then dblF_CD = dblF_CD + PIdblW_CD = dblAB * (2 * PI * dbln1 / 60) * Cos(dblF_AB - dblF_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))dblE_CD = (-dblAB * (2 * PI * dbln1 / 60) * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) + 2 * dblAB * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) * dblW_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))dblF_DE = Atn(((dblH - dblCD * Sin(dblF_CD)) / dblDE) / Sqr(Abs(1 - (dblH - dblCD * Sin(dblF_CD)) * (dblH - dblCD * Sin(dblF_CD)) / (dblDE * dblDE))))dblw_DE = (-(dblCD * dblW_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE)))dble_DE = ((dblDE * dblw_DE * dblw_DE * Sin(dblF_DE)) + dblCD * dblW_CD * dblW_CD * Sin(dblF_CD) - dblCD * dblE_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE))dblS2 = Sqr(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB))dblS_E = dblCD * Cos(dblF_CD) + dblDE * Cos(dblF_DE)dblV_E = (-dblCD / 1000) * dblW_CD * Sin(dblF_CD) - (dblDE / 1000) * (-(dblCD / 1000) * dblW_CD * Cos(dblF_CD) / ((dblDE / 1000) * Cos(dblF_DE))) * (((dblH / 1000) - (dblCD / 1000) * Sin(dblF_CD)) / (dblDE / 1000))dblA_E = (-dblCD / 1000) * dblE_CD * Sin(dblF_CD) - (dblCD / 1000) * dblW_CD * dblW_CD * Cos(dblF_CD) - (dblDE / 1000) * dble_DE * Sin(dblF_DE) - (dblDE / 1000) * dblw_DE * dblw_DE * Cos(dblF_DE)dbldf_CD = dblF_CD * 180 / PIForm1.Text7.Text = Str(dblF_AB)Form1.Text8.Text = Str(dbldf_CD)Form1.Text9.Text = Str(dblW_CD)Form1.Text10.Text = Str(dblE_CD)Form1.Text11.Text = Str(dblS_E)Form1.Text12.Text = Str(dblV_E)Form1.Text13.Text = Str(dblA_E)List1.AddItem (Str(i) & Chr(9) & Format(Str(dbldf_CD), "0.00") & Chr(9) & Format(Str(dblW_CD), "0.00") & Chr(9) & Format(Str(dblE_CD), "0.00") & Chr(9) & Format(Str(dblS_E), "0.00") & Chr(9) & Format(Str(dblV_E), "0.00") & Chr(9) & Format(Str(dblA_E), "0.00"))Next iList1.AddItem ("………………………………………………………………………………………………………………")End Sub。
大三机械设计课程设计报告vb
![大三机械设计课程设计报告vb](https://img.taocdn.com/s3/m/47a61c1da32d7375a41780b6.png)
Private Sub Command1_Click(Index As Integer)Dim dblWP As Double, dblHP As Double, i As Integer dblWP = Abs(Picture1(0).ScaleWidth)dblHP = Abs(Picture1(0).ScaleHeight)For i = 0 To 5Picture1(i).ClsPicture1(i).ScaleMode = 1Picture1(i).DrawStyle = 0Picture1(i).DrawWidth = 1.5Picture1(i).Scale (-120, dblHP / 2)-(dblWP - 120, -dblHP / 2) Picture1(i).Line (0, 0)-(dblWP - 160, 0)Picture1(i).Line (dblWP - 160, 0)-Step(-120, 120)Picture1(i).Line (dblWP - 160, 0)-Step(-120, -120)Picture1(i).CurrentX = dblWP - 700Picture1(i).CurrentY = 250Picture1(i).Print "f_AB"Picture1(i).CurrentX = -120Picture1(i).CurrentY = -10Picture1(i).Print "0"Picture1(i).Line (0, dblHP / 2 - 60)-(0, -(dblHP / 2 - 60)) Picture1(i).Line (0, dblHP / 2 - 60)-Step(-120, -120) Picture1(i).Line (0, dblHP / 2 - 60)-Step(120, -120)Picture1(i).CurrentX = 160Picture1(i).CurrentY = dblHP / 2 - 60If i <> 0 Then Picture1(i).FontName = "ms sans serif" Select Case iCase 0Picture1(i).Print "f_CD"Case 1Picture1(i).Print "w_CD"Case 2Picture1(i).Print "e_CD"Case 3Picture1(i).Print "s_E"Case 4Picture1(i).Print "v_E"Case 5Picture1(i).Print "a_E"End SelectNext iDim dblMax_f_CD As Double, dblMax_w_CD As Double, dblMax_e_CD As DoubleDim dblMax_s_E As Double, dblMax_v_E As Double, dblMax_a_E As DoubleDim dblF_CD, dblW_CD, dblE_CD As DoubleDim dblS_E, dblV_E, dblA_E As DoubleDim dblF_AB, dblF_DE As DoubleDim dblAB As Double, dblCD As Double, dblDE As Double, dblAC As Double, dblH As Double, dblSE As Double, dbldf_CD As DoubleDim PI As DoublePI = 3.1415926dblAB = Val(Form1.Text1.Text)dblCD = Val(Form1.Text2.Text)dblDE = Val(Form1.Text3.Text)dblAC = Val(Form1.Text4.Text)dblH = Val(Form1.Text5.Text)dbln1 = Val(Form1.Text6.Text)For i = 0 To 360dblF_AB = i * PI / 180dblF_CD = Atn((dblAC + dblAB * Sin(dblF_AB)) / (dblAB * Cos(dblF_AB)))If dblF_CD < 0 Then dblF_CD = dblF_CD + PIdblW_CD = dblAB * (2 * PI * dbln1 / 60) * Cos(dblF_AB - dblF_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))dblE_CD = (-dblAB * (2 * PI * dbln1 / 60) * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) + 2 * dblAB * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) * dblW_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))dblF_DE = Atn(((dblH - dblCD * Sin(dblF_CD)) / dblDE) / Sqr(Abs(1 - (dblH - dblCD * Sin(dblF_CD)) * (dblH - dblCD * Sin(dblF_CD)) / (dblDE * dblDE))))dblw_DE = (-(dblCD * dblW_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE)))dble_DE = ((dblDE * dblw_DE * dblw_DE * Sin(dblF_DE)) + dblCD * dblW_CD * dblW_CD * Sin(dblF_CD) - dblCD * dblE_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE)) dblS2 = Sqr(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB))dblS_E = dblCD * Cos(dblF_CD) + dblDE * Cos(dblF_DE)dblV_E = (-dblCD / 1000) * dblW_CD * Sin(dblF_CD) - (dblDE / 1000) * (-(dblCD / 1000) * dblW_CD * Cos(dblF_CD) / ((dblDE / 1000) * Cos(dblF_DE))) * (((dblH / 1000) - (dblCD / 1000) * Sin(dblF_CD)) / (dblDE / 1000))dblA_E = (-dblCD / 1000) * dblE_CD * Sin(dblF_CD) - (dblCD / 1000) * dblW_CD * dblW_CD * Cos(dblF_CD) - (dblDE / 1000) * dble_DE * Sin(dblF_DE) - (dblDE / 1000) * dblw_DE * dblw_DE * Cos(dblF_DE)If Abs(dblF_CD) > dblMax_f_CD Then dblMax_f_CD = Abs(dblF_CD)If Abs(dblW_CD) > dblMax_w_CD Then dblMax_w_CD = Abs(dblW_CD)If Abs(dblE_CD) > dblMax_f_CD Then dblMax_e_CD = Abs(dblE_CD)If Abs(dblS_E) > dblMax_s_E Then dblMax_s_E = Abs(dblS_E)If Abs(dblV_E) > dblMax_v_E Then dblMax_v_E = Abs(dblV_E)If Abs(dblA_E) > dblMax_a_E Then dblMax_a_E = Abs(dblA_E)Next iDim dblSx As Double, dblSy As DoubledblSx = (dblWP - 240) / 360For i = 0 To 360dblF_AB = i * PI / 180dblF_CD = Atn((dblAC + dblAB * Sin(dblF_AB)) / (dblAB * Cos(dblF_AB)))If dblF_CD < 0 Then dblF_CD = dblF_CD + PIdblW_CD = dblAB * (2 * PI * dbln1 / 60) * Cos(dblF_AB - dblF_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))dblE_CD = (-dblAB * (2 * PI * dbln1 / 60) * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) + 2 * dblAB * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) * dblW_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))dblF_DE = Atn(((dblH - dblCD * Sin(dblF_CD)) / dblDE) / Sqr(Abs(1 - (dblH - dblCD * Sin(dblF_CD)) * (dblH - dblCD * Sin(dblF_CD)) / (dblDE * dblDE))))dblw_DE = (-(dblCD * dblW_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE)))dble_DE = ((dblDE * dblw_DE * dblw_DE * Sin(dblF_DE)) + dblCD * dblW_CD * dblW_CD * Sin(dblF_CD) - dblCD * dblE_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE)) dblS2 = Sqr(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB))dblS_E = dblCD * Cos(dblF_CD) + dblDE * Cos(dblF_DE)dblV_E = (-dblCD / 1000) * dblW_CD * Sin(dblF_CD) - (dblDE / 1000) * (-(dblCD / 1000) * dblW_CD * Cos(dblF_CD) / ((dblDE / 1000) * Cos(dblF_DE))) * (((dblH / 1000) - (dblCD / 1000) * Sin(dblF_CD)) / (dblDE / 1000))dblA_E = (-dblCD / 1000) * dblE_CD * Sin(dblF_CD) - (dblCD / 1000) * dblW_CD * dblW_CD * Cos(dblF_CD) - (dblDE / 1000) * dble_DE * Sin(dblF_DE) - (dblDE / 1000) * dblw_DE * dblw_DE * Cos(dblF_DE)dblSy = (dblHP / 2 - 240) / dblMax_f_CDPicture1(0).PSet (i * dblSx, dblF_CD * dblSy)dblSy = (dblHP / 2 - 240) / dblMax_w_CDPicture1(1).PSet (i * dblSx, dblW_CD * dblSy)dblSy = (dblHP / 2 - 240) / dblMax_e_CDPicture1(2).PSet (i * dblSx, dblE_CD * dblSy * 0.25)dblSy = (dblHP / 2 - 240) / dblMax_s_EPicture1(3).PSet (i * dblSx, dblS_E * dblSy)dblSy = (dblHP / 2 - 240) / dblMax_v_EPicture1(4).PSet (i * dblSx, dblV_E * dblSy)dblSy = (dblHP / 2 - 240) / dblMax_a_EPicture1(5).PSet (i * dblSx, dblA_E * dblSy)Next iEnd SubPrivate Sub Command5_Click()Dim i As DoubleDim dblAB As Double, dblCD As Double, dblDE As Double, dblAC As Double, dblH As Double, dblF_AB As Double, dbldf_CD As DoubleDim dblF_CD As Double, dblW_CD As Double, dblE_CD As DoubleDim dblS_E As Double, dblV_E As Double, dblA_E As DoubleDim dblS2 As DoubleDim dblF_DE As Double, dblw_DE As Double, dble_DE As DoubleDim PI As DoublePI = 3.1415926dblAB = Val(Form1.Text1.Text)dblCD = Val(Form1.Text2.Text)dblDE = Val(Form1.Text3.Text)dblAC = Val(Form1.Text4.Text)dblH = Val(Form1.Text5.Text)dbln1 = Val(Form1.Text6.Text)List1.ClearList1.AddItem ("f_AB" & Chr(9) & "f_CD" & Chr(9) & "w_CD" & Chr(9) & "e_CD" & Chr(9) & "s_E" & Chr(9) & "v_E" & Chr(9) & "a_E")List1.AddItem ("………………………………………………………………………………………………………………")For i = 0 To 360 Step 30dblF_AB = i * PI / 180dblF_CD = Atn((dblAC + dblAB * Sin(dblF_AB)) / (dblAB * Cos(dblF_AB)))If dblF_CD < 0 Then dblF_CD = dblF_CD + PIdblW_CD = dblAB * (2 * PI * dbln1 / 60) * Cos(dblF_AB - dblF_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))dblE_CD = (-dblAB * (2 * PI * dbln1 / 60) * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) + 2 * dblAB * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) * dblW_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))dblF_DE = Atn(((dblH - dblCD * Sin(dblF_CD)) / dblDE) / Sqr(Abs(1 - (dblH - dblCD * Sin(dblF_CD)) * (dblH - dblCD * Sin(dblF_CD)) / (dblDE * dblDE))))dblw_DE = (-(dblCD * dblW_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE)))dble_DE = ((dblDE * dblw_DE * dblw_DE * Sin(dblF_DE)) + dblCD * dblW_CD * dblW_CD * Sin(dblF_CD) - dblCD * dblE_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE))dblS2 = Sqr(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB))dblS_E = dblCD * Cos(dblF_CD) + dblDE * Cos(dblF_DE)dblV_E = (-dblCD / 1000) * dblW_CD * Sin(dblF_CD) - (dblDE / 1000) * (-(dblCD / 1000) * dblW_CD * Cos(dblF_CD) / ((dblDE / 1000) * Cos(dblF_DE))) * (((dblH / 1000) - (dblCD / 1000) * Sin(dblF_CD)) / (dblDE / 1000))dblA_E = (-dblCD / 1000) * dblE_CD * Sin(dblF_CD) - (dblCD / 1000) * dblW_CD * dblW_CD * Cos(dblF_CD) - (dblDE / 1000) * dble_DE * Sin(dblF_DE) - (dblDE / 1000) * dblw_DE * dblw_DE * Cos(dblF_DE)dbldf_CD = dblF_CD * 180 / PIForm1.Text7.Text = Str(dblF_AB)Form1.Text8.Text = Str(dbldf_CD)Form1.Text9.Text = Str(dblW_CD)Form1.Text10.Text = Str(dblE_CD)Form1.Text11.Text = Str(dblS_E)Form1.Text12.Text = Str(dblV_E)Form1.Text13.Text = Str(dblA_E)List1.AddItem (Str(i) & Chr(9) & Format(Str(dbldf_CD), "0.00") & Chr(9) & Format(Str(dblW_CD), "0.00") & Chr(9) & Format(Str(dblE_CD), "0.00") & Chr(9) & Format(Str(dblS_E), "0.00") & Chr(9) & Format(Str(dblV_E), "0.00") & Chr(9) & Format(Str(dblA_E), "0.00"))Next iList1.AddItem ("………………………………………………………………………………………………………………")End Sub精品文档考试教学资料施工组织设计方案。
大三机械设计课程设计vb
![大三机械设计课程设计vb](https://img.taocdn.com/s3/m/bcce7754ff00bed5b9f31d66.png)
大三机械设计课程设计vbPrivate Sub Command1_Click(Index As Integer)Dim dblWP As Double, dblHP As Double, i As IntegerdblWP = Abs(Picture1(0).ScaleWidth)dblHP = Abs(Picture1(0).ScaleHeight)For i = 0 To 5Picture1(i).ClsPicture1(i).ScaleMode = 1Picture1(i).DrawStyle = 0Picture1(i).DrawWidth = 1.5Picture1(i).Scale (-120, dblHP / 2)-(dblWP - 120, -dblHP / 2)Picture1(i).Line (0, 0)-(dblWP - 160, 0)Picture1(i).Line (dblWP - 160, 0)-Step(-120, 120) Picture1(i).Line (dblWP - 160, 0)-Step(-120, -120)Picture1(i).CurrentX = dblWP - 700Picture1(i).CurrentY = 250Picture1(i).CurrentX = -120Picture1(i).CurrentY = -10Picture1(i).Print "0"Picture1(i).Line (0, dblHP / 2 - 60)-(0, -(dblHP / 2 - 60))Picture1(i).Line (0, dblHP / 2 - 60)-Step(-120, -120)Picture1(i).Line (0, dblHP / 2 - 60)-Step(120, -120)Picture1(i).CurrentX = 160Picture1(i).CurrentY = dblHP / 2 - 60If i <> 0 Then Picture1(i).FontName = "ms sans serif"Select Case iCase 0Picture1(i).Print "f_CD"Case 1Picture1(i).Print "w_CD"Case 2Picture1(i).Print "e_CD"Case 3Case 4Picture1(i).Print "v_E"Case 5Picture1(i).Print "a_E"End SelectNext iDim dblMax_f_CD As Double, dblMax_w_CD As Double, dblMax_e_CD As DoubleDim dblMax_s_E As Double, dblMax_v_E As Double, dblMax_a_E As DoubleDim dblF_CD, dblW_CD, dblE_CD As Double Dim dblS_E, dblV_E, dblA_E As DoubleDim dblF_AB, dblF_DE As DoubleDim dblAB As Double, dblCD As Double, dblDE As Double, dblAC As Double, dblH As Double,dblSE As Double, dbldf_CD As DoubleDim PI As DoublePI = 3.1415926dblAB = Val(Form1.Text1.Text)dblCD = Val(Form1.Text2.Text)dblDE = Val(Form1.Text3.Text)dblAC = Val(Form1.Text4.Text)dblH = Val(Form1.Text5.Text)dbln1 = Val(Form1.Text6.Text)For i = 0 To 360dblF_AB = i * PI / 180dblF_CD = Atn((dblAC + dblAB * Sin(dblF_AB)) / (dblAB * Cos(dblF_AB))) If dblF_CD < 0 Then dblF_CD = dblF_CD + PIdblW_CD = dblAB * (2 * PI * dbln1 / 60) * Cos(dblF_AB - dblF_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB *Sin(dblF_AB)))dblE_CD = (-dblAB * (2 * PI * dbln1 / 60) * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) + 2 * dblAB * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) * dblW_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))dblF_DE = Atn(((dblH - dblCD * Sin(dblF_CD)) / dblDE) / Sqr(Abs(1 - (dblH - dblCD * Sin(dblF_CD)) * (dblH - dblCD * Sin(dblF_CD)) / (dblDE * dblDE))))dblw_DE = (-(dblCD * dblW_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE))) dble_DE = ((dblDE * dblw_DE * dblw_DE * Sin(dblF_DE)) + dblCD * dblW_CD * dblW_CD * Sin(dblF_CD) - dblCD * dblE_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE)) dblS2 = Sqr(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB))dblS_E = dblCD * Cos(dblF_CD) + dblDE * Cos(dblF_DE)dblV_E = (-dblCD / 1000) * dblW_CD * Sin(dblF_CD) - (dblDE / 1000) * (-(dblCD / 1000) * dblW_CD * Cos(dblF_CD) / ((dblDE / 1000) * Cos(dblF_DE))) * (((dblH / 1000) - (dblCD / 1000) * Sin(dblF_CD)) / (dblDE / 1000))dblA_E = (-dblCD / 1000) * dblE_CD * Sin(dblF_CD) - (dblCD / 1000) * dblW_CD * dblW_CD * Cos(dblF_CD) - (dblDE / 1000) * dble_DE * Sin(dblF_DE) - (dblDE / 1000) * dblw_DE * dblw_DE * Cos(dblF_DE)If Abs(dblF_CD) > dblMax_f_CD Then dblMax_f_CD = Abs(dblF_CD)If Abs(dblW_CD) > dblMax_w_CD Then dblMax_w_CD = Abs(dblW_CD)If Abs(dblE_CD) > dblMax_f_CD Then dblMax_e_CD = Abs(dblE_CD)If Abs(dblS_E) > dblMax_s_E Then dblMax_s_E = Abs(dblS_E)If Abs(dblV_E) > dblMax_v_E Then dblMax_v_E = Abs(dblV_E)If Abs(dblA_E) > dblMax_a_E Then dblMax_a_E = Abs(dblA_E)Next iDim dblSx As Double, dblSy As DoubledblSx = (dblWP - 240) / 360For i = 0 To 360dblF_AB = i * PI / 180dblF_CD = Atn((dblAC + dblAB * Sin(dblF_AB)) / (dblAB * Cos(dblF_AB))) If dblF_CD < 0 Then dblF_CD = dblF_CD + PIdblW_CD = dblAB * (2 * PI * dbln1 / 60) * Cos(dblF_AB - dblF_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))dblE_CD = (-dblAB * (2 * PI * dbln1 / 60) * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD)+ 2 * dblAB * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) * dblW_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))dblF_DE = Atn(((dblH - dblCD * Sin(dblF_CD)) / dblDE) / Sqr(Abs(1 - (dblH - dblCD * Sin(dblF_CD)) * (dblH - dblCD * Sin(dblF_CD)) / (dblDE * dblDE))))dblw_DE = (-(dblCD * dblW_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE))) dble_DE = ((dblDE * dblw_DE * dblw_DE * Sin(dblF_DE)) + dblCD * dblW_CD * dblW_CD * Sin(dblF_CD) - dblCD * dblE_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE)) dblS2 = Sqr(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB))dblS_E = dblCD * Cos(dblF_CD) + dblDE * Cos(dblF_DE)dblV_E = (-dblCD / 1000) * dblW_CD * Sin(dblF_CD) - (dblDE / 1000) * (-(dblCD / 1000) * dblW_CD * Cos(dblF_CD) / ((dblDE / 1000) * Cos(dblF_DE))) * (((dblH / 1000) - (dblCD / 1000) * Sin(dblF_CD)) / (dblDE / 1000))dblA_E = (-dblCD / 1000) * dblE_CD * Sin(dblF_CD) - (dblCD / 1000) * dblW_CD * dblW_CD * Cos(dblF_CD) - (dblDE / 1000) * dble_DE * Sin(dblF_DE) - (dblDE / 1000) * dblw_DE * dblw_DE * Cos(dblF_DE)dblSy = (dblHP / 2 - 240) / dblMax_f_CDPicture1(0).PSet (i * dblSx, dblF_CD * dblSy)dblSy = (dblHP / 2 - 240) / dblMax_w_CDPicture1(1).PSet (i * dblSx, dblW_CD * dblSy)dblSy = (dblHP / 2 - 240) / dblMax_e_CDPicture1(2).PSet (i * dblSx, dblE_CD * dblSy * 0.25)dblSy = (dblHP / 2 - 240) / dblMax_s_EPicture1(3).PSet (i * dblSx, dblS_E * dblSy)dblSy = (dblHP / 2 - 240) / dblMax_v_EPicture1(4).PSet (i * dblSx, dblV_E * dblSy)dblSy = (dblHP / 2 - 240) / dblMax_a_EPicture1(5).PSet (i * dblSx, dblA_E * dblSy)Next iEnd SubPrivate Sub Command5_Click()Dim i As DoubleDim dblAB As Double, dblCD As Double, dblDE As Double, dblAC As Double, dblH As Double, dblF_AB As Double, dbldf_CD As DoubleDim dblF_CD As Double, dblW_CD As Double, dblE_CD As DoubleDim dblS_E As Double, dblV_E As Double, dblA_E As DoubleDim dblS2 As DoubleDim dblF_DE As Double, dblw_DE As Double,dble_DE As DoubleDim PI As DoublePI = 3.1415926dblAB = Val(Form1.Text1.Text)dblCD = Val(Form1.Text2.Text)dblDE = Val(Form1.Text3.Text)dblAC = Val(Form1.Text4.Text)dblH = Val(Form1.Text5.Text)dbln1 = Val(Form1.Text6.Text)List1.ClearList1.AddItem ("f_AB" & Chr(9) & "f_CD" & Chr(9) & "w_CD" & Chr(9) & "e_CD" & Chr(9) & "s_E" & Chr(9) & "v_E" & Chr(9) & "a_E")List1.AddItem ("………………………………………………………………………………………………………………")For i = 0 To 360 Step 30dblF_AB = i * PI / 180dblF_CD = Atn((dblAC + dblAB * Sin(dblF_AB)) / (dblAB * Cos(dblF_AB)))If dblF_CD < 0 Then dblF_CD = dblF_CD + PI dblW_CD = dblAB * (2 * PI * dbln1 / 60) * Cos(dblF_AB - dblF_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))dblE_CD = (-dblAB * (2 * PI * dbln1 / 60) * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) + 2 * dblAB * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) * dblW_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))dblF_DE = Atn(((dblH - dblCD * Sin(dblF_CD)) / dblDE) / Sqr(Abs(1 - (dblH - dblCD * Sin(dblF_CD)) * (dblH - dblCD * Sin(dblF_CD)) / (dblDE * dblDE))))dblw_DE = (-(dblCD * dblW_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE)))dble_DE = ((dblDE * dblw_DE * dblw_DE * Sin(dblF_DE)) + dblCD * dblW_CD * dblW_CD * Sin(dblF_CD) - dblCD * dblE_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE))dblS2 = Sqr(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB))dblS_E = dblCD * Cos(dblF_CD) + dblDE * Cos(dblF_DE)dblV_E = (-dblCD / 1000) * dblW_CD * Sin(dblF_CD) - (dblDE / 1000) * (-(dblCD / 1000) * dblW_CD * Cos(dblF_CD) / ((dblDE / 1000) * Cos(dblF_DE))) * (((dblH / 1000) - (dblCD / 1000) * Sin(dblF_CD)) / (dblDE / 1000))dblA_E = (-dblCD / 1000) * dblE_CD * Sin(dblF_CD) - (dblCD / 1000) * dblW_CD * dblW_CD * Cos(dblF_CD) - (dblDE / 1000) *dble_DE * Sin(dblF_DE) - (dblDE / 1000) * dblw_DE * dblw_DE * Cos(dblF_DE)dbldf_CD = dblF_CD * 180 / PIForm1.Text7.Text = Str(dblF_AB)Form1.Text8.Text = Str(dbldf_CD)Form1.Text9.Text = Str(dblW_CD)Form1.Text10.Text = Str(dblE_CD)Form1.Text11.Text = Str(dblS_E)Form1.Text12.Text = Str(dblV_E)Form1.Text13.Text = Str(dblA_E)List1.AddItem (Str(i) & Chr(9) & Format(Str(dbldf_CD), "0.00") & Chr(9) & Format(Str(dblW_CD), "0.00") & Chr(9) & Format(Str(dblE_CD), "0.00") & Chr(9) & Format(Str(dblS_E), "0.00") & Chr(9) & Format(Str(dblV_E), "0.00") & Chr(9) & Format(Str(dblA_E), "0.00"))Next iList1.AddItem("………………………………………………………………………………………………………………")End Sub。
大三机械设计课程设计
![大三机械设计课程设计](https://img.taocdn.com/s3/m/25f0a04f0a4e767f5acfa1c7aa00b52acec79c46.png)
大三机械设计课程设计一、课程目标知识目标:1. 学生能够掌握机械设计的基本原理和设计方法,理解并运用机械结构设计的相关知识。
2. 学生能够了解并应用机械设备的性能、可靠性和经济性评价指标,对设计方案进行综合评估。
3. 学生能够熟悉机械设计的相关标准和规范,遵循工程伦理原则进行设计。
技能目标:1. 学生能够运用CAD软件进行机械零件的建模和装配,完成机械设备的二维和三维设计。
2. 学生能够运用力学分析方法和计算软件,进行机械结构的强度、刚度和稳定性计算。
3. 学生能够独立完成一个简单的机械设计项目,包括方案设计、详细设计和制作图纸。
情感态度价值观目标:1. 学生能够培养对机械设计的兴趣,提高解决工程问题的热情和积极性。
2. 学生能够树立良好的工程意识,注重团队合作,培养沟通协调能力。
3. 学生能够遵循社会主义核心价值观,关注机械设计的社会责任和可持续发展,提高自身的职业道德素养。
课程性质:本课程为专业核心课程,旨在培养学生具备机械设计的基本理论和实践能力。
学生特点:大三学生已具备一定的机械基础知识和实践技能,具备独立思考和解决问题的能力。
教学要求:注重理论与实践相结合,鼓励学生参与讨论和实践活动,提高学生的设计创新能力。
将课程目标分解为具体学习成果,便于教学设计和评估。
二、教学内容本课程教学内容主要包括以下几部分:1. 机械设计基本原理:讲解机械设计的基本概念、设计方法和设计过程,使学生掌握机械设计的基本理论。
- 教材章节:第1章 机械设计概述- 内容:机械设计基本概念、设计方法和步骤、机械设计要求。
2. 机械结构设计:介绍机械结构设计的基本原则、结构类型及其应用,使学生能够合理选择和设计机械结构。
- 教材章节:第2章 机械结构设计- 内容:结构设计原则、常见结构类型、结构优化设计。
3. 机械零件设计:讲解常用机械零件的设计原理和计算方法,培养学生独立设计零件的能力。
- 教材章节:第3-6章 机械零件设计- 内容:轴、齿轮、轴承、联轴器等零件的设计计算。
机械原理课程设计VB编程
![机械原理课程设计VB编程](https://img.taocdn.com/s3/m/ec5cfbd7a1116c175f0e7cd184254b35eefd1ab1.png)
机械原理课程设计VB编程一、课程目标知识目标:1. 让学生掌握VB编程的基本语法和结构,理解机械原理在编程中的应用。
2. 使学生能够运用VB编程实现简单的机械运动模拟,如直线运动、圆周运动等。
3. 帮助学生了解计算机辅助设计与机械原理的关联,提高对机械原理的认识。
技能目标:1. 培养学生运用VB编程解决实际机械问题的能力,提高编程实践操作技能。
2. 培养学生独立思考、团队协作的能力,能够与他人共同完成复杂的机械运动模拟项目。
情感态度价值观目标:1. 培养学生对机械原理和计算机编程的兴趣,激发学生的创新意识和探索精神。
2. 培养学生具备良好的编程习惯,注重代码规范和工程实践。
3. 引导学生关注机械行业的发展,认识到所学知识在现实生活中的应用价值。
课程性质:本课程为机械原理与计算机编程相结合的实践性课程,注重培养学生的动手能力和实际问题解决能力。
学生特点:学生已具备一定的机械原理基础,对计算机编程有一定了解,但实践操作经验不足。
教学要求:结合学生特点和课程性质,采用任务驱动、项目教学等方法,引导学生动手实践,实现课程目标。
在教学过程中,关注学生的个体差异,提供个性化的指导和帮助,确保学生能够达到预期的学习成果。
二、教学内容1. VB编程基础:变量定义、数据类型、运算符、控制结构(顺序、选择、循环)等基本语法知识。
教材章节:第一章 VB编程概述,第二章 VB编程基础。
2. 机械原理知识回顾:运动学基本概念、运动方程、力学模型等。
教材章节:第三章 机械原理基础。
3. VB编程在机械原理中的应用:利用VB编程实现机械运动模拟,包括直线运动、圆周运动等。
教材章节:第四章 VB编程在机械原理中的应用。
4. 项目实践:分组进行项目设计,实现具有一定难度的机械运动模拟。
教材章节:第五章 机械运动模拟项目实践。
5. 课程总结与拓展:总结所学知识,探讨机械原理与VB编程的结合在工程实践中的应用,引导学生进行拓展学习。
大学生vb课程设计
![大学生vb课程设计](https://img.taocdn.com/s3/m/d8dd139bab00b52acfc789eb172ded630b1c983e.png)
大学生vb课程设计一、课程目标知识目标:1. 理解VB(Visual Basic)语言的基本语法和编程结构;2. 掌握VB中数据类型、变量、常量的定义与使用;3. 学会使用VB进行顺序结构、选择结构和循环结构的编程;4. 熟悉VB中常用控件的使用,如文本框、按钮、标签等;5. 了解VB中事件驱动编程的概念及其应用。
技能目标:1. 能够运用VB编写简单的程序,解决实际问题;2. 学会使用VB进行基本的算法设计和实现;3. 掌握利用VB进行界面设计和人机交互;4. 培养独立分析问题、设计程序解决方案的能力。
情感态度价值观目标:1. 培养学生积极的学习态度,激发对编程的兴趣和热情;2. 培养学生的团队合作意识,学会与他人共同解决问题;3. 培养学生严谨、细致的编程习惯,提高编程素养;4. 引导学生认识编程在现代社会中的重要作用,增强社会责任感。
本课程针对大学生开设,考虑到学生的认知水平和实际需求,课程目标既注重基础知识的学习,又强调实践技能的培养。
通过本课程的学习,使学生能够掌握VB编程的基本技能,培养编程思维,提高解决实际问题的能力。
同时,注重培养学生的情感态度和价值观,使其在学习过程中形成积极向上、严谨细致的学习态度,为未来的学习和工作打下坚实基础。
二、教学内容1. VB概述与集成开发环境- 了解VB的发展历程、特点及应用领域;- 学会使用VB的集成开发环境,熟悉工具栏、菜单栏等操作。
2. 基本语法与数据类型- 学习VB中的数据类型、变量、常量的定义与使用;- 掌握基本运算符、表达式和赋值语句。
3. 控制结构- 学习顺序结构、选择结构(If条件语句、Select Case语句);- 学习循环结构(For循环、While循环、Do循环)。
4. 常用控件- 熟悉文本框、按钮、标签等控件的使用;- 学习使用列表框、组合框、菜单等高级控件。
5. 事件驱动编程- 了解事件驱动编程的基本概念;- 学会编写事件处理过程,实现简单的人机交互。
机械原理课程设计(VB版)2012概要
![机械原理课程设计(VB版)2012概要](https://img.taocdn.com/s3/m/7ccb1ef4360cba1aa811dad9.png)
3)RRP杆组:
Public Function RRP2(AFA As Double, Px As Double, Py As Double, XA As Double, YA As Double, XAv As Double, YAv As Double, XAa As Double, YAa As Double, LAB As Double, QAB As Double, WAB As Double, EAB As Double) As Integer
AFA为滑块导路与X轴的夹角,如图1-3所示; Px , Py分别为滑块导路参考点P的x , y坐标。
C B A D
E F
调用方法:
FLAG=RRP2(0,0,E,XE,YE,XEv,YEv,XEa,YEa,LEF,QEF,WEF,EEF)
FLAG=0:无解;FLAG =1:有解
4)RPR杆组:
Public Sub RPR2(XA As Double, YA As Double, XAv As Double, YAv As Double, XAa As Double, YAa As Double, XB As Double, YB As Double, XBv As Double, YBv As Double, XBa As Double, YBa As Double, Q As Double, W As Double, E As Double)
2、显示语句 可用MsgBox语句:MsgBox “输出信息字符串” [,Buttons] 例如: If Flag = 0 Then MsgBox “无解”, vbOKOnly Exit Sub End If
考VB教材
五、控制语句
1、If 语句: If 条件1 Then FoxPro格式: 语句1 IF (条件) Else 语句行序列1 语句2 ELSE End If 语句行序列1 或:If 条件 Then 语句 ENDIF 例如: If Flag = 1 Then MsgBox “有解。” Else MsgBox “无解。” End If 或: IF Flag=0 Then MsgBox “无解。” 此外,还有Select Case语句也可以按条件选择执行语句。
大三机械设计课程设计vb
![大三机械设计课程设计vb](https://img.taocdn.com/s3/m/d227d0780a4c2e3f5727a5e9856a561252d321d7.png)
Private Sub Command1_Click(Index As Integer)Dim dblWP As Double, dblHP As Double, i As Integer dblWP = Abs(Picture1(0).ScaleWidth)dblHP = Abs(Picture1(0).ScaleHeight)For i = 0 To 5Picture1(i).ClsPicture1(i).ScaleMode = 1Picture1(i).DrawStyle = 0Picture1(i).DrawWidth = 1.5Picture1(i).Scale (-120, dblHP / 2)-(dblWP - 120, -dblHP / 2) Picture1(i).Line (0, 0)-(dblWP - 160, 0)Picture1(i).Line (dblWP - 160, 0)-Step(-120, 120)Picture1(i).Line (dblWP - 160, 0)-Step(-120, -120)Picture1(i).CurrentX = dblWP - 700Picture1(i).CurrentY = 250Picture1(i).Print "f_AB"Picture1(i).CurrentX = -120Picture1(i).CurrentY = -10Picture1(i).Print "0"Picture1(i).Line (0, dblHP / 2 - 60)-(0, -(dblHP / 2 - 60)) Picture1(i).Line (0, dblHP / 2 - 60)-Step(-120, -120)Picture1(i).Line (0, dblHP / 2 - 60)-Step(120, -120)Picture1(i).CurrentX = 160Picture1(i).CurrentY = dblHP / 2 - 60If i <> 0 Then Picture1(i).FontName = "ms sans serif"Select Case iCase 0Picture1(i).Print "f_CD"Case 1Picture1(i).Print "w_CD"Case 2Picture1(i).Print "e_CD"Case 3Picture1(i).Print "s_E"Case 4Picture1(i).Print "v_E"Case 5Picture1(i).Print "a_E"End SelectNext iDim dblMax_f_CD As Double, dblMax_w_CD As Double, dblMax_e_CD As Double Dim dblMax_s_E As Double, dblMax_v_E As Double, dblMax_a_E As DoubleDim dblF_CD, dblW_CD, dblE_CD As DoubleDim dblS_E, dblV_E, dblA_E As DoubleDim dblF_AB, dblF_DE As DoubleDim dblAB As Double, dblCD As Double, dblDE As Double, dblAC As Double, dblH As Double, dblSE As Double, dbldf_CD As DoubleDim PI As DoublePI = 3.1415926dblAB = Val(Form1.Text1.Text)dblCD = Val(Form1.Text2.Text)dblDE = Val(Form1.Text3.Text)dblAC = Val(Form1.Text4.Text)dblH = Val(Form1.Text5.Text)dbln1 = Val(Form1.Text6.Text)For i = 0 To 360dblF_AB = i * PI / 180dblF_CD = Atn((dblAC + dblAB * Sin(dblF_AB)) / (dblAB * Cos(dblF_AB)))If dblF_CD < 0 Then dblF_CD = dblF_CD + PIdblW_CD = dblAB * (2 * PI * dbln1 / 60) * Cos(dblF_AB - dblF_CD) / Sqr(Abs(dblAB *dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))dblE_CD = (-dblAB * (2 * PI * dbln1 / 60) * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) + 2 * dblAB * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) * dblW_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))dblF_DE = Atn(((dblH - dblCD * Sin(dblF_CD)) / dblDE) / Sqr(Abs(1 - (dblH - dblCD * Sin(dblF_CD)) * (dblH - dblCD * Sin(dblF_CD)) / (dblDE * dblDE))))dblw_DE = (-(dblCD * dblW_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE)))dble_DE = ((dblDE * dblw_DE * dblw_DE * Sin(dblF_DE)) + dblCD * dblW_CD * dblW_CD * Sin(dblF_CD) - dblCD * dblE_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE)) dblS2 = Sqr(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB))dblS_E = dblCD * Cos(dblF_CD) + dblDE * Cos(dblF_DE)dblV_E = (-dblCD / 1000) * dblW_CD * Sin(dblF_CD) - (dblDE / 1000) * (-(dblCD / 1000) * dblW_CD * Cos(dblF_CD) / ((dblDE / 1000) * Cos(dblF_DE))) * (((dblH / 1000) - (dblCD / 1000) * Sin(dblF_CD)) / (dblDE / 1000))dblA_E = (-dblCD / 1000) * dblE_CD * Sin(dblF_CD) - (dblCD / 1000) * dblW_CD * dblW_CD * Cos(dblF_CD) - (dblDE / 1000) * dble_DE * Sin(dblF_DE) - (dblDE / 1000) * dblw_DE * dblw_DE * Cos(dblF_DE)If Abs(dblF_CD) > dblMax_f_CD Then dblMax_f_CD = Abs(dblF_CD)If Abs(dblW_CD) > dblMax_w_CD Then dblMax_w_CD = Abs(dblW_CD)If Abs(dblE_CD) > dblMax_f_CD Then dblMax_e_CD = Abs(dblE_CD)If Abs(dblS_E) > dblMax_s_E Then dblMax_s_E = Abs(dblS_E)If Abs(dblV_E) > dblMax_v_E Then dblMax_v_E = Abs(dblV_E)If Abs(dblA_E) > dblMax_a_E Then dblMax_a_E = Abs(dblA_E)Next iDim dblSx As Double, dblSy As DoubledblSx = (dblWP - 240) / 360For i = 0 To 360dblF_AB = i * PI / 180dblF_CD = Atn((dblAC + dblAB * Sin(dblF_AB)) / (dblAB * Cos(dblF_AB)))If dblF_CD < 0 Then dblF_CD = dblF_CD + PIdblW_CD = dblAB * (2 * PI * dbln1 / 60) * Cos(dblF_AB - dblF_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))dblE_CD = (-dblAB * (2 * PI * dbln1 / 60) * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) + 2 * dblAB * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) * dblW_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))dblF_DE = Atn(((dblH - dblCD * Sin(dblF_CD)) / dblDE) / Sqr(Abs(1 - (dblH - dblCD * Sin(dblF_CD)) * (dblH - dblCD * Sin(dblF_CD)) / (dblDE * dblDE))))dblw_DE = (-(dblCD * dblW_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE)))dble_DE = ((dblDE * dblw_DE * dblw_DE * Sin(dblF_DE)) + dblCD * dblW_CD * dblW_CD * Sin(dblF_CD) - dblCD * dblE_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE)) dblS2 = Sqr(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB))dblS_E = dblCD * Cos(dblF_CD) + dblDE * Cos(dblF_DE)dblV_E = (-dblCD / 1000) * dblW_CD * Sin(dblF_CD) - (dblDE / 1000) * (-(dblCD / 1000) * dblW_CD * Cos(dblF_CD) / ((dblDE / 1000) * Cos(dblF_DE))) * (((dblH / 1000) - (dblCD / 1000) * Sin(dblF_CD)) / (dblDE / 1000))dblA_E = (-dblCD / 1000) * dblE_CD * Sin(dblF_CD) - (dblCD / 1000) * dblW_CD * dblW_CD * Cos(dblF_CD) - (dblDE / 1000) * dble_DE * Sin(dblF_DE) - (dblDE / 1000) * dblw_DE * dblw_DE * Cos(dblF_DE)dblSy = (dblHP / 2 - 240) / dblMax_f_CDPicture1(0).PSet (i * dblSx, dblF_CD * dblSy)dblSy = (dblHP / 2 - 240) / dblMax_w_CDPicture1(1).PSet (i * dblSx, dblW_CD * dblSy)dblSy = (dblHP / 2 - 240) / dblMax_e_CDPicture1(2).PSet (i * dblSx, dblE_CD * dblSy * 0.25)dblSy = (dblHP / 2 - 240) / dblMax_s_EPicture1(3).PSet (i * dblSx, dblS_E * dblSy)dblSy = (dblHP / 2 - 240) / dblMax_v_EPicture1(4).PSet (i * dblSx, dblV_E * dblSy)dblSy = (dblHP / 2 - 240) / dblMax_a_EPicture1(5).PSet (i * dblSx, dblA_E * dblSy)Next iEnd SubPrivate Sub Command5_Click()Dim i As DoubleDim dblAB As Double, dblCD As Double, dblDE As Double, dblAC As Double, dblH As Double, dblF_AB As Double, dbldf_CD As DoubleDim dblF_CD As Double, dblW_CD As Double, dblE_CD As DoubleDim dblS_E As Double, dblV_E As Double, dblA_E As DoubleDim dblS2 As DoubleDim dblF_DE As Double, dblw_DE As Double, dble_DE As DoubleDim PI As DoublePI = 3.1415926dblAB = Val(Form1.Text1.Text)dblCD = Val(Form1.Text2.Text)dblDE = Val(Form1.Text3.Text)dblAC = Val(Form1.Text4.Text)dblH = Val(Form1.Text5.Text)dbln1 = Val(Form1.Text6.Text)List1.ClearList1.AddItem ("f_AB" & Chr(9) & "f_CD" & Chr(9) & "w_CD" & Chr(9) & "e_CD" & Chr(9) & "s_E" & Chr(9) & "v_E" & Chr(9) & "a_E")List1.AddItem ("………………………………………………………………………………………………………………")For i = 0 To 360 Step 30dblF_AB = i * PI / 180dblF_CD = Atn((dblAC + dblAB * Sin(dblF_AB)) / (dblAB * Cos(dblF_AB)))If dblF_CD < 0 Then dblF_CD = dblF_CD + PIdblW_CD = dblAB * (2 * PI * dbln1 / 60) * Cos(dblF_AB - dblF_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))dblE_CD = (-dblAB * (2 * PI * dbln1 / 60) * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) + 2 * dblAB * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) * dblW_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))dblF_DE = Atn(((dblH - dblCD * Sin(dblF_CD)) / dblDE) / Sqr(Abs(1 - (dblH - dblCD * Sin(dblF_CD)) * (dblH - dblCD * Sin(dblF_CD)) / (dblDE * dblDE))))dblw_DE = (-(dblCD * dblW_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE)))dble_DE = ((dblDE * dblw_DE * dblw_DE * Sin(dblF_DE)) + dblCD * dblW_CD * dblW_CD * Sin(dblF_CD) - dblCD * dblE_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE))dblS2 = Sqr(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB))dblS_E = dblCD * Cos(dblF_CD) + dblDE * Cos(dblF_DE)dblV_E = (-dblCD / 1000) * dblW_CD * Sin(dblF_CD) - (dblDE / 1000) * (-(dblCD / 1000) * dblW_CD * Cos(dblF_CD) / ((dblDE / 1000) * Cos(dblF_DE))) * (((dblH / 1000) - (dblCD / 1000) * Sin(dblF_CD)) / (dblDE / 1000))dblA_E = (-dblCD / 1000) * dblE_CD * Sin(dblF_CD) - (dblCD / 1000) * dblW_CD * dblW_CD * Cos(dblF_CD) - (dblDE / 1000) * dble_DE * Sin(dblF_DE) - (dblDE / 1000) * dblw_DE *dblw_DE * Cos(dblF_DE)dbldf_CD = dblF_CD * 180 / PIForm1.Text7.Text = Str(dblF_AB)Form1.Text8.Text = Str(dbldf_CD)Form1.Text9.Text = Str(dblW_CD)Form1.Text10.Text = Str(dblE_CD)Form1.Text11.Text = Str(dblS_E)Form1.Text12.Text = Str(dblV_E)Form1.Text13.Text = Str(dblA_E)List1.AddItem (Str(i) & Chr(9) & Format(Str(dbldf_CD), "0.00") & Chr(9) & Format(Str(dblW_CD), "0.00") & Chr(9) & Format(Str(dblE_CD), "0.00") & Chr(9) & Format(Str(dblS_E), "0.00") & Chr(9) & Format(Str(dblV_E), "0.00") & Chr(9) & Format(Str(dblA_E), "0.00"))Next iList1.AddItem ("………………………………………………………………………………………………………………")End Sub。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
大三机械设计课程
设计vb
Private Sub Command1_Click(Index As Integer)
Dim dblWP As Double, dblHP As Double, i As Integer dblWP = Abs(Picture1(0).ScaleWidth)
dblHP = Abs(Picture1(0).ScaleHeight)
For i = 0 To 5
Picture1(i).Cls
Picture1(i).ScaleMode = 1
Picture1(i).DrawStyle = 0
Picture1(i).DrawWidth = 1.5
Picture1(i).Scale (-120, dblHP / 2)-(dblWP - 120, -dblHP / 2) Picture1(i).Line (0, 0)-(dblWP - 160, 0)
Picture1(i).Line (dblWP - 160, 0)-Step(-120, 120)
Picture1(i).Line (dblWP - 160, 0)-Step(-120, -120)
Picture1(i).CurrentX = dblWP - 700
Picture1(i).CurrentY = 250
Picture1(i).Print "f_AB"
Picture1(i).CurrentX = -120
Picture1(i).CurrentY = -10
Picture1(i).Print "0"
Picture1(i).Line (0, dblHP / 2 - 60)-(0, -(dblHP / 2 - 60)) Picture1(i).Line (0, dblHP / 2 - 60)-Step(-120, -120)
Picture1(i).Line (0, dblHP / 2 - 60)-Step(120, -120)
Picture1(i).CurrentX = 160
Picture1(i).CurrentY = dblHP / 2 - 60
If i <> 0 Then Picture1(i).FontName = "ms sans serif"
Select Case i
Case 0
Picture1(i).Print "f_CD"
Case 1
Picture1(i).Print "w_CD"
Case 2
Picture1(i).Print "e_CD"
Case 3
Picture1(i).Print "s_E"
Case 4
Picture1(i).Print "v_E"
Case 5
Picture1(i).Print "a_E"
End Select
Next i
Dim dblMax_f_CD As Double, dblMax_w_CD As Double, dblMax_e_CD As Double
Dim dblMax_s_E As Double, dblMax_v_E As Double, dblMax_a_E As
Double
Dim dblF_CD, dblW_CD, dblE_CD As Double
Dim dblS_E, dblV_E, dblA_E As Double
Dim dblF_AB, dblF_DE As Double
Dim dblAB As Double, dblCD As Double, dblDE As Double, dblAC As Double, dblH As Double, dblSE As Double, dbldf_CD As Double
Dim PI As Double
PI = 3.1415926
dblAB = Val(Form1.Text1.Text)
dblCD = Val(Form1.Text2.Text)
dblDE = Val(Form1.Text3.Text)
dblAC = Val(Form1.Text4.Text)
dblH = Val(Form1.Text5.Text)
dbln1 = Val(Form1.Text6.Text)
For i = 0 To 360
dblF_AB = i * PI / 180
dblF_CD = Atn((dblAC + dblAB * Sin(dblF_AB)) / (dblAB *
Cos(dblF_AB)))
If dblF_CD < 0 Then dblF_CD = dblF_CD + PI
dblW_CD = dblAB * (2 * PI * dbln1 / 60) * Cos(dblF_AB - dblF_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))
dblE_CD = (-dblAB * (2 * PI * dbln1 / 60) * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) + 2 * dblAB * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) * dblW_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))
dblF_DE = Atn(((dblH - dblCD * Sin(dblF_CD)) / dblDE) / Sqr(Abs(1 - (dblH - dblCD * Sin(dblF_CD)) * (dblH - dblCD * Sin(dblF_CD)) / (dblDE * dblDE))))
dblw_DE = (-(dblCD * dblW_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE)))
dble_DE = ((dblDE * dblw_DE * dblw_DE * Sin(dblF_DE)) + dblCD * dblW_CD * dblW_CD * Sin(dblF_CD) - dblCD * dblE_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE))
dblS2 = Sqr(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB))
dblS_E = dblCD * Cos(dblF_CD) + dblDE * Cos(dblF_DE)
dblV_E = (-dblCD / 1000) * dblW_CD * Sin(dblF_CD) - (dblDE / 1000) * (-(dblCD / 1000) * dblW_CD * Cos(dblF_CD) / ((dblDE / 1000) * Cos(dblF_DE))) * (((dblH / 1000) - (dblCD / 1000) * Sin(dblF_CD)) / (dblDE / 1000))
dblA_E = (-dblCD / 1000) * dblE_CD * Sin(dblF_CD) - (dblCD / 1000) * dblW_CD * dblW_CD * Cos(dblF_CD) - (dblDE / 1000) * dble_DE * Sin(dblF_DE) - (dblDE / 1000) * dblw_DE * dblw_DE * Cos(dblF_DE)
If Abs(dblF_CD) > dblMax_f_CD Then dblMax_f_CD = Abs(dblF_CD)
If Abs(dblW_CD) > dblMax_w_CD Then dblMax_w_CD = Abs(dblW_CD)
If Abs(dblE_CD) > dblMax_f_CD Then dblMax_e_CD = Abs(dblE_CD)
If Abs(dblS_E) > dblMax_s_E Then dblMax_s_E = Abs(dblS_E)
If Abs(dblV_E) > dblMax_v_E Then dblMax_v_E = Abs(dblV_E)
If Abs(dblA_E) > dblMax_a_E Then dblMax_a_E = Abs(dblA_E)
Next i
Dim dblSx As Double, dblSy As Double
dblSx = (dblWP - 240) / 360
For i = 0 To 360
dblF_AB = i * PI / 180
dblF_CD = Atn((dblAC + dblAB * Sin(dblF_AB)) / (dblAB * Cos(dblF_AB)))
If dblF_CD < 0 Then dblF_CD = dblF_CD + PI
dblW_CD = dblAB * (2 * PI * dbln1 / 60) * Cos(dblF_AB - dblF_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))。