大三机械设计课程设计vbWord文件下载.docx
- 文档编号:19295405
- 上传时间:2023-01-05
- 格式:DOCX
- 页数:8
- 大小:15.20KB
大三机械设计课程设计vbWord文件下载.docx
《大三机械设计课程设计vbWord文件下载.docx》由会员分享,可在线阅读,更多相关《大三机械设计课程设计vbWord文件下载.docx(8页珍藏版)》请在冰豆网上搜索。
Picture1(i).CurrentX=dblWP-700
Picture1(i).CurrentY=250
Picture1(i).Print"
f_AB"
Picture1(i).CurrentX=-120
Picture1(i).CurrentY=-10
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=160
Picture1(i).CurrentY=dblHP/2-60
Ifi<
>
0ThenPicture1(i).FontName="
mssansserif"
SelectCasei
Case0
f_CD"
Case1
w_CD"
Case2
e_CD"
Case3
s_E"
Case4
v_E"
Case5
a_E"
EndSelect
Nexti
DimdblMax_f_CDAsDouble,dblMax_w_CDAsDouble,dblMax_e_CDAsDouble
DimdblMax_s_EAsDouble,dblMax_v_EAsDouble,dblMax_a_EAsDouble
DimdblF_CD,dblW_CD,dblE_CDAsDouble
DimdblS_E,dblV_E,dblA_EAsDouble
DimdblF_AB,dblF_DEAsDouble
DimdblABAsDouble,dblCDAsDouble,dblDEAsDouble,dblACAsDouble,dblHAsDouble,dblSEAsDouble,dbldf_CDAsDouble
DimPIAsDouble
PI=3.1415926
dblAB=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=0To360
dblF_AB=i*PI/180
dblF_CD=Atn((dblAC+dblAB*Sin(dblF_AB))/(dblAB*Cos(dblF_AB)))
IfdblF_CD<
0ThendblF_CD=dblF_CD+PI
dblW_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)
DimdblSxAsDouble,dblSyAsDouble
dblSx=(dblWP-240)/360
dblSy=(dblHP/2-240)/dblMax_f_CD
Picture1(0).PSet(i*dblSx,dblF_CD*dblSy)
dblSy=(dblHP/2-240)/dblMax_w_CD
Picture1
(1).PSet(i*dblSx,dblW_CD*dblSy)
dblSy=(dblHP/2-240)/dblMax_e_CD
Picture1
(2).PSet(i*dblSx,dblE_CD*dblSy*0.25)
dblSy=(dblHP/2-240)/dblMax_s_E
Picture1(3).PSet(i*dblSx,dblS_E*dblSy)
dblSy=(dblHP/2-240)/dblMax_v_E
Picture1(4).PSet(i*dblSx,dblV_E*dblSy)
dblSy=(dblHP/2-240)/dblMax_a_E
Picture1(5).PSet(i*dblSx,dblA_E*dblSy)
EndSub
PrivateSubCommand5_Click()
DimiAsDouble
DimdblABAsDouble,dblCDAsDouble,dblDEAsDouble,dblACAsDouble,dblHAsDouble,dblF_ABAsDouble,dbldf_CDAsDouble
DimdblF_CDAsDouble,dblW_CDAsDouble,dblE_CDAsDouble
DimdblS_EAsDouble,dblV_EAsDouble,dblA_EAsDouble
DimdblS2AsDouble
DimdblF_DEAsDouble,dblw_DEAsDouble,dble_DEAsDouble
List1.Clear
List1.AddItem("
&
Chr(9)&
"
)
………………………………………………………………………………………………………………"
Fori=0To360Step30
dblF_AB=i*PI/180
dblF_CD=Atn((dblAC+dblAB*Sin(dblF_AB))/(dblAB*Cos(dblF_AB)))
IfdblF_CD<
dblW_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)
dbldf_CD=dblF_CD*180/PI
Form1.Text7.Text=Str(dblF_AB)
Form1.Text8.Text=Str(dbldf_CD)
Form1.Text9.Text=Str(dblW_CD)
Form1.Text10.Text=Str(dblE_CD)
Form1.Text11.Text=Str(dblS_E)
Form1.Text12.Text=Str(dblV_E)
Form1.Text13.Text=Str(dblA_E)
List1.AddItem(Str(i)&
Format(Str(dbldf_CD),"
0.00"
)&
Format(Str(dblW_CD),"
Format(Str(dblE_CD),"
Format(Str(dblS_E),"
Format(Str(dblV_E),"
Format(Str(dblA_E),"
))
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 大三 机械设计 课程设计 vb