大三机械设计课程设计vbWord文件下载.docx

大三机械设计课程设计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）,"

））