《机械设计研究性学习.docxVIP

机械设计研究性学习设计背景螺栓在日常生活当中和工业生产制造当中，是少不了的，螺栓也被称为工业之米。可见螺栓的运用之广泛。螺栓的运用范围有：电子产品，机械产品，数码产品，电力设备，机电机械产品。船舶，车辆，水利工程，甚至化学实验上也有用到螺栓。螺栓在工业上负有重要任务，只要地球上存在着工业，则螺栓之功能永远重要。由此可见螺栓强度的校核以及螺栓直径的计算是两件重要且繁琐的事。我本次所设计的软件就是希望能够较为方便的进行螺栓的设计以及校核。所用软件简介我们在本次机械设计中所使用的开发工具是vb2010。Visual Basic 是一种由?Microsoft?公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。从任何标准来说，VB都是世界上使用人数最多的语言——不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。设计软件功能我在本次研究性学学习的软件制作过程中，尝试设计一个拥有以下两种用途的软件：第在已知性能等级、截面积和所受应力的条件下对螺栓的强度进行校核；第二、在提供性能等级以及所受应力的条件下计算最小的横截面积。四、部分程序及界面截图首先我将展示一些界面的截图这是欢迎使用界面。单击窗体之后会进入开始界面点击“螺栓部分”按钮会进入螺栓的校核以及计算界面先选择性能等级，我在本次研究性学习中预先10种常用的性能等级之后选择受力情况之后输入最大应力，最大应力只能输入9位数字。若输入不是数字在计算时会报错输入最大应力以后可以开始计算最小截面直径如果在设计最小直径中输入设计时所用的直径则可以进行校核。若设计直径过小会报错若直径合适则会提示可以之后是我的主要程序展示Public Class Form3 Dim a As Single Dim b As Single Dim c As Single Dim d As Single Dim e As Single Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load TextBox1.MaxLength = 9 End Sub Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If Not IsNumeric(TextBox1.Text) Then MsgBox(必须为数字, , 警告) TextBox1.Text = End If If ComboBox2.Text = 承受拉力 Then c = ((4 * 1.3 * 1.5 * Val(TextBox1.Text)) / (3.14 * a)) ^ 0.5 Label6.Text = Mid(c, 1, 8) End If If ComboBox2.Text = 承受剪力 Then c = ((4 * 1.5 * 1.5 * Val(TextBox1.Text)) / (3.14 * a)) ^ 0.5 End If If ComboBox2.Text = 承受剪力 Then d = (1 * Val(TextBox1.Text) / a) ^ 0.5 End If If c d Then Label6.Text = c Else Label6.Text = d End If End Sub Private Sub ComboBox1_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged If ComboBox1.Text = 3.6 Then a = 180 End If If ComboBox1.Text = 4.6 Then a = 240 End If If ComboBox1.Text = 4.8 Then a = 320 End If If ComboBox1.Text = 5.6 Then a = 300 End If If ComboBox1.Text = 5.8 Then a = 400 End If If ComboBox1.Text = 6.8