大三機(jī)械設(shè)計(jì)課程設(shè)計(jì)報(bào)告vb-文庫吧資料
2024-08-04 06:50本頁面
【正文】 lF_CD) (dblDE / 1000) * dble_DE * Sin(dblF_DE) (dblDE / 1000) * dblw_DE * dblw_DE * Cos(dblF_DE)dbldf_CD = dblF_CD * 180 / PI = Str(dblF_AB) = Str(dbldf_CD) = Str(dblW_CD) = Str(dblE_CD) = Str(dblS_E) = Str(dblV_E) = Str(dblA_E) (Str(i) amp。 v_E amp。 s_E amp。 e_CD amp。 w_CD amp。 f_CD amp。 專業(yè)資料分享 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 = 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 700Picture1(i).CurrentY = 250Picture1(i).Print f_ABPicture1(i).CurrentX = 120Picture1(i).CurrentY = 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 serifSelect 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 As Double, dblMax_a_E As DoubleDim dblF_CD, dblW_CD, dblE_CD As DoubleDim dblS_E, dblV_E, d
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1