最新大三機(jī)械設(shè)計(jì)課程設(shè)計(jì)vb(已修改)
2025-07-08 08:05 本頁面
【正文】 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, 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 = dblAB = Val()dblCD = Val()dblDE = Val()dblAC = Val()dblH = Val()dbln1 = Val()For i = 0 To 360 dblF_AB = i * PI / 180
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號-1