📄 参数输入.frm
字号:
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 135
Left = 3720
TabIndex = 25
Top = 600
Width = 135
End
End
Begin VB.Frame frame3
BackColor = &H00FFC0C0&
Caption = "齿顶高系数(ha*或ha*n)和顶隙系数(C*或Cn*)"
ForeColor = &H000000FF&
Height = 1095
Left = 4680
TabIndex = 23
Top = 2880
Width = 3975
Begin VB.OptionButton Option9
BackColor = &H00FFC0C0&
Caption = "短齿制 (0.8和0.3)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Left = 240
TabIndex = 12
Top = 720
Width = 2655
End
Begin VB.OptionButton Option8
BackColor = &H00FFC0C0&
Caption = "正常齿制(1.0和0.25)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Left = 240
TabIndex = 11
Top = 360
Width = 2655
End
End
Begin VB.Frame frame2
BackColor = &H00FFC0C0&
Caption = "压力角(α或αn)"
ForeColor = &H000000FF&
Height = 1095
Left = 4680
TabIndex = 22
Top = 1560
Width = 3975
Begin VB.OptionButton Option7
BackColor = &H00FFC0C0&
Caption = "22.5°"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Left = 2880
TabIndex = 10
Top = 720
Width = 975
End
Begin VB.OptionButton Option6
BackColor = &H00FFC0C0&
Caption = "15°"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Left = 1680
TabIndex = 9
Top = 720
Width = 975
End
Begin VB.OptionButton Option5
BackColor = &H00FFC0C0&
Caption = "25°"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Left = 240
TabIndex = 8
Top = 720
Width = 975
End
Begin VB.OptionButton Option4
BackColor = &H00FFC0C0&
Caption = "14.5°"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Left = 1680
TabIndex = 7
Top = 360
Width = 975
End
Begin VB.OptionButton Option3
BackColor = &H00FFC0C0&
Caption = "20°"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Left = 240
TabIndex = 6
Top = 360
Width = 975
End
End
Begin VB.CommandButton Command9
BackColor = &H00FFC0FF&
Caption = "其它"
Height = 375
Left = 3480
MaskColor = &H00FFC0FF&
Style = 1 'Graphical
TabIndex = 16
Top = 3000
Width = 735
End
Begin VB.CommandButton Command8
BackColor = &H00FFC0FF&
Caption = "压力角"
Height = 375
Left = 3480
MaskColor = &H00FFC0FF&
Style = 1 'Graphical
TabIndex = 21
Top = 3600
Width = 735
End
Begin VB.CommandButton Command7
BackColor = &H00FFC0FF&
Caption = "螺旋角"
Height = 375
Left = 2670
MaskColor = &H00FFC0FF&
Style = 1 'Graphical
TabIndex = 20
Top = 3600
Width = 735
End
Begin VB.CommandButton Command6
BackColor = &H00FFC0FF&
Caption = "模数"
Height = 375
Left = 1860
MaskColor = &H00FFC0FF&
Style = 1 'Graphical
TabIndex = 19
Top = 3600
Width = 735
End
Begin VB.CommandButton Command5
BackColor = &H00FFC0FF&
Caption = "中心距"
Height = 375
Left = 1050
MaskColor = &H00FFC0FF&
Style = 1 'Graphical
TabIndex = 18
Top = 3600
Width = 735
End
Begin VB.CommandButton Command4
BackColor = &H00FFC0FF&
Caption = "传动比"
Height = 375
Left = 240
MaskColor = &H00FFC0FF&
Style = 1 'Graphical
TabIndex = 17
Top = 3600
Width = 735
End
Begin VB.Image Image2
Height = 1200
Left = 5280
Picture = "参数输入.frx":0000
Top = 5160
Width = 1200
End
Begin VB.Image Image1
Height = 1200
Left = 4680
Picture = "参数输入.frx":1B53
Top = 4800
Width = 1200
End
Begin VB.Label Label10
Alignment = 2 'Center
BackColor = &H00FFC0C0&
Caption = "**参看说明**"
BeginProperty Font
Name = "黑体"
Size = 21.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 495
Left = 240
TabIndex = 35
Top = 2880
Width = 2895
End
Begin VB.Label Label9
BackColor = &H00FFC0C0&
Caption = "说明文字"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3135
Left = 360
TabIndex = 34
Top = 4080
Width = 3615
End
End
Attribute VB_Name = "参数输入"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim dot, G, bc, xp1, xp2 As Single
Dim UR As Integer
Dim str_i, str_m, str_m1, str_m2, str_m3, str_ap, str_b, str_r, str_qita As String
Dim words, txtwords As String
Dim j, lenth As Integer
'优化计算按钮被点击
Private Sub Command1_Click()
Dim Retries As Integer
Dim A1, A2, A3, A4, UR5, UR6, UR7 As Integer
Dim r1, r2, rb1, rb2 As Double
Retries = 0
' On Error GoTo errorhandle
'逐个判断是否输入正确
'检查I是否正确
If (i > 10) Or (i < 1) Then
Beep
A1 = MsgBox("传动比输入错误，请查看说明!", vbOKOnly + vbExclamation + vbDefaultButton1, "警告")
If A1 = 1 Then
Text1.SetFocus
SendKeys "{Home}+{End}"
End If
Exit Sub
End If
'检查a'是否正确
If ap <= 0.1 Then
Beep
A2 = MsgBox("实际中心距输入错误，请查看说明!", vbOKOnly + vbExclamation + vbDefaultButton1, "警告")
If A2 = 1 Then
Text2.SetFocus
SendKeys "{Home}+{End}"
End If
Exit Sub
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -