📄 form3.frm
字号:
Width = 855
End
Begin VB.Label Label20
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "o"
Height = 180
Index = 1
Left = 2640
TabIndex = 52
Top = 3240
Width = 90
End
Begin VB.Label Label20
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "o"
Height = 180
Index = 0
Left = 2640
TabIndex = 51
Top = 2520
Width = 90
End
Begin VB.Label Label21
BackColor = &H00FFFFFF&
Caption = "螺 旋 角："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 45
Top = 3240
Width = 1455
End
Begin VB.Label Label1
BackColor = &H00FFFFFF&
Caption = "法 面 模数："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 9
Top = 600
Width = 1575
End
Begin VB.Label Label2
BackColor = &H00FFFFFF&
Caption = "大齿轮齿数："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 8
Top = 1920
Width = 1695
End
Begin VB.Label Label3
BackColor = &H00FFFFFF&
Caption = "法面压力角："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 7
Top = 2640
Width = 1455
End
Begin VB.Label Label4
BackColor = &H00FFFFFF&
Caption = "小齿轮齿数："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 6
Top = 1200
Width = 1455
End
End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim mn As Single
Dim an As Double
Dim ha As Single
Dim hf As Single
Dim b As Single
Dim da As Single
Dim df As Single
Dim db As Single
Dim pn As Single
Dim pbn As Single
Dim s As Single
Dim bb As Single
Dim mt As Single
Dim at As Single
Dim d As Single
Dim pt As Single
Dim z1 As Single
Dim z2 As Single
Dim zm As Single
Dim xt As Single
Dim st As Single
Dim zv As Single
Dim bs As Double
Dim xn As Single
Dim u As Single
Dim v As Single
Dim sn As Single
Const pi As Single = 3.1415926
z2 = Text2.Text
mn = Text1.Text
z1 = Text4.Text
an = Text3.Text
b = Text20.Text
If z1 < 17 Then
Form18.Show
End If
xn = 1
an = pi * 20 / 180
bs = b * pi / 180
u = Tan(bs) * Cos(at)
bb = Atn(u)
Text5.Text = bb * 180 / pi
mt = mn / Cos(bs)
Text6.Text = mt
v = Tan(an) / Cos(bs)
at = Atn(v)
Text7.Text = at * 180 / pi
pn = pi * mn
Text8.Text = pn
pt = pi * mt
Text9.Text = pt
pbn = pn * Cos(an)
Text10.Text = pbn
d = z2 * mt
Text11.Text = d
zv = z2 / Cos(bs) / Cos(bs) / Cos(bs)
Text12.Text = zv
d = z2 * mt
Text13.Text = d
db = d * Cos(at)
Text14.Text = db
zm = 17 * Cos(bs) * Cos(bs) * Cos(bs)
Text15.Text = zm
xt = xn * Cos(bs)
Text16.Text = xt
ha = mn * (1 + xn)
Text17.Text = ha
hf = mn * (1 + 0.25 - xn)
Text18.Text = hf
da = d + 2 * ha
Text19.Text = da
df = d - 2 * ha
Text21.Text = df
sn = (pi / 2 + 2 * xn * Tan(an)) * mn
Text22.Text = sn
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Text8.Enabled = True
Text9.Enabled = True
Text10.Enabled = True
Text11.Enabled = True
Text12.Enabled = True
Text13.Enabled = True
Text14.Enabled = True
Text15.Enabled = True
Text16.Enabled = True
Text17.Enabled = True
Text18.Enabled = True
Text19.Enabled = True
Text21.Enabled = True
Text22.Enabled = True
End Sub
Private Sub Command2_Click()
Dim mn As Single
Dim an As Double
Dim ha As Single
Dim hf As Single
Dim b As Single
Dim da As Single
Dim df As Single
Dim db As Single
Dim pn As Single
Dim pbn As Single
Dim s As Single
Dim bb As Single
Dim mt As Single
Dim at As Single
Dim d As Single
Dim pt As Single
Dim z1 As Single
Dim z2 As Single
Dim zm As Single
Dim xt As Single
Dim st As Single
Dim zv As Single
Dim bs As Double
Dim xn As Single
Dim u As Single
Dim v As Single
Dim sn As Single
Const pi As Single = 3.1415926
z2 = Text2.Text
mn = Text1.Text
z1 = Text4.Text
an = Text3.Text
b = Text20.Text
If z1 < 17 Then
Form18.Show
End If
xn = 1
an = 3.14 * 20 / 180
bs = b * 3.14 / 180
u = Tan(bs) * Cos(at)
bb = Atn(u)
Text5.Text = bb * 180 / pi
mt = mn / Cos(bs)
Text6.Text = mt
v = Tan(an) / Cos(bs)
at = Atn(v)
Text7.Text = at * 180 / pi
pn = pi * mn
Text8.Text = pn
pt = pi * mt
Text9.Text = pt
pbn = pn * Cos(an)
Text10.Text = pbn
d = z1 * mt
Text11.Text = d
zv = z1 / Cos(bs) / Cos(bs) / Cos(bs)
Text12.Text = zv
d = z1 * mt
Text13.Text = d
db = d * Cos(at)
Text14.Text = db
zm = 17 * Cos(bs) * Cos(bs) * Cos(bs)
Text15.Text = zm
xt = xn * Cos(bs)
Text16.Text = xt
ha = mn * (1 + xn)
Text17.Text = ha
hf = mn * (1 + 0.25 - xn)
Text18.Text = hf
da = d + 2 * ha
Text19.Text = da
df = d - 2 * ha
Text21.Text = df
sn = (pi / 2 + 2 * xn * Tan(an)) * mn
Text22.Text = sn
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Text8.Enabled = True
Text9.Enabled = True
Text10.Enabled = True
Text11.Enabled = True
Text12.Enabled = True
Text13.Enabled = True
Text14.Enabled = True
Text15.Enabled = True
Text16.Enabled = True
Text17.Enabled = True
Text18.Enabled = True
Text19.Enabled = True
Text21.Enabled = True
Text22.Enabled = True
End Sub
Private Sub Command3_Click()
Me.Hide
Form10.Show
End Sub
Private Sub Command4_Click()
Unload Me
Form1.Show
End Sub
Private Sub Command5_Click()
Form6.Show
End Sub
Private Sub Form_Load()
Form1.Hide
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Text10.Enabled = False
Text11.Enabled = False
Text12.Enabled = False
Text13.Enabled = False
Text14.Enabled = False
Text15.Enabled = False
Text16.Enabled = False
Text17.Enabled = False
Text18.Enabled = False
Text19.Enabled = False
Text21.Enabled = False
Text22.Enabled = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -