材料力學上机作业压杆稳定的计算及判定程序.docxVIP

Harbin Institute of Technology材料力学上机作业 课程名称： 材料力学 设计题目：压杆稳定的计算及判定程序 院 系： 能源科学与工程学院 班 级： 分 析 者： 学 号： 指导教师： 哈尔滨工业大学2012年6月压杆稳定的计算及判定程序一、程序简介本程序设计目的是判断各种不同截面杆（圆形截面、矩形截面、圆环形截面和工字型截面）的压杆稳定性。通过输入不同截面杆的各项参数，计算杆的临界应力，校核杆的稳定性。二、程序界面1、选择截面类型界面2、计算校核界面三、程序代码Private Sub Command1_Click() Form1.HideForm2.ShowEnd SubPrivate Sub Command2_Click()Form1.HideForm3.ShowEnd SubPrivate Sub Command3_Click()Form1.HideForm4.ShowEnd SubPrivate Sub Command4_Click()Form1.HideForm4.ShowEnd SubPrivate 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 To rs Step 0.01y = tsPicture1.PSet (x, y), RGB(255, 0, 0)Next xFor x = rs To rp 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 SubDim i, s As DoubleDim r, rp, rs As DoubleConst pi = 3.1415d1 = Text1.Textd2 = Text13.Textu = Text2.Textl = Text3.Texte = Text4.Texttp = Text5.Textts = Text6.Texta = Text7.Textb = Text8.Textp = Text9.Textn = Text10.Texti = pi * (d1 ^ 4 - d2 ^ 4) / 64s = pi * (d