材力大作业轴向拉压计算.docVIP

材料力学电算大作业说明书 PAGE6 / NUMPAGES6 Harbin Institute of Technology 材料力学电算大作业 说明书 课程名称：材料力学电算大作业 设计题目：轴向拉压计算 院 系： 班 级： 作 者： 学 号 指导教师： 制作时间： 哈尔滨工业大学 程序介绍 本程序使用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) 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) And lx(j + 1) = X(i) Then Sigma_A = A(j) End If Next j Sigma_L = X(i) - X(i - 1) 计算分段长度