《大三机械设计课程设计vb.doc》由会员分享，可在线阅读，更多相关《大三机械设计课程设计vb.doc（7页珍藏版）》请在金锄头文库上搜索。
1、Private Sub Command1_Click(Index As Integer)Dim dblWP As Double, dblHP As Double, i As IntegerdblWP = Abs(Picture1(0).ScaleWidth)dblHP = Abs(Picture1(0).ScaleHeight)For i = 0 To 5Picture1(i).ClsPicture1(i).ScaleMode = 1Picture1(i).DrawStyle = 0Picture1(i).DrawWidth = 1.5Picture1(i).Scale (-120, dblH
2、P / 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_ABPicture1(i).CurrentX = -120Picture1(i).CurrentY
3、 = -10Picture1(i).Print 0Picture1(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 - 60If i 0 Then Picture1(i).FontName = ms sans serifS
4、elect Case iCase 0Picture1(i).Print f_CDCase 1Picture1(i).Print w_CDCase 2Picture1(i).Print e_CDCase 3Picture1(i).Print s_ECase 4Picture1(i).Print v_ECase 5Picture1(i).Print a_EEnd SelectNext iDim dblMax_f_CD As Double, dblMax_w_CD As Double, dblMax_e_CD As DoubleDim dblMax_s_E As Double, dblMax_v_E
5、 As Double, dblMax_a_E As DoubleDim dblF_CD, dblW_CD, dblE_CD As DoubleDim dblS_E, dblV_E, dblA_E As DoubleDim dblF_AB, dblF_DE As DoubleDim dblAB As Double, dblCD As Double, dblDE As Double, dblAC As Double, dblH As Double, dblSE As Double, dbldf_CD As DoubleDim PI As DoublePI = 3.1415926dblAB = Va
6、l(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)For i = 0 To 360 dblF_AB = i * PI / 180 dblF_CD = Atn(dblAC + dblAB * Sin(dblF_AB) / (dblAB * Cos(dblF_AB) If dblF_CD dblMax_f_CD Then db
7、lMax_f_CD = Abs(dblF_CD) If Abs(dblW_CD) dblMax_w_CD Then dblMax_w_CD = Abs(dblW_CD) If Abs(dblE_CD) dblMax_f_CD Then dblMax_e_CD = Abs(dblE_CD) If Abs(dblS_E) dblMax_s_E Then dblMax_s_E = Abs(dblS_E) If Abs(dblV_E) dblMax_v_E Then dblMax_v_E = Abs(dblV_E) If Abs(dblA_E) dblMax_a_E Then dblMax_a_E =
8、 Abs(dblA_E)Next iDim dblSx As Double, dblSy As DoubledblSx = (dblWP - 240) / 360For i = 0 To 360 dblF_AB = i * PI / 180 dblF_CD = Atn(dblAC + dblAB * Sin(dblF_AB) / (dblAB * Cos(dblF_AB) If dblF_CD 0 Then dblF_CD = dblF_CD + PI dblW_CD = dblAB * (2 * PI * dbln1 / 60) * Cos(dblF_AB - dblF_CD) / Sqr(
9、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(db
10、lF_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
