材料力学压杆稳定的计算及判定程序.docVIP

Harbin Institute of Technology 材料力学上机作业 课程名称： 材料力学 设计题目： 院 系： 班 级： 分 析 者： 学 号： 指导教师： 哈尔滨工业大学 2012年6月 压杆稳定的计算及判定程序 一、程序简介 本程序设计目的是判断各种不同截面杆（圆形截面、矩形截面、圆环形截面和工字型截面）的压杆稳定性。通过输入不同截面杆的各项参数，计算杆的临界应力，校核杆的稳定性。 二、程序界面 1、选择截面类型界面 2、计算校核界面 三、程序代码 Private Sub Command1_Click() Form1.Hide Form2.Show End Sub Private Sub Command2_Click() Form1.Hide Form3.Show End Sub Private Sub Command3_Click() Form1.Hide Form4.Show End Sub Private Sub Command4_Click() Form1.Hide Form4.Show End Sub Private Sub Command1_Click() Dim d, u, l, e, tp, ts, a, b, p, n, t As Double Dim i, s As Double Dim r, rp, rs As Double Const pi = 3.1415 d = Text1.Text u = Text2.Text l = Text3.Text e = Text4.Text tp = Text5.Text ts = Text6.Text a = Text7.Text b = Text8.Text p = Text9.Text n = Text10.Text i = pi * d ^ 4 / 64 s = pi * d * d / 4 r = 1000 * u * l / Sqr(i / s) rp = pi * Sqr(e / tp) rs = (a - ts) / b If r = rp Then t = pi ^ 2 * e / (r ^ 2 * n) Text11.Text = t If p / s = t Then Text12.Text = 满足稳定条件 Else Text12.Text = 不满足稳定条件 End If ElseIf r = rs Then t = (a - b * r) / n Text11.Text = t If p / s = t Then Text12.Text = 满足稳定条件 Else Text12.Text = 不满足稳定条件 End If Else Text11.Text = Text12.Text = 这是一个强度问题 End If Dim y As Double Picture1.Cls Picture1.ScaleMode = 0 Picture1.Scale (-10, 300)-(200, -10) Picture1.DrawWidth = 1 Picture1.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.01 y = ts Picture1.PSet (x, y), RGB(255, 0, 0) Next x For x = rs To rp Step 0.01 y = a - b * x Picture1.PSet (x, y), RGB(255, 0, 0) Next x For x = rp To 300 Step 0.01 y = pi ^ 2 * e / x ^ 2 Picture1.PSet (x, y), RGB(255, 0, 0) Next x End Sub Dim i, s As Double Dim r, rp, rs As Double Const pi = 3.1415 d1 = Text1.Text d2 = Text13.Text u = Text2.Text l = T