VB实验标准件库的建立

VB实验 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 件库的建立 实验 标准件库的建立 实验步骤 1(在前面的实验中，通过编程实现了键槽特征的自动绘制。但是在机械设计中，键槽特征实际上是规格成系列化的图形，只要轴径确定了，其余的参数均可从设计手册中查询得到，而不是由用户任意输入。除此之外，在工程设计中经常要用到一些标准件，对于这些类型的零件图形，最好的解决办法是与标准数据库相连接。本实验以键槽特征的绘制为例，先将键槽的相关数据存放在数据库中，通过用户输入关键参数，然后利用VB程序访问数据库获得相关参数数据，计算关键点坐标并绘制出图形。 2(建立零件标准数据库 运行Microsoft Office Access应用程序，新建一个数据库，取名为“标准零件库”。在打开的数据库窗口中双击“使用设计器创建表”，依次添加如下字段。 表5-2 键槽表结构 字段名称 数据类型 字段大小 radius 数字 单精度型 width 数字 单精度型 height 数字 单精度型 通过右键点击radius字段，将radius字段设置为该表的主键，并将该表命名为“键槽”。返回数据库窗口后，会发现当前数据库中增加了一个新的表，其名为“键槽”。双击该表，将会进入 记录 混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载 输入界面，依次输入键槽的有关标准数据，如图5-16所示。 图5-16 键槽标准数据 保存所作工作并退出。 3(设计VB应用程序界面 运行Visual Basic，新建一个“标准EXE”工程，在工程中的Form1表单中，按照设计键槽特征所需的参数，设计如下界面: 图5-17 键槽特征绘制圆心坐标输入 其中，圆心坐标的三个分量X、Y、Z由用户从文本框输入。并且设置其默认值为(100.0，100.0，0.0) (建立与数据库的连接 4 在上面的步骤中，实现了圆心坐标三个分量的用户输入，而其他的三个参数则没有让用户输入。原因在于轴径等参数是标准化的参数，在设计手册中有详细规定，不应由用户任意输入。我们可以从标准数据库中读出相应的数据，再由用户交互式选择。要做到这一点，先要建立与数据库的连接。在VB中访问数据库有多种方式，这里介绍其中简单易行的一种:通过ADO Data控件来实现。 使用ADO Data控件之前，请选择“工程”菜单的“部件”菜单项，然后选中“部件”对话框的Microsoft ADO Data Control 6.0(OLE DB)复选框，再单击“确定”按钮，将其加到工具箱后拖放至应用程序的窗体中，并按下面的步骤设置其相关属性。 在属性窗口中选择ConnectionString属性，然后单击右侧的“…”按钮，打开“属性页”对话框。 图5-18 ADO Data控件ConnectionString属性页 接着选中“生成”按钮，弹出“数据链接属性”对话框，并在“提供者”选项卡中选择“Microsoft Jet 4.0 OLE DB Provider” 图5-19 数据链接属性对话框1 接下来点击“下一步”按钮，转到“连接”选项卡，通过“…”按钮选择前面建立的“标准零件库”。 图5-20 数据链接属性对话框2 可以点击“测试连接”按钮测试数据库设置是否成功。然后点击“确定”按钮关闭对话框。 接下来决定从数据库中检索的信息，即设置ADO Data控件的“RecordSource”属性。在记录源属性页中选择记录源的命令类型为表，表的名称指定为前面建立好的“键槽”表。 图5-21 ADO Data控件的记录源属性页 由于ADO Data控件仅用于链接数据库，不需要用户操作，故将其“Visible”属性设为“False”。 5(将数据库中的记录显示在界面的相应控件中。 只要轴径确定，键槽特征的宽度与深度均可从标准数据中查询得到，故可提供一个下拉列表供用户选择标准轴径，根据该轴径的值，检索出键槽特征的宽度与深度数据并显示在界面中即可。在VB中提供了DataCombo控件，可以实现与数据库中特定的字段绑定而自动填充下拉列表，极大地简化了程序设计。DataCombo不是VB默认工具箱中的控件，需要用户手工添加进来。选择“工程”菜单的“部件”菜单项，然后在“部件”对话框中选中“Microsoft DataList Control 6.0(OLEDB)”复选框，单击“确定”按钮将其添加到工具箱中。 将DataCombo控件拖放到窗体的适当位置后设置其属性如下: 表5-3 DataCombo控件属性设置 属性名称 值 DataSource Adodc1 RowSource Adodc1 ListField radius BoundColumn radius Text 清空 添加两个文本框用于显示键槽特征的宽度与深度值，由于这两个值均从数据库中检索得到，故不允许用户输入，需要将其“Enabled”属性设为“False”。最后添加“确定”与“取消”按钮完成界面的设计。 图5-22 键槽特征绘制对话框 6(实现自动检索宽度与深度数据并显示的代码。 在控件DataCombo1的Change事件处理程序中添加如下代码: Private Sub DataCombo1_Change() Adodc1.Recordset.MoveFirst While Adodc1.Recordset.EOF = False And _ Adodc1.Recordset("radius") <> DataCombo1.Text Adodc1.Recordset.MoveNext Wend End Sub 当用户改变轴径下拉列表中的值时，将Adodc1控件绑定的记录移动到相应的行。由于 宽度与深度均绑定到Adodc1控件，故可实现自动检索并显示。 7(完成绘图功能。 在当前窗体的代码中添加如下窗体模块级变量: Private cen(0 To 2) As Double Private cenX As Double Private cenY As Double Private cenZ As Double Private R As Double Private jcWidth As Double Private jcDepth As Double 添加如下绘制键槽特征的过程 Public Sub drawJianCao() Dim points(0 To 7) As Double Dim rb As Double, zb As Double Dim fb As Double, rt As Double Dim x1 As Double, y1 As Double Dim x2 As Double, y2 As Double Dim x3 As Double, y3 As Double Dim x4 As Double, y4 As Double Dim Sangle As Double, Eangle As Double Dim Sang As Double, Eang As Double Dim pline As AcadLWPolyline Dim Arc As AcadArc cen(0) = cenX cen(1) = cenY cen(2) = cenZ rb = Sqr(R * R - (jcWidth * jcWidth) / 4) zb = jcWidth / 2 fb = -jcWidth / 2 rt = R - jcDepth x1 = cen(0) + rb y1 = cen(1) + zb * Cos(AngleVa) x2 = cen(0) + rb * Cos(AngleVa) y2 = cen(1) + fb * Cos(AngleVa) x3 = cen(0) + rt * Cos(AngleVa) y3 = cen(1) + fb * Cos(AngleVa) x4 = cen(0) + rt * Cos(AngleVa) y4 = cen(1) + zb * Cos(AngleVa) points(0) = x1 points(1) = y1 points(2) = x4 points(3) = y4 points(4) = x3 points(5) = y3 points(6) = x2 points(7) = y2 Sangle = Atn((y1 - cen(1)) / (x1 - cen(0))) Eangle = Atn((y2 - cen(1)) / (x2 - cen(0))) On Error Resume Next Dim acadApp As AcadApplication Set acadApp = GetObject(, "AutoCAD.Application") If Err Then Err.Clear Set acadApp = CreateObject("AutoCAD.Application") If Err Then MsgBox Err.Description Exit Sub End If End If acadApp.Visible = True Dim acadDoc As AcadDocument Set acadDoc = acadApp.ActiveDocument acadDoc.ModelSpace.AddArc cen, R, Sangle, Eangle acadDoc.ModelSpace.AddLightWeightPolyline points ZoomAll End Sub 8(完成其他功能。 在“确定”按钮的Click事件中添加如下代码: Private Sub Command1_Click() cenX = CDbl(Text1.Text) cenY = CDbl(Text2.Text) cenZ = CDbl(Text3.Text) R = CDbl(DataCombo1.Text) jcWidth = CDbl(Text4.Text) jcDepth = CDbl(Text5.Text) drawJianCao End End Sub 在“取消”按钮的Click事件中添加如下代码: Private Sub Command2_Click() End End Sub 保存所有的工作，并运行该程序，即可实现标准键槽特征的绘制。 实验 总结 初级经济法重点总结下载党员个人总结TXt高中句型全总结.doc高中句型全总结.doc理论力学知识点总结pdf 1(完成以上键槽特征绘制程序以及相应标准零件库的建立。 2(在上述标准零件库中添加一个表用于记录六角头螺栓的标准数据，设计该表中各字 段的名称，数据类型等结构。 3(编写一个VB应用程序实现标准六角头螺栓主视图与左视图的绘制， 要求 对教师党员的评价套管和固井爆破片与爆破装置仓库管理基本要求三甲医院都需要复审吗 用户只需 选择或输入主要的控制参数，其余的均从数据库中检索得到。