大三機(jī)械設(shè)計(jì)課程設(shè)計(jì)vb.

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_AB"Picture1(i).CurrentX = -120Picture1

3、(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 - 60If i <> 0 Then Pict

4、ure1(i).FontName = "ms sans serif"Select Case iCase 0Picture1(i).Print "f_CD"Case 1Picture1(i).Print "w_CD"Case 2Picture1(i).Print "e_CD"Case 3Picture1(i).Print "s_E"Case 4Picture1(i).Print "v_E"Case 5Picture1(i).Print "a_E"End Se

5、lectNext iDim 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 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 A

6、s Double, dblAC As Double, dblH As Double, dblSE As Double, dbldf_CD As DoubleDim PI As DoublePI = 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)For i = 0 To 360dbl

7、F_AB = i * PI / 180dblF_CD = Atn(dblAC + dblAB * Sin(dblF_AB) / (dblAB * Cos(dblF_AB)If dblF_CD < 0 Then dblF_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 * d

8、bln1 / 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) * (d

9、blH - 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 * db

10、lAC + 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

11、_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)If Abs(dblF_CD) > dblMax_f_CD Then dblMax_f_CD = Abs(dblF_CD)If Abs(dblW_CD) > dblMax_w_CD Then dblMax_

12、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 = Abs(dblA_E)Next iDim dblSx As Double, dblSy As D

13、oubledblSx = (dblWP - 240) / 360For i = 0 To 360dblF_AB = i * PI / 180dblF_CD = Atn(dblAC + dblAB * Sin(dblF_AB) / (dblAB * Cos(dblF_AB)If dblF_CD < 0 Then dblF_CD = dblF_CD + PIdblW_CD = dblAB * (2 * PI * dbln1 / 60) * Cos(dblF_AB - dblF_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC *

14、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) /

15、dblDE) / Sqr(Abs(1 Sin(dblF_CD) * (dblH - dblCD * Sin(dblF_CD) / (dblDE * dblDE)- (dblH - dblCD *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

16、 * 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)

17、 - (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)dblSy = (dblHP / 2 - 240) / dblMax_f_CDPicture1(0).PSet

18、(i * dblSx, dblF_CD * dblSy)dblSy = (dblHP / 2 - 240) / dblMax_w_CDPicture1(1).PSet (i * dblSx, dblW_CD * dblSy)dblSy = (dblHP / 2 - 240) / dblMax_e_CDPicture1(2).PSet (i * dblSx, dblE_CD * dblSy * 0.25)dblSy = (dblHP / 2 - 240) / dblMax_s_EPicture1(3).PSet (i * dblSx, dblS_E * dblSy)dblSy = (dblHP

19、/ 2 - 240) / dblMax_v_EPicture1(4).PSet (i * dblSx, dblV_E * dblSy)dblSy = (dblHP / 2 - 240) / dblMax_a_EPicture1(5).PSet (i * dblSx, dblA_E * dblSy)Next iEnd SubPrivate Sub Command5_Click()Dim i As DoubleDim dblAB As Double, dblCD As Double, dblDE As Double, dblAC As Double, dblH As Double,dblF_AB

20、As Double, dbldf_CD As DoubleDim dblF_CD As Double, dblW_CD As Double, dblE_CDDim dblS_EAs Double, dblV_EAs Double, dblA_EAs DoubleAs DoubleDim dblS2 As DoubleDim dblF_DE As Double, dblw_DE As Double, dble_DE As DoubleDim PI As DoublePI = 3.1415926dblAB = Val(Form1.Text1.Text)dblCD = Val(Form1.Text2

21、.Text)dblDE = Val(Form1.Text3.Text)dblAC = Val(Form1.Text4.Text)dblH = Val(Form1.Text5.Text)dbln1 = Val(Form1.Text6.Text)List1.ClearList1.AddItem ("f_AB" & Chr(9) & "f_CD" & Chr(9) & "w_CD" & Chr(9) & "e_CD" & Chr(9)& "s_E&

22、quot; & Chr(9) & "v_E" & Chr(9) & "a_E")List1.AddItem("")For i = 0 To 360 Step 30dblF_AB = i * PI / 180dblF_CD = Atn(dblAC + dblAB * Sin(dblF_AB) / (dblAB * Cos(dblF_AB)If dblF_CD < 0 Then dblF_CD = dblF_CD + PIdblW_CD = dblAB * (2 * PI * dbln1 / 60)

23、* 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

24、 + 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) + db

25、lCD * 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 /