材力大作业轴向拉压计算

材料力学电算大作业说明书 1 6 HarbinHarbinHarbin InstituteInstituteInstitute ofofof TechnologyTechnologyTechnology 材料力学电算大作业材料力学电算大作业 说明书说明书 课程名称 材料力学电算大作业 设计题目 轴向拉压计算 院 系 班 级 作 者 学 号 指导教师 制作时间 哈尔滨工业大学 材料力学电算大作业说明书 2 6 一 一 程序介绍程序介绍 本程序使用 Visual Basic 6 0 以下简称 VB 编写 生成的 exe 文件能脱离 VB 环境下运行 具有较好的适应性 同时 提供了编写过程的 VB 源代码及源文件 便于别人查看和修改 程序提供了完整的输入输出功能 能够解决直杆及阶梯杆在多个集中力 分布 力作用下的应力计算 伸缩量计算 应变能计算等功能 最后结果能够输出到 txt 文件中 同时 能够画出对应的载荷示意图及轴力图 本程序设计的另一特点是提 供了很好的提示功能 用户将鼠标移动到某些控件上能够实时的为用户提供该控件 的功能 在用户不需要该功能时可以关闭该功能 因此本程序提供了友好的用户体 验 还有本程序界面设计美观 提供了三种不同的皮肤 可在运行时切换 二 关键代码 本程序总共编写了大概 700 行代码 由于篇幅所限只能提供本程序的核心部 分 如需具体查看本程序代码请从 VB 源文件中查看 以下是其中利用分段的方法 依次求各段的应力 应变 应变能部分的关键代码 可以借助程序语句后的说明读 懂程序的基本思想 For i 1 To count1 将杆的分段位置输入数组 X i lx i Next i For i count1 1 To count1 count2 将集中力的作用位置输入数组 X i F X i count1 1 Next i For i count1 count2 1 To count1 count2 count3 将分布力上 界输入数组 X i F START i count1 count2 1 Next i For i count1 count2 count3 1 To n 将分布力下界输入数组 X i F END i count1 count2 count3 1 Next i For i 1 To n 记录分段位置信息的数据排序 从小到大排列 For j n To i 1 Step 1 If X j X i Then t X j 材料力学电算大作业说明书 3 6 X j X i X i t End If Next j Next i For i 1 To n 计算分段集中力产生的内力 For j 0 To count2 1 If F X j X i Then Sigma F Sigma F F F j End If Next j For j 0 To count3 1 计算分段总的内力 If F START j X i Then If F END j X i Then Sigma F Sigma F F Q j F END j F START j Else Sigma F Sigma F F Q j X i F START j End If End If Next j For j 0 To count1 1 判断分段的横截面积 If lx j X i Then Sigma A A j End If Next j Sigma L X i X i 1 计算分段长度 C Sigma i Sigma F Sigma A 求分段的应力 C Long i Sigma F Sigma L E Sigma A 求分段应变 C Energy i Sigma F 2 Sigma L 2 E Sigma A 求 分段变形能 Next i 材料力学电算大作业说明书 4 6 Dim m As Double m 1 For i 1 To n lon lon C Long i 累加总的变形 eng eng C Energy i 累加总的变形能 If Abs C Sigma i max Then 判断最大应力 max Abs C Sigma i If C Sigma i 0 Then m 1 End If End If Next i 三 程序界面 图 1 程序主界面 材料力学电算大作业说明书 5 6 图 2 程序运行结果界面 图 2 杆件参数输入 图 3 选择固定端界面 图 4 集中力 分布力加载界面 图 5 关于作者界面 以上图片可以放大观看 材料力学电算大作业说明书 6 6 四 四 测试结果测试结果 以下验证了弹性模量 E 200Gpa 的阶梯杆具有两段不同截面 分别长度为 1m 和 2m 截面为分别为 0 1和 0 2 固定端在右端 在 x 0 5m 处作用一个 F 100N 2 2 集中力 在 1m 到 2m 上作用 q 1N m 的分布力 计算结果如下 经检验测试结果与手动计算吻合地很好 可以认为本程序能解决简单的轴向拉压问 题 五 五 感悟体会感悟体会 通过此次编程使得所学的知识融会贯通 能解决一些实际问题 同时 由于编 程水平有限不免要查阅相关资料 在这个过程中锻炼了自己的自学能力 特别是经 过自己的努力