汽車主減速器參數(shù)優(yōu)化軟件設(shè)計(jì)
汽車主減速器參數(shù)優(yōu)化軟件設(shè)計(jì),汽車,減速器,參數(shù),優(yōu)化,軟件設(shè)計(jì)
Form1
Private Sub Form_Click()
Form1.Hide
Form2.Show
End Sub
Private Sub Label3_Click()
End Sub
Form2
Private Sub Form_Load()
Text1.Text = ""
Text1.MaxLength = 6
Text1.PasswordChar = "*"
End Sub
Private Sub Image1_Click()
End Sub
Private Sub Label2_Click()
Dim i As Integer
If Text1.Text <> "090316" Then
i = MsgBox("密碼錯誤", 5 + vbExclamation, "警告")
If i <> 4 Then
End
Else
Text1.Text = ""
Text1.SetFocus
End If
Else
Form2.Hide
Form3.Show
End If
End Sub
Private Sub Text1_LostFocus()
If Not IsNumeric(Text1.Text) Then
MsgBox "密碼必須為數(shù)字", , "警告"
Text1.Text = ""
Text1.SetFocus
End If
End Sub
Form3
Private Sub Label1_Click(Index As Integer)
Form3.Hide
Form4.Show
End Sub
Private Sub OLE1_Updated(Index As Integer, Code As Integer)
End Sub
Private Sub 幫助_Click()
MsgBox "無法顯示幫助目錄，該工程沒有相關(guān)聯(lián)的幫助。", vbInformation, Me.Caption
End Sub
Private Sub 保存_Click()
MsgBox "添加 'menuSave_Click' 代碼。"
End Sub
Private Sub 關(guān)閉_Click()
End Sub
Private Sub 退出_Click()
End
End Sub
Private Sub 新建_Click()
Form3.Hide
Form4.Show
End Sub
Private Sub 主減速比_Click()
Form3.Hide
Form4.Show
End Sub
Form4
Private Sub Image1_Click()
End Sub
Private Sub Label2_Click()
Form4.Hide
Form5.Show
End Sub
Private Sub Label3_Click()
Form4.Hide
Form3.Show
End Sub
Form5
Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
Form5.Hide
Form7.Show
End Sub
Private Sub Label3_Click()
Form5.Hide
Form23.Show
End Sub
Private Sub Label4_Click()
Form5.Hide
Form4.Show
End Sub
Private Sub Label5_Click()
Form5.Hide
Form3.Show
End Sub
Form6
a4 = Form21.Text1.Text
a5 = Form18.Text2.Text
a6 = Form20.Text8.Text
a7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2)
If a7 < 700 Then
Print a7; "< 700"
Print "符合要求"
Else
Print a7; "> 700"
Print "不符合要求"
End If
End If
End Sub
Private Sub Form_Load()
Dim a1!, a2!, a3!, a4!, a5!, a6!, a7!
If Form10.Text4.Text > Form10.Text10.Text Then
a1 = Form11.Text9.Text
a2 = Form17.Text3.Text
a3 = (a2 / 25.4) ^ 0.25
a4 = Form21.Text1.Text
a5 = Form18.Text2.Text
a6 = Form20.Text8.Text
a7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2)
If a7 < 700 Then
Print a7; "< 700"
Print "符合要求"
Else
Print a7; "> 700"
Print "不符合要求"
End If
Else
a1 = Form11.Text10.Text
a2 = Form17.Text3.Text
a3 = (a2 / 25.4) ^ 0.25
a4 = Form21.Text1.Text
a5 = Form18.Text2.Text
a6 = Form20.Text8.Text
a7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2)
If a7 < 700 Then
Print a7; "< 700"
Print "符合要求"
Else
Print a7; "> 700"
Print "不符合要求"
End If
End If
End Sub
Private Sub Image1_Click()
End Sub
Form7
Private Sub Form_Load()
End Sub
Private Sub Label1_Click()
Form7.Hide
Form8.Show
End Sub
Private Sub Label2_Click()
Form7.Hide
Form9.Show
End Sub
Private Sub Label3_Click()
Form7.Hide
Form10.Show
End Sub
Private Sub Label4_Click()
Form7.Hide
Form12.Show
End Sub
Private Sub Label5_Click()
Form7.Hide
Form21.Show
End Sub
Private Sub Label7_Click()
Form7.Hide
Form22.Show
End Sub
Private Sub Label8_Click()
Form7.Hide
Form3.Show
End Sub
Private Sub Label9_Click()
Form7.Hide
Form23.Show
End Sub
Private Sub 幫助_Click()
MsgBox "無法顯示幫助目錄，該工程沒有相關(guān)聯(lián)的幫助。", vbInformation, Me.Caption
End Sub
Private Sub 齒輪材料_Click()
Form7.Hide
Form22.Show
End Sub
Form8
Private Sub Form_Load()
Picture = LoadPicture("")
End Sub
Private Sub Label5_Click()
End Sub
Private Sub Label8_Click()
Form8.Hide
Form7.Show
End Sub
Form9
Private Sub Form_Load()
Picture = LoadPicture("")
End Sub
Private Sub Label9_Click()
Form9.Hide
Form7.Show
End Sub
Form10
Private Sub Command1_Click()
a1 = Text1.Text
a2 = Text2.Text
a3 = Text3.Text
a4 = 0.9 * a1 * a2 / a3
Text4.Text = a4
End Sub
Private Sub Command2_Click()
a5 = Text5.Text
a6 = Text6.Text
a7 = Text7.Text
a8 = Text8.Text
a9 = Text9.Text
a10 = a5 * a6 * a7 / a8 / a9
Text10.Text = a10
End Sub
Private Sub Command3_Click()
Form10.Hide
Form11.Show
End Sub
Private Sub Command4_Click()
Form10.Hide
Form7.Show
End Sub
Private Sub Form_Load()
Dim a1!, a2!, a3!, a4!, a5!, a6!, a7!, a8!, a9!, a10!
End Sub
Private Sub Image1_Click()
Picture = LoadPicture("")
End Sub
Form11
Private Sub Command1_Click()
b1 = Text1.Text
b2 = Text2.Text
b3 = Text3.Text
b4 = Text4.Text
b5 = Text5.Text
i1 = b3 * b4 * b5
b6 = b1 * b2 / i1
Text6.Text = b6
End Sub
Private Sub Command2_Click()
b6 = Text6.Text
b7 = Text7.Text
b8 = Text8.Text
i2 = Form10.Text4.Text
i3 = Form10.Text10.Text
i4 = b7 * b8
b9 = i2 / i4
Text9.Text = b9
b10 = i3 / i4
Text10.Text = b10
b11 = b6 / i4
Text11.Text = b11
End Sub
Private Sub Form_Load()
Dim b1!, b2!, b3!, b4!, b5!, b6!, b7!, b8!, b9!, b10!, b11!, i1!, i2!, i3!, i4!
End Sub
Private Sub Image1_Click()
Picture = LoadPicture("")
End Sub
Private Sub Label14_Click()
Form11.Hide
Form7.Show
End Sub
Form12
Private Sub Form_Load()
End Sub
Private Sub Label1_Click()
Form12.Hide
Form13.Show
End Sub
Private Sub Label2_Click()
Form12.Hide
Form17.Show
End Sub
Private Sub Label3_Click()
Form12.Hide
Form18.Show
End Sub
Private Sub Label4_Click()
Form12.Hide
Form19.Show
End Sub
Private Sub Label5_Click()
Form12.Hide
Form7.Show
End Sub
Private Sub Label6_Click()
Form12.Hide
Form20.Show
End Sub
Form13
Private Sub Image1_Click()
End Sub
Private Sub Label2_Click()
Form13.Hide
Form14.Show
End Sub
Private Sub OLE1_Updated(Code As Integer)
End Sub
Form14
Private Sub Label2_Click()
Form14.Hide
Form15.Show
End Sub
Private Sub OLE1_Updated(Code As Integer)
End Sub
Form15
Private Sub Form_Load()
Picture = LoadPicture("")
End Sub
Private Sub Label1_Click()
Form15.Hide
Form16.Show
End Sub
Private Sub OLE1_Updated(Code As Integer)
End Sub
Form16
Private Sub Form_Load()
Picture = LoadPicture("")
End Sub
Private Sub Label3_Click()
Form16.Hide
Form12.Show
End Sub
Private Sub OLE1_Updated(Code As Integer)
End Sub
Form17
Private Sub Command1_Click()
Dim c!, a!, b!
If Form10.Text4.Text > Form10.Text10.Text Then
a = Form10.Text4.Text
b = 13 * (a ^ (1 / 3))
c = 15.3 * (a ^ (1 / 3))
Text1.Text = b
Text2.Text = c
Else
a = Form10.Text10.Text
b = 13 * (a ^ (1 / 3))
c = 15.3 * (a ^ (1 / 3))
Text1.Text = b
Text2.Text = c
End If
End Sub
Private Sub Command4_Click()
Dim c!, d!, e%
c = Text4.Text
d = Form16.Text2.Text
e = c / d
Text3.Text = e
End Sub
Private Sub Form_Load()
End Sub
Private Sub Label3_Click()
Form17.Hide
Form12.Show
End Sub
Form18
Private Sub Command1_Click()
Dim a!, b!, c!
a = Form17.Text4.Text
b = 0.155 * a
Text1.Text = b
c = 1.1 * b
Text2.Text = c
End Sub
Private Sub Form_Load()
Picture = LoadPicture("")
End Sub
Private Sub Label4_Click()
Form18.Hide
Form12.Show
End Sub
Form19
Private Sub Form_Load()
Picture = LoadPicture("")
End Sub
Private Sub Label3_Click()
End Sub
Private Sub Label7_Click()
Form19.Hide
Form12.Show
End Sub
Form20
Private Sub Form_Load()
Picture = LoadPicture("")
Dim a%, b%, c!, d%, e%, f!, H1!, H2!, Ka!, H3!, H4!, H5!, H6!, x!, y!
Text1.Text = Form16.Text1.Text
Text2.Text = Form16.Text2.Text
Text3.Text = Form17.Text3.Text
x = Form18.Text2.Text
Text4.Text = x
y = Form18.Text1.Text
Text20.Text = y
Text7.Text = Form19.Text2.Text
a = Text1.Text
b = Text2.Text
c = Text3.Text
Text3.Text = c
d = a * c
e = b * c
Text8.Text = d
Text9.Text = e
Text14.Text = Form19.Combo1
Text21.Text = Form19.Combo2
Text15.Text = 25.64
Text16.Text = 90 - 25.64
Text17.Text = d / 2 / Sin(25.64 * 3.14 / 180)
Text18.Text = 3.1416 * c
If a = 5 Then
H1 = 1.43
H2 = 1.588
Ka = 0.16
Text5.Text = H1 * c
Text6.Text = H2 * c
H4 = Ka * c
H3 = H1 * c - H4
Text10.Text = H3
Text11.Text = H4
H5 = H2 * c - H3
H6 = H2 * c - H4
Text12.Text = H5
Text13.Text = H6
Text19.Text = H2 * c - H1 * c
ElseIf a = 6 Then
H1 = 1.5
H2 = 1.666
Ka = 0.215
Text5.Text = H1 * c
Text6.Text = H2 * c
H4 = Ka * c
H3 = H1 * c - H4
Text10.Text = H3
Text11.Text = H4
H5 = H2 * c - H3
H6 = H2 * c - H4
Text12.Text = H5
Text13.Text = H6
Text19.Text = H2 * c - H1 * c
ElseIf a = 7 Then
H1 = 1.56
H2 = 1.733
Ka = 0.27
Text5.Text = H1 * c
Text6.Text = H2 * c
H4 = Ka * c
H3 = H1 * c - H4
Text10.Text = H3
Text11.Text = H4
H5 = H2 * c - H3
H6 = H2 * c - H4
Text12.Text = H5
Text13.Text = H6
Text19.Text = H2 * c - H1 * c
ElseIf a = 8 Then
H1 = 1.61
H2 = 1.788
Ka = 0.325
Text5.Text = H1 * c
Text6.Text = H2 * c
H4 = Ka * c
H3 = H1 * c - H4
Text10.Text = H3
Text11.Text = H4
H5 = H2 * c - H3
H6 = H2 * c - H4
Text12.Text = H5
Text13.Text = H6
Text19.Text = H2 * c - H1 * c
ElseIf a = 9 Then
H1 = 1.65
H2 = 1.832
Ka = 0.38
Text5.Text = H1 * c
Text6.Text = H2 * c
H4 = Ka * c
H3 = H1 * c - H4
Text10.Text = H3
Text11.Text = H4
H5 = H2 * c - H3
H6 = H2 * c - H4
Text12.Text = H5
Text13.Text = H6
Text19.Text = H2 * c - H1 * c
ElseIf a = 10 Then
H1 = 1.68
H2 = 1.865
Ka = 0.435
Text5.Text = H1 * c
Text6.Text = H2 * c
H4 = Ka * c
H3 = H1 * c - H4
Text10.Text = H3
Text11.Text = H4
H5 = H2 * c - H3
H6 = H2 * c - H4
Text12.Text = H5
Text13.Text = H6
Text19.Text = H2 * c - H1 * c
ElseIf a = 11 Then
H1 = 1.695
H2 = 1.882
Ka = 0.49
Text5.Text = H1 * c
Text6.Text = H2 * c
H4 = Ka * c
H3 = H1 * c - H4
Text10.Text = H3
Text11.Text = H4
H5 = H2 * c - H3
H6 = H2 * c - H4
Text12.Text = H5
Text13.Text = H6
Text19.Text = H2 * c - H1 * c
Else
H1 = 1.7
H2 = 1.888
f = (b / a) ^ 2
Ka = 0.46 + 0.39 / f
Text5.Text = H1 * c
Text6.Text = H2 * c
H4 = Ka * c
H3 = H1 * c - H4
Text10.Text = H3
Text11.Text = H4
H5 = H2 * c - H3
H6 = H2 * c - H4
Text12.Text = H5
Text13.Text = H6
Text19.Text = H2 * c - H1 * c
End If
End Sub
Private Sub Label15_Click()
Form20.Hide
Form12.Show
End Sub
Form21
Private Sub Form_Load()
End Sub
Private Sub Label10_Click()
Form21.Hide
Form7.Show
End Sub
Private Sub Label4_Click()
Dim a1!, a2!, a3!, a4!, a5!, a6!, a7!
If Form10.Text4.Text > Form10.Text10.Text Then
a1 = Form11.Text9.Text
a2 = Form17.Text3.Text
a3 = (a2 / 25.4) ^ 0.25
a4 = Text1.Text
a5 = Form18.Text2.Text
a6 = Form20.Text8.Text
a7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2)
If a7 < 700 Then
Print a7; "< 700"
MsgBox "計(jì)算值<700 校核成功", , "校核結(jié)果"
Else
Print a7; "> 700"
MsgBox "計(jì)算值>700 校核不成功", , "校核結(jié)果"
End If
Else
a1 = Form11.Text10.Text
a2 = Form17.Text3.Text
a3 = (a2 / 25.4) ^ 0.25
a4 = Text1.Text
a5 = Form18.Text2.Text
a6 = Form20.Text8.Text
a7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2)
If a7 < 700 Then
Print a7; "< 700"
MsgBox "計(jì)算值<700 校核成功", , "校核結(jié)果"
Else
Print a7; "> 700"
MsgBox "計(jì)算值>700 校核不成功", , "校核結(jié)果"
End If
End If
End Sub
Private Sub Label5_Click()
Dim a1!, a2!, a3!, a4!, a5!, a6!, a7!
a1 = Form11.Text11.Text
a2 = Form17.Text3.Text
a3 = (a2 / 25.4) ^ 0.25
a4 = Text1.Text
a5 = Form18.Text2.Text
a6 = Form20.Text8.Text
a7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2)
If a7 < 210 Then
Print a7; "< 210"
MsgBox "計(jì)算值<210 校核成功", , "校核結(jié)果"
Else
Print a7; "> 210"
MsgBox "計(jì)算值>210 校核不成功", , "校核結(jié)果"
End If
End Sub
Private Sub Label7_Click()
Dim a1!, a2!, a3!, a4!, a5!, a6!, a7!, b1!, b2!
b1 = Form10.Text4.Text
b2 = Form10.Text10.Text
If b1 < b2 Then
a1 = Form10.Text4.Text
a2 = Form17.Text3.Text
a3 = (a2 / 25.4) ^ 0.25
a4 = Text1.Text
a5 = Form18.Text1.Text
a6 = Form20.Text9.Text
a7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2)
If a7 < 700 Then
Print a7; "< 700"
MsgBox "計(jì)算值<700 校核成功", , "校核結(jié)果"
Else
Print a7; "> 700"
MsgBox "計(jì)算值>700 校核不成功", , "校核結(jié)果"
End If
Else
a1 = Form10.Text10.Text
a2 = Form17.Text3.Text
a3 = (a2 / 25.4) ^ 0.25
a4 = Text1.Text
a5 = Form18.Text1.Text
a6 = Form20.Text9.Text
a7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2)
If a7 < 700 Then
Print a7; "< 700"
MsgBox "計(jì)算值<700 校核成功", , "校核結(jié)果"
Else
Print a7; "> 700"
MsgBox "計(jì)算值>700 校核不成功", , "校核結(jié)果"
End If
End If
End Sub
Private Sub Label8_Click()
Dim a1!, a2!, a3!, a4!, a5!, a6!, a7!
a1 = Form11.Text6.Text
a2 = Form17.Text3.Text
a3 = (a2 / 25.4) ^ 0.25
a4 = Text1.Text
a5 = Form18.Text1.Text
a6 = Form20.Text9.Text
a7 = 2000 * a1 * a3 * a4 / (a2 * a5 * a6 * 0.2)
If a7 < 210 Then
Print a7; "< 210"
MsgBox "計(jì)算值<210 校核成功", , "校核結(jié)果"
Else
Print a7; "> 210"
MsgBox "計(jì)算值>210 校核不成功", , "校核結(jié)果"
End If
End Sub
Private Sub Label9_Click()
Form21.Hide
Form27.Show
End Sub
Form22
Private Sub Label2_Click()
Form22.Hide
Form7.Show
End Sub
Private Sub OLE1_Updated(Code As Integer)
End Sub
Form23
Private Sub Form_Load()
End Sub
Private Sub Label1_Click()
Form23.Hide
Form24.Show
End Sub
Private Sub Label2_Click()
Form23.Hide
Form7.Show
End Sub
Private Sub Label3_Click()
Form23.Hide
Form25.Show
End Sub
Private Sub Label4_Click()
End Sub
Private Sub Label6_Click()
Form23.Hide
Form5.Show
End Sub
Private Sub 幫助_Click()
MsgBox "無法顯示幫助目錄，該工程沒有相關(guān)聯(lián)的幫助。", vbInformation, Me.Caption
End Sub
Private Sub 第二級_Click()
Form23.Hide
Form25.Show
End Sub
Private Sub 第一級_Click()
Form23.Hide
Form7.Show
End Sub
Private Sub 關(guān)閉_Click()
Form23.Hide
Form5.Show
End Sub
Private Sub 退出_Click()
End
End Sub
Private Sub 新建_Click()
Form23.Hide
Form3.Show
End Sub
Private Sub 主減速比分配_Click()
Form23.Hide
Form24.Show
End Sub
Form24
Private Sub Form_Load()
Picture = LoadPicture("")
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label5_Click()
Form24.Hide
Form23.Show
End Sub
Form25
Private Sub Form_Load()
End Sub
Private Sub Label1_Click()
Form25.Hide
Form26.Show
End Sub
Private Sub Label2_Click()
Form25.Hide
Form28.Show
End Sub
Private Sub Label3_Click()
Form25.Hide
Form29.Show
End Sub
Private Sub Label4_Click()
Form25.Hide
Form30.Show
End Sub
Private Sub Label5_Click()
Form25.Hide
Form31.Show
End Sub
Private Sub Label6_Click()
Form25.Hide
Form32.Show
End Sub
Private Sub Label8_Click()
Form25.Hide
Form23.Show
End Sub
Form26
Private Sub Command1_Click()
End Sub
Private Sub Command2_Click()
End Sub
Private Sub Form_Load()
Picture = LoadPicture("")
End Sub
Private Sub Label10_Click()
Dim a1!, a2!, a3!
a1 = Form10.Text4.Text
a2 = 10.51 * a1 ^ (1 / 3)
a3 = 11.92 * a1 ^ (1 / 3)
Text1.Text = a2
Text2.Text = a3
End Sub
Private Sub Label11_Click()
Form26.Hide
Form25.Show
End Sub
Private Sub Label13_Click()
Dim a1!, a2!, a3!
a1 = Text3.Text
a2 = 0.38 * a1
a3 = 0.41 * a1
Text6.Text = a2
Text7.Text = a3
End Sub
Form27
a7 = a6 * a5 ^ (1 / 2)
If a7 > 2800 Then
Print a7; ">2800"
MsgBox "計(jì)算值>2800 校核不成功", , "校核結(jié)果"
Else
Print a7; "<2800"
MsgBox "計(jì)算值<2800 校核成功", , "校核結(jié)果"
End If
End If
End If
End Sub
Private Sub Label4_Click()
Dim a1!, a2!, a3!, a4!, a5!, a6!, a7!
a1 = Form20.Text8.Text
a2 = Form11.Text11.Text
a3 = Form21.Text1.Text
If Form18.Text1 > Form18.Text2 Then
a4 = Form18.Text1.Text
a5 = 2000 * a2 * a3 / a4 / 0.09
a6 = 232.6 / a1
a7 = a6 * a5 ^ (1 / 2)
If a7 > 1750 Then
Print a7; ">1750"
MsgBox "計(jì)算值>1750 校核不成功", , "校核結(jié)果"
Else
Print a7; "<1750"
MsgBox "計(jì)算值<1750 校核成功", , "校核結(jié)果"
End If
Else
a4 = Form18.Text2.Text
a5 = 2000 * a2 * a3 / a4 / 0.09
a6 = 232.6 / a1
a7 = a6 * a5 ^ (1 / 2)
If a7 > 1750 Then
Print a7; ">1750"
MsgBox "計(jì)算值>1750 校核不成功", , "校核結(jié)果"
Else
Print a7; "<1750"
MsgBox "計(jì)算值<1750 校核成功", , "校核結(jié)果"
End If
End If
End Sub
Private Sub Label5_Click()
Form27.Hide
Form7.Show
End Sub
Private Sub OLE2_Updated(Code As Integer)
End Sub
Form28
Private Sub Form_Load()
Picture = LoadPicture("")
End Sub
Private Sub Label1_Click()
Form28.Hide
Form25.Show
End Sub
Private Sub Label9_Click()
End Sub
Form29
Private Sub Form_Load()
Picture = LoadPicture("")
End Sub
Private Sub Label3_Click()
Form29.Hide
Form25.Show
End Sub
Private Sub Label8_Click()
End Sub
Form30
Private Sub Form_Load()
Picture = LoadPicture("")
End Sub
Private Sub Label1_Click()
Dim a1!, a2!, a3!, a4!, a5!, a6!, a7!
a1 = Form26.Text3.Text
a2 = Form28.Text1.Text
a3 = Form29.Text2.Text
a4 = Form24.Text3.Text
a5 = 2 * a1 * Cos(a3 * 3.14 / 180) / a2
Text1.Text = a5
a6 = a5 / (1 + a4)
a7 = a6 * a4
Text2.Text = a4
Text3.Text = a6
Text4.Text = a7
End Sub
Private Sub Label2_Click()
Form30.Hide
Form25.Show
End Sub
Private Sub OLE1_Updated(Code As Integer)
End Sub
Form31
Private Sub Form_Load()
Dim z1%, z2%, m%, a%, b%, j1!, j2!, d1!, d2!, ha1!, ha2!, hf1!, hf2!, h!, da1!, da2!, df1!, df2!, db1!, db2!
z1 = Form30.Text5.Text
z2 = Form30.Text6.Text
m = Form28.Text1
a = Form26.Text3
b = Form26.Text8
j1 = Form29.Text1
j2 = Form29.Text2
d1 = m * z1 / Cos(j2 * 3.14 / 180)
d2 = m * z2 / Cos(j2 * 3.14 / 180)
ha1 = m
ha2 = m
hf1 = 1.25 * m
hf2 = 1.25 * m
h = ha1 + hf1
da1 = d1 + 2 * ha1
da2 = d2 + 2 * ha2
df1 = d1 - 2 * hf1
df2 = d2 - 2 * hf2
db1 = d1 * Cos(j1 * 3.14 / 180)
db2 = d2 * Cos(j1 * 3.14 / 180)
Text1.Text = z1
Text2.Text = z2
Text3.Text = m
Text4.Text = a
Text5.Text = b
Text6.Text = j1
Text7.Text = j2
Text8.Text = d1
Text9.Text = d2
Text10.Text = ha1
Text11.Text = ha2
Text12.Text = hf1
Text13.Text = hf2
Text14.Text = h
Text15.Text = da1
Text16.Text = da2
Text17.Text = df1
Text18.Text = df2
Text19.Text = db1
Text20.Text = db2
End Sub
Private Sub Label1_Click()
Form31.Hide
Form25.Show
End Sub
Private Sub OLE2_Updated(Code As Integer)
End Sub
Form32
Private Sub Label1_Click()
Dim f!, t1!, d!, j!, b!, t!, k1!, y!, k2!, m!
d = Form31.Text8.Text
j = Form31.Text7.Text
b = Form31.Text5.Text
m = Form31.Text3.Text
t = m * 3.14
If Form11.Text9.Text < Form11.Text10.Text Then
t1 = Form11.Text10.Text
f = 2 * t1 / d
k1 = 1.5 * f * 1000 / (b * t * 4)
If k1 < 250 Then
Print k1; "< 250"
MsgBox "計(jì)算值<250 校核成功", , "校核結(jié)果"
Else
Print k1; "> 250"
MsgBox "計(jì)算值>250 校核不成功", , "校核結(jié)果"
End If
Else
t1 = Form11.Text9.Text
f = 2 * t1 / d
k1 = 1.5 * f * 1000 / (b * t * 4)
If k1 < 250 Then
Print k1; "< 250"
MsgBox "計(jì)算值<250 校核成功", , "校核結(jié)果"
Else
Print k1; "> 250"
MsgBox "計(jì)算值>250 校核不成功", , "校核結(jié)果"
End If
End If
End Sub
Private Sub Label2_Click()
Form32.Hide
Form33.Show
End Sub
Private Sub Label3_Click()
Form32.Hide
Form25.Show
End Sub
Private Sub OLE2_Updated(Code As Integer)
End Sub
Form33
Private Sub Label2_Click()
Dim s!, f!, f1!, j1!, j2!, tg!, d!, b!, rz!, rb!, pz!, pb!, s1!, s2!, s3!, s4!
j1 = Form31.Text6.Text
j2 = Form31.Text7.Text
d = Fo
收藏