大三机械设计方案课程设计方案vb.docVIP

Private Sub Command1_Click(Index As Integer) Dim dblWP As Double, dblHP As Double, i As Integer dblWP = Abs(Picture1(0).ScaleWidth) dblHP = Abs(Picture1(0).ScaleHeight) For i = 0 To 5 Picture1(i).Cls Picture1(i).ScaleMode = 1 Picture1(i).DrawStyle = 0 Picture1(i).DrawWidth = 1.5 Picture1(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 - 700 Picture1(i).CurrentY = 250 Picture1(i).Print f_AB Picture1(i).CurrentX = -120 Picture1(i).CurrentY = -10 Picture1(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 = 160 Picture1(i).CurrentY = dblHP / 2 - 60 If i 0 Then Picture1(i).FontName = ms sans serif Select Case i Case 0 Picture1(i).Print f_CD Case 1 Picture1(i).Print w_CD Case 2 Picture1(i).Print e_CD Case 3 Picture1(i).Print s_E Case 4 Picture1(i).Print v_E Case 5 Picture1(i).Print a_E End Select Next i Dim dblMax_f_CD As Double, dblMax_w_CD As Double, dblMax_e_CD As Double Dim dblMax_s_E As Double, dblMax_v_E As Double, dblMax_a_E As Double Dim dblF_CD, dblW_CD, dblE_CD As Double Dim dblS_E, dblV_E, dblA_E As Double Dim dblF_AB, dblF_DE As Double Dim dblAB As Double, dblCD As Double, dblDE As Double, dblAC As Double, dblH As Double, dblSE As Double, dbldf_CD As Double Dim PI As Double 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) 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 0 Then dblF_CD = dblF_CD + PI dblW_CD = dblAB * (2 * PI * dbln1 / 60) * Cos(dblF_AB - dblF_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC +