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

HarbinHarbinHarbin InstituteInstituteInstitute ofofof TechnologyTechnologyTechnology 材料力学上机作业材料力学上机作业材料力学上机作业材料力学上机作业 课程名称 课程名称 材料力学材料力学 设计题目 设计题目 院院 系 系 班班 级 级 分分 析析 者 者 学学 号 号 指导教师 指导教师 哈尔滨工业大学哈尔滨工业大学 20122012 年年 6 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 rs Then t a b r n Text11 Text t If p s rp Then t pi 2 e r 2 n Text11 Text t If p s rs Then t a b r n Text11 Text t If p s rp Then t pi 2 e r 2 n Text11 Text t If p s 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 Private Sub Command1 Click Dim iy iz s u l e tp ts a b p n t As Double Dim i As Double Dim r rp rs As Double Const pi 3 1415 iy Text1 Text iz Text13 Text s Text14 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 If iz rp Then t pi 2 e r 2 n Text11 Text t If p s 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 四 测试结果 例 1 两端固定的矩形截面钢杆 已知钢杆承受轴向压力 P 175KN 杆长 L 2m 高 为 150mm 宽为 100mm E 200Gpa 该型钢 p 200Mpa s 240MPa 校核该杆的稳 定性 1 在截面选择界面点击 矩形 2 输入各项数据 点击 计算 例 2 两端固定的圆形截面杆 已知钢杆承受轴向压力 P 150KN 杆长 L 5m 直径 为 d 160mm E 200Gpa 该型钢 p 200Mpa s 235MPa 校核该杆的稳定性 输入各项数据 结果如图 五 实验总结 这次实验 通过自己编写程序解决材料力学问题 一方面加深我对于材料力学所学 知识的掌握与理解 增强了解决实际问题的能力 一方面也加强了编