资源描述：
《基于VB的曲柄滑块机构运动仿真.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、'新建窗体，添加command1,label1,hscroll1,timer1,picture1Constpi=3.DimangleAsIntegerPrivateSubForm_Load()'调整空间尺寸，位置及初始参数Me.ScaleMode=3Me.Caption="曲柄滑块机构的演示"Me.Width=5000Me.Height=3500Picture1.ScaleMode=3Picture1.AutoRedraw=TruePicture1.Move0,0,Me.ScaleWidth,150Comman
2、d1.Caption="开始(&B)"Command1.Move20,160,70,30Label1.Caption="速度："Label1.Move120,170,100,30HScroll1.Min=1HScroll1.Max=20HScroll1.Move160,160,140,30Timer1.Interval=20Timer1.Enabled=FalseEndSubPrivateSubCommand1_Click()Timer1.Enabled=NotTimer1.EnabledIfTimer1.En
3、abledThenCommand1.Caption="暂停(&S)"ElseCommand1.Caption="开始(&B)"EndIfEndSubSubdraw(ByValoxAsInteger,ByValoyAsInteger,ByValoradAsInteger)'ox,oy圆心坐标,orad半径angle=(angle+HScroll1.Value)Mod360xo=ox+orad*Cos(angle*pi/180)'圆周上的铰链点坐标(xo,yo)yo=oy+orad*Sin(angle*pi/180
4、)xs=Sqr((4*orad)^2-10^2)+xo'滑块的左边界x坐标，连杆长度取4*orad,滑块高度取20(像素)Picture1.BackColor=Picture1.BackColorPicture1.DrawStyle=0'实线Picture1.DrawWidth=2'线宽2Picture1.Line(ox+2*orad,oy)-(ox+6*orad,oy)'壁面Picture1.Line(ox,oy)-(xo,yo)'连接圆心与圆周上的铰链点Picture1.Line(xs,oy-10)-(xo
5、,yo),vbBlue'连接滑块与圆周上的铰链点Picture1.FillStyle=1'透明填充Picture1.Circle(ox,oy),orad'画圆Picture1.FillStyle=0'实体填充Picture1.FillColor=vbWhite'圆心Picture1.Circle(ox,oy),5Picture1.FillColor=vbGreen'圆周上的铰链点Picture1.Circle(xo,yo),4Picture1.FillColor=vbRed'滑块Picture1.Line(xs
6、,oy-20)-(xs+30,oy),,BPicture1.DrawStyle=2'虚线Picture1.DrawWidth=1'线宽1Fori=0To9'表示壁面的虚线Picture1.Line(i*4*orad/10+ox+2*orad,oy)-(i*4*orad/10+ox+2*orad+20,oy+20)NextEndSubPrivateSubTimer1_Timer()'画draw60,60,40EndSub
