资源描述：
《材料力学大作业 梁的剪力图、弯矩图的绘制》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、材料力学上机大作业题目名称：绘制梁的剪力图、弯矩图姓名：王二小完成时间：2011.11.22运行环境：winXP（及以上）题目4绘制梁的剪力图、弯矩图输入1.梁的总长度l2.支撑条件及梁的各区段长度输入（左、右固定端悬臂梁；简支梁；左、右、双外伸梁）3.各载荷大小、作用位置及方向（qi、ai、bi;pj、cj;mk、dk）输出：1.结构构形图（图示）2.剪力、弯矩（图示）3.输出剪力、弯矩的最大值及截面位置软件运行结果：软件运行过程如下所示：软件代码：PrivateSubForm_Click()DimlAsDouble
2、l=Val(Text1.Text)Dimx,y,Hua,fd1(10),fd2(10),fd3(10),pos1(10),pos2(10),pos3(10),pos4(10)AsDoubleDimxiang1(10),xiang2(10),xiang3(10)AsDoubleDimy1(10),y2(10),y3(10),M1(10),M2(10),M3(10)AsDoubleDimi,jAsIntegerFori=1To10fd1(i)=Val(InputBox("请输入集中力的大小：(/kN，推荐值5KN)"))I
3、ffd1(i)=0ThenExitForEndIfpos1(i)=Val(InputBox("请输入集中力的位置：(m)"))xiang1(i)=Val(InputBox("请输入集中力的方向：（向上为-1，向下为1）"))NextiFori=1To10Step1fd2(i)=Val(InputBox("请输入分布力的大小：(kN/m)"))Iffd2(i)=0ThenExitForEndIfpos2(i)=Val(InputBox("请输入分布力的pos2位置1：(m)"))pos3(i)=Val(InputBox(
4、"请输入分布力的pos3位置2：(m)"))xiang2(i)=Val(InputBox("请输入分布力的方向：（向上为-1，向下为1）"))NextiFori=1To10fd3(i)=Val(InputBox("请输入集中力偶的大小：(kN*m)"))Iffd3(i)=0ThenExitForEndIfpos4(i)=Val(InputBox("请输入集中力偶的位置：(m)"))xiang3(i)=Val(InputBox("请输入集中力偶的方向：（顺时针为-1，逆时针为1）"))NextiPicture1.ClsP
5、icture1.Scale(-0.2*l,20)-(1.2*l,-20)Picture1.Line(0,0)-(l,0)Fori=0To10Iffd1(i)<>0Andxiang1(i)>0ThenPicture1.Line(pos1(i),5)-(pos1(i),0)Picture1.Line(pos1(i),0)-(pos1(i)-1,1)Picture1.Line(pos1(i),0)-(pos1(i)+1,1)ElseIffd1(i)<>0Andxiang1(i)<0ThenPicture1.Line(pos1
6、(i),-5)-(pos1(i),0)Picture1.Line(pos1(i),0)-(pos1(i)-1,-1)Picture1.Line(pos1(i),0)-(pos1(i)+1,-1)EndIfNextiFori=0To10Iffd2(i)<>0ThenPicture1.Line(pos2(i),3)-(pos3(i),3)Picture1.Line(pos2(i),3)-(pos2(i),0)Picture1.Line(pos2(i),0)-(pos2(i)-0.5,1)Picture1.Line(pos2
7、(i),0)-(pos2(i)+0.5,1)Picture1.Line(pos3(i),3)-(pos3(i),0)Picture1.Line(pos3(i),0)-(pos3(i)-0.5,1)Picture1.Line(pos3(i),0)-(pos3(i)+0.5,1)Forx=pos2(i)+0.8Topos3(i)Step0.8Picture1.Line(x,3)-(x,0)Picture1.Line(x,0)-(x-0.5,1)Picture1.Line(x,0)-(x+0.5,1)NextxEndIfNe
8、xtiFori=0To10Iffd3(i)<>0Andxiang3(i)>0ThenPicture1.Line(pos4(i),3)-(pos4(i),-3)Picture1.Line(pos4(i),3)-(pos4(i)-1,3)Picture1.Line(pos4(i),-3)-(pos4(i)+1,-3)ElseIffd3
