大三机械设计课程设计vbVIP免费

PrivateSubCommand1_Click(IndexAsInteger)DimdblWPAsDouble,dblHPAsDouble,iAsIntegerdblWP=Abs(Picture1(0).ScaleWidth)dblHP=Abs(Picture1(0).ScaleHeight)Fori=0To5Picture1(i).ClsPicture1(i).ScaleMode=1Picture1(i).DrawStyle=0Picture1(i).DrawWidth=1.5Picture1(i).Scale(-120,dblHP/2)-(dblWP-120,-dblHP/2)Picture1(i).Line(0,0)-(dblWP-160,0)Picture1(i).Line(dblWP-160,0)-Step(-120,120)Picture1(i).Line(dblWP-160,0)-Step(-120,-120)Picture1(i).CurrentX=dblWP-700Picture1(i).CurrentY=250Picture1(i).Print"f_AB"Picture1(i).CurrentX=-120Picture1(i).CurrentY=-10Picture1(i).Print"0"Picture1(i).Line(0,dblHP/2-60)-(0,-(dblHP/2-60))Picture1(i).Line(0,dblHP/2-60)-Step(-120,-120)Picture1(i).Line(0,dblHP/2-60)-Step(120,-120)Picture1(i).CurrentX=160Picture1(i).CurrentY=dblHP/2-60Ifi<>0ThenPicture1(i).FontName="mssansserif"SelectCaseiCase0Picture1(i).Print"f_CD"Case1Picture1(i).Print"w_CD"Case2Picture1(i).Print"e_CD"Case3Picture1(i).Print"s_E"Case4Picture1(i).Print"v_E"Case5Picture1(i).Print"a_E"EndSelectNextiDimdblMax_f_CDAsDouble,dblMax_w_CDAsDouble,dblMax_e_CDAsDoubleDimdblMax_s_EAsDouble,dblMax_v_EAsDouble,dblMax_a_EAsDoubleDimdblF_CD,dblW_CD,dblE_CDAsDoubleDimdblS_E,dblV_E,dblA_EAsDoubleDimdblF_AB,dblF_DEAsDoubleDimdblABAsDouble,dblCDAsDouble,dblDEAsDouble,dblACAsDouble,dblHAsDouble,dblSEAsDouble,dbldf_CDAsDoubleDimPIAsDoublePI=3.1415926dblAB=Val(Form1.Text1.Text)dblCD=Val(Form1.Text2.Text)dblDE=Val(Form1.Text3.Text)dblAC=Val(Form1.Text4.Text)dblH=Val(Form1.Text5.Text)dbln1=Val(Form1.Text6.Text)Fori=0To360dblF_AB=i*PI/180dblF_CD=Atn((dblAC+dblAB*Sin(dblF_AB))/(dblAB*Cos(dblF_AB)))IfdblF_CD<0ThendblF_CD=dblF_CD+PIdblW_CD=dblAB*(2*PI*dbln1/60)*Cos(dblF_AB-dblF_CD)/Sqr(Abs(dblAB*dblAB+dblAC*dblAC+2*dblAC*dblAB*Sin(dblF_AB)))dblE_CD=(-dblAB*(2*PI*dbln1/60)*(2*PI*dbln1/60)*Sin(dblF_AB-dblF_CD)+2*dblAB*(2*PI*dbln1/60)*Sin(dblF_AB-dblF_CD)*dblW_CD)/Sqr(Abs(dblAB*dblAB+dblAC*dblAC+2*dblAC*dblAB*Sin(dblF_AB)))dblF_DE=Atn(((dblH-dblCD*Sin(dblF_CD))/dblDE)/Sqr(Abs(1-(dblH-dblCD*Sin(dblF_CD))*(dblH-dblCD*Sin(dblF_CD))/(dblDE*dblDE))))dblw_DE=(-(dblCD*dblW_CD*Cos(dblF_CD))/(dblDE*Cos(dblF_DE)))dble_DE=((dblDE*dblw_DE*dblw_DE*Sin(dblF_DE))+dblCD*dblW_CD*dblW_CD*Sin(dblF_CD)-dblCD*dblE_CD*Cos(dblF_CD))/(dblDE*Cos(dblF_DE))dblS2=Sqr(dblAB*dblAB+dblAC*dblAC+2*dblAC*dblAB*Sin(dblF_AB))dblS_E=dblCD*Cos(dblF_CD)+dblDE*Cos(dblF_DE)dblV_E=(-dblCD/1000)*dblW_CD*Sin(dblF_CD)-(dblDE/1000)*(-(dblCD/1000)*dblW_CD*Cos(dblF_CD)/((dblDE/1000)*Cos(dblF_DE)))*(((dblH/1000)-(dblCD/1000)*Sin(dblF_CD))/(dblDE/1000))dblA_E=(-dblCD/1000)*dblE_CD*Sin(dblF_CD)-(dblCD/1000)*dblW_CD*dblW_CD*Cos(dblF_CD)-(dblDE/1000)*dble_DE*Sin(dblF_DE)-(dblDE/1000)*dblw_DE*dblw_DE*Cos(dblF_DE)IfAbs(dblF_CD)>dblMax_f_CDThendblMax_f_CD=Abs(dblF_CD)IfAbs(dblW_CD)>dblMax_w_CDThendblMax_w_CD=Abs(dblW_CD)IfAbs(dblE_CD)>dblMax_f_CDThendblMax_e_CD=Abs(dblE_CD)IfAbs(dblS_E)>dblMax_s_EThendblMax_s_E=Abs(dblS_E)IfAbs(dblV_E)>dblMax_v_EThendblMax_v_E=Abs(dblV_E)IfAbs(dblA_E)>dblMax_a_EThendblMax_a_E=Abs(dblA_E)NextiDimdblSxAsDouble,dblSyAsDoubledblSx=(dblWP-240)/360Fori=0To360dblF_AB=i*PI/180dblF_CD=Atn((dblAC+dblAB*Sin(dblF_AB))/(dblAB*Cos(dblF_AB)))IfdblF_CD<0ThendblF_CD=dblF_CD+PIdblW_CD=dblAB*(2*PI*dbln1/60)*Cos(dblF_AB-dblF_CD)/Sqr(Abs(dblAB*dblAB+dblAC*dblAC+2*dblAC*dblAB*Sin(dblF_AB)))dblE_CD=(-dblAB*(2*PI*dbln1/60)*(2*PI*dbln1/60)*Sin(dblF_AB-dblF_CD)+2*db...