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

1、Picture1（i）.CurrentX = dblWP - 700Picture1（i）.CurrentY = 250Picture1（i）.Print f_ABPicture1（i）.CurrentX = -120Picture1（i）.CurrentY = -100Picture1（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）P

2、icture1（i）.CurrentX = 160Picture1（i）.CurrentY = dblHP / 2 - 60If i 0 Then Picture1（i）.FontName = ms sans serifSelect Case iCase 0f_CDCase 1w_CDCase 2e_CDCase 3s_ECase 4v_ECase 5a_EEnd SelectNext iDim dblMax_f_CD As Double, dblMax_w_CD As Double, dblMax_e_CD As DoubleDim dblMax_s_E As Double, dblMax_

3、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 As Double, dblAC As Double, dblH As Double, dblSE As Double, dbldf_CD As DoubleDim PI As DoublePI = 3.1415926dblAB =

4、 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 dblMax_f_CD Then

5、 dblMax_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_

6、E = Abs（dblA_E）Dim dblSx As Double, dblSy As DoubledblSx = （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（

7、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）End S

8、ubPrivate Sub Command5_Click（）Dim i As DoubleDim dblAB As Double, dblCD As Double, dblDE As Double, dblAC As Double, dblH As Double, dblF_AB As Double, dbldf_CD As DoubleDim dblF_CD As Double, dblW_CD As Double, dblE_CD As DoubleDim dblS_E As Double, dblV_E As Double, dblA_E As DoubleDim dblS2 As Do

9、ubleDim dblF_DE As Double, dblw_DE As Double, dble_DE As DoubleList1.ClearList1.AddItem （ & Chr（9） & ）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 dblW_CD = dblAB * （2 * PI * dbln1 / 60） * Cos（dblF_AB - dblF_CD） / Sqr（Abs（

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

11、）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

12、_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）

13、/ （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

14、= dblF_CD * 180 / PIForm1.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）, ）