材力上机压杆稳定性及截面几何性质的计算(VB)教程解析.docx

Harbin Institute of Technology材料力学上机作业 课程名称： 材料力学 设计题目：压杆稳定性分析及截面几何性质的计算 院 系： 机电工程学院 班 级： 学 号：设 计 者： 指导教师： 张桂莲 哈尔滨工业大学2014年6月1.题目:压杆稳定分析输入:1.截面参数输入圆截面—d圆环截面—D，d矩形截面—h，b工字型截面—对形心轴的惯性矩Iy、Iz及截面面积A2.相当长度系数、长度l3.材料参数：E、,σp、σs;线性经验公式系数a、b4.工作压力P及稳定安全系数nw输出：绘制临界应力总图（图示）临界压力Pcr或临界应力σcr稳定安全校核结果在此基础上，加了一个截面图形几何性质的计算功能，要求输入截面的几何尺寸，即可输出其面积、形心、惯性矩等几何性质2.程序及截图:Form1Private Sub Command1_Click()Form1.HideForm2.ShowEnd SubPrivate Sub Command2_Click()Form1.HideForm7.ShowEnd SubPrivate Sub Command3_Click()EndEnd SubForm2Private Sub Command1_Click()Form2.HideForm3.ShowEnd SubPrivate Sub Command2_Click()Form2.HideForm4.ShowEnd SubPrivate Sub Command3_Click()Form2.HideForm5.ShowEnd SubPrivate Sub Command4_Click()Form2.HideForm6.ShowEnd SubForm3(圆形截面压杆稳定性判断)Private Sub Command1_Click()Dim d, u, l, e, tp, ts, a, b, p, n, t As DoubleDim i, s As DoubleDim r, rp, rs As DoubleConst PI = 3.1415d = Text1.Textu = Text2.Textl = Text3.Texte = Text4.Texttp = Text5.Textts = Text6.Texta = Text7.Textb = Text8.Textp = Text9.Textn = Text10.Texti = PI * d ^ 4 / 64s = PI * d * d / 4r = 1000 * u * l / Sqr(i / s)rp = PI * Sqr(e / tp)rs = (a - ts) / bIf r = rp Thent = PI ^ 2 * e / (r ^ 2 * n)Text11.Text = tIf p / s = t ThenText12.Text = 满足稳定条件ElseText12.Text = 不满足稳定条件End IfElseIf r = rs Thent = (a - b * r) / nText11.Text = tIf p / s = t ThenText12.Text = 满足稳定条件ElseText12.Text = 不满足稳定条件End IfElseText11.Text = Text12.Text = 这是一个强度问题End IfDim Y As DoublePicture1.ClsPicture1.ScaleMode = 0Picture1.Scale (-10, 300)-(200, -10)Picture1.DrawWidth = 1Picture1.Line (0, 0)-(200, 0), RGB(0, 0, 255)Picture1.Line (0, 0)-(0, 300), RGB(0, 0, 255)For X = 0 Tors Step 0.01Y = tsPicture1.PSet (X, Y), RGB(255, 0, 0)Next XFor X = rsTorp Step 0.01Y = a - b * XPicture1.PSet (X, Y), RGB(255, 0, 0)Next XFor X = rp To 300 Step 0.01Y = PI ^ 2 * e / X ^ 2Picture1.PSet (X, Y), RGB(255, 0, 0)Next XEnd SubPri