哈工大材料力学上机大作业(压杆稳定)

1、.材料力学上机大作业压杆稳定分析作者班号： 1008102 作者学号：作者姓名: 指导教师: 完成时间：1、 题目:压杆稳定分析输入:1.截面参数输入圆截面d圆环截面D，d矩形截面h，b工字型截面对形心轴的惯性矩Iy、Iz及截面面积A2.相当长度系数、长度l3.材料参数：E、,p、s;线性经验公式系数a、b4.工作压力P及稳定安全系数nw输出：1. 绘制临界应力总图（图示）2. 临界压力Pcr或临界应力cr3. 稳定安全校核结果2、程序及截图*;Private Sub Command1_Click()Form1.HideForm2.ShowEnd SubPrivate Sub Command2

2、_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 = Text

3、2.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 = rs Thent = (a

4、 - b * r) / nText11.Text = tIf p / s = rp Thent = pi 2 * e / (r 2 * n)Text11.Text = tIf p / s = rs Thent = (a - b * r) / nText11.Text = tIf p / s = rp Thent = pi 2 * e / (r 2 * n)Text11.Text = tIf p / s = rs Thent = (a - b * r) / nText11.Text = tIf p / s = t ThenText12.Text = 满足稳定条件ElseText12.Text =

5、 不满足稳定条件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.PSe

6、t (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 SubPrivate Sub Command1_Click()Dim iy, iz, s, u, l, e, tp, ts, a, b, p, n, t As DoubleDim i As Dou

7、bleDim r, rp, rs As DoubleConst pi = 3.1415iy = Text1.Textiz = Text13.Texts = Text14.Textu = Text2.Textl = Text3.Texte = Text4.Texttp = Text5.Textts = Text6.Texta = Text7.Textb = Text8.Textp = Text9.Textn = Text10.TextIf iz = rp Thent = pi 2 * e / (r 2 * n)Text11.Text = tIf p / s = rs Thent = (a - b

8、 * 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.L

9、ine (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 Sub如下图：Dim y As Doub

10、lePicture1.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 xPrivate Sub Form_Load()Me.Pict