資源描述：
《哈爾濱工業(yè)大學(xué)材料力學(xué)》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在應(yīng)用文檔-天天文庫。
1、為了適應(yīng)公司新戰(zhàn)略的發(fā)展，保障停車場安保新項(xiàng)目的正常、順利開展，特制定安保從業(yè)人員的業(yè)務(wù)技能及個(gè)人素質(zhì)的培訓(xùn)計(jì)劃哈爾濱工業(yè)大學(xué)材料力學(xué) 材料力學(xué)上機(jī)作業(yè) 題目名稱：繪制梁的剪力圖、彎矩圖 運(yùn)行環(huán)境：winXP 一、題目4 繪制梁的剪力圖、彎矩圖 輸入 1.梁的總長度l 2.支撐條件及梁的各區(qū)段長度輸入 3.各載荷大小、作用位置及方向輸出： 1.結(jié)構(gòu)構(gòu)形圖 2.剪力、彎矩 3.輸出剪力、彎矩的最大值及截面位置 二、軟件運(yùn)行結(jié)果： 軟件運(yùn)行過程如下所示： 三、軟件代碼： PrivateSubForm_Click(
2、) DimlAsDouble l=Val()目的-通過該培訓(xùn)員工可對(duì)保安行業(yè)有初步了解，并感受到安保行業(yè)的發(fā)展的巨大潛力，可提升其的專業(yè)水平，并確保其在這個(gè)行業(yè)的安全感。為了適應(yīng)公司新戰(zhàn)略的發(fā)展，保障停車場安保新項(xiàng)目的正常、順利開展，特制定安保從業(yè)人員的業(yè)務(wù)技能及個(gè)人素質(zhì)的培訓(xùn)計(jì)劃 Dimx,y,Hua,fd1(10),fd2(10),fd3(10),pos1(10),pos2(10),pos3(10),pos4(10)AsDouble Dimxiang1(10),xiang2(10),xiang3(10)AsDouble Dim
3、y1(10),y2(10),y3(10),M1(10),M2(10),M3(10)AsDouble Dimi,jAsInteger Fori=1To10 fd1(i)=Val(InputBox("請輸入集中力的大小：(/kN，推薦值5KN)")) Iffd1(i)=0Then ExitForEndIfpos1(i)=Val(InputBox("請輸入集中力的位置：(m)"))xiang1(i)=Val(InputBox("請輸入集中力的方向："))NextiFori=1To10Step1fd2(i)=Val(InputBox("請
4、輸入分布力的大?。?kN/m)"))Iffd2(i)=0ThenExitForEndIfpos2(i)=Val(InputBox("請輸入分布力的pos2位置1：(m)"))pos3(i)=Val(InputBox("請輸入分布力的pos3位置2：(m)"))xiang2(i)=Val(InputBox("請輸入分布力的方向："))Nexti Fori=1To10 fd3(i)=Val(InputBox("請輸入集中力偶的大小：(kN*m)"))目的-通過該培訓(xùn)員工可對(duì)保安行業(yè)有初步了解，并感受到安保行業(yè)的發(fā)展的巨大潛力，可提升其的專業(yè)
5、水平，并確保其在這個(gè)行業(yè)的安全感。為了適應(yīng)公司新戰(zhàn)略的發(fā)展，保障停車場安保新項(xiàng)目的正常、順利開展，特制定安保從業(yè)人員的業(yè)務(wù)技能及個(gè)人素質(zhì)的培訓(xùn)計(jì)劃 Iffd3(i)=0Then ExitFor EndIf pos4(i)=Val(InputBox("請輸入集中力偶的位置：(m)")) xiang3(i)=Val(InputBox("請輸入集中力偶的方向：")) Nexti (-*l,20)-(*l,-20)(0,0)-(l,0) Fori=0To10 Iffd1(i)0Andxiang1(i)>0Then(pos1(i),
6、5)-(pos1(i),0)(pos1(i),0)-(pos1(i)-1,1)(pos1(i),0)-(pos1(i)+1,1)ElseIffd1(i)0Andxiang1(i)0Then (pos2(i),3)-(pos3(i),3)(pos2(i),3)-(pos2(i),0) (pos2(i),0)-(pos2(i)-,1)(pos2(i),0)-(pos2(i)+,1)(pos3(i),3)-(pos3(i),0)目的-通過該培訓(xùn)員工可對(duì)保安行業(yè)有初步了解，并感受到安保行業(yè)的發(fā)展的巨大潛力，可提升其的專業(yè)水平，并確保其在這個(gè)行業(yè)
7、的安全感。為了適應(yīng)公司新戰(zhàn)略的發(fā)展，保障停車場安保新項(xiàng)目的正常、順利開展，特制定安保從業(yè)人員的業(yè)務(wù)技能及個(gè)人素質(zhì)的培訓(xùn)計(jì)劃 (pos3(i),0)-(pos3(i)-,1)(pos3(i),0)-(pos3(i)+,1)Forx=pos2(i)+Topos3(i)Step(x,3)-(x,0)(x,0)-(x-,1)(x,0)-(x+,1)NextxEndIfNextiFori=0To10Iffd3(i)0Andxiang3(i)>0Then(pos4(i),3)-(pos4(i),-3)(pos4(i),3)-(pos4(i)-1,3)
8、(pos4(i),-3)-(pos4(i)+1,-3)ElseIffd3(i)0Andxiang3(i)1="簡支梁"(0,-3)-(0,0)(l,-3)-(l,0)Forx=T
