1、哈工大材料力學(xué)上機(jī)實(shí)驗(yàn)梁的力學(xué)分析 Harbin Institute of Technology 材料力學(xué)電算大作業(yè) 題目名稱：梁的力學(xué)分析 作者班級(jí)：1402401 作者學(xué)號(hào)： 作者姓名： 指導(dǎo)教師： 完成時(shí)間： 目 錄 一組合截面幾何性質(zhì)計(jì)算 . 1 1 理論 . 1 2 程序（） . 2 二應(yīng)力狀態(tài)分析 . 8 1 理論 . 8 2 程序（） . 9 三繪制梁的剪力、彎矩圖 . 19 1理論 . 19 2 程序（） . 20 四啟動(dòng)窗體 . 29 五算例 . 31 1組合截面幾何性質(zhì)計(jì)算 . 31 2 應(yīng)力狀態(tài)分析 . 32 3 繪制梁的剪力、彎矩圖 . 34 一組合截面幾何性質(zhì)計(jì)算 1

2、 理論 （一）計(jì)算質(zhì)心 若截面為矩形，則 若截面為圓形，則 若截面為環(huán)形，則 （二）計(jì)算主慣性矩 若截面為矩形，則 若截面為圓形，則 ? ?AydA?AdA? ?AzdA? ?A dA? ?b?2? ? ? h?2? ? d 2 ? D2 Iy?A z2dA?I2 ? z?AydA? ? I?bh3?yC 12?Ib3? zC ? h?12?I?d4? yC?IzC? 64? 1 若截面為環(huán)形，則 IyC?IzC?(D4?d4)? 64? ? 2 程序（） PublicClassGeometric Private intShape AsInteger = -1 '定義儲(chǔ)存值的參

3、數(shù) '定義繪圖類 Dim graph AsGraphics Dim penCoordinate AsNewPen(Color.Black, 3) Dim penInertia AsNewPen(Color.Blue, 2) Dim penNet AsNewPen(Color.Gray) Dim figureColor AsBrush EndSub If intShape = 0 Then'選擇圓 lblOne.Text = "D:" lblTwo.Text = "" txtOne.Enabled = True txtOne

4、.Text = "" txtTwo.Enabled = False txtTwo.Text = "" lblI.Text = "X軸主慣性矩："& vbNewLine & vbNewLine &"Y軸主慣性矩：" ElseIf intShape = 1 Then'選擇圓環(huán) lblOne.Text = "D:" lblTwo.Text = "d:" txtOne.Enabled = True txtOne.Text

5、 = "" 2 txtTwo.Enabled = True txtTwo.Text = "" lblI.Text = "X軸主慣性矩："& vbNewLine & vbNewLine &"Y軸主慣性矩：" Else'選擇矩形 lblOne.Text = "h:" lblTwo.Text = "b:" txtOne.Enabled = True txtOne.Text = "" txtTwo.Enabled = True txtTwo.Text = "" lblI.Text = "X軸主慣性矩："& vbNewLine & vbNewLine &"Y軸主慣性矩：" End