📄 form16.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Form17
BorderStyle = 1 'Fixed Single
Caption = "Multi-Plane"
ClientHeight = 5115
ClientLeft = 150
ClientTop = 720
ClientWidth = 7710
FillColor = &H8000000B&
Icon = "Form16.frx":0000
LinkTopic = "Form17"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5115
ScaleWidth = 7710
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.Frame Frame1
Caption = "Begin lenses"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1095
Left = 4200
TabIndex = 8
Top = 1080
Width = 3375
Begin VB.OptionButton Option3
BackColor = &H00C0C0FF&
Caption = "Four lenses"
Height = 255
Left = 120
TabIndex = 11
Top = 720
Width = 1455
End
Begin VB.OptionButton Option2
BackColor = &H00C0C0FF&
Caption = "three lenses"
Height = 375
Left = 1920
TabIndex = 10
Top = 360
Width = 1335
End
Begin VB.OptionButton Option1
BackColor = &H00C0C0FF&
Caption = "One lens"
Height = 255
Left = 120
TabIndex = 9
Top = 360
Width = 1455
End
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 2535
Left = 240
TabIndex = 6
Top = 2280
Width = 7455
_ExtentX = 13150
_ExtentY = 4471
_Version = 393216
Rows = 7
Cols = 6
ForeColor = 64
ForeColorFixed = 0
ForeColorSel = 16777152
GridColor = 192
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.TextBox Text3
Height = 375
Left = 2160
TabIndex = 5
Text = "Text3"
Top = 1560
Width = 1215
End
Begin VB.TextBox Text2
Height = 375
Left = 5760
TabIndex = 4
Text = "Text2"
Top = 600
Width = 1215
End
Begin VB.TextBox Text1
Height = 375
Left = 2160
TabIndex = 3
Text = "Text1"
Top = 600
Width = 1215
End
Begin VB.Label Label1
BackColor = &H00C0E0FF&
Caption = "Multi-Plane Recess TooL"
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 1
Left = 2160
TabIndex = 7
Top = 0
Width = 3015
End
Begin VB.Label Label1
BackColor = &H00C0FFFF&
Caption = "Lens pitch："
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 5
Left = 4200
TabIndex = 2
Top = 600
Width = 1455
End
Begin VB.Label Label1
BackColor = &H00C0FFFF&
Caption = "largest diameter："
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Index = 4
Left = 600
TabIndex = 1
Top = 1440
Width = 1455
End
Begin VB.Label Label1
BackColor = &H00C0FFFF&
Caption = "Lens D："
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 600
TabIndex = 0
Top = 600
Width = 1455
End
Begin VB.Menu Calculation
Caption = "Calculation"
End
Begin VB.Menu cls
Caption = "Cls"
End
End
Attribute VB_Name = "Form17"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Calculation_Click()
On Error Resume Next
Dim A, b, c, h As Double
A = Val(Form17.Text1.Text)
b = Val(Form17.Text2.Text)
c = Val(Form17.Text3.Text)
Dim d As Currency
Dim e As Currency
Dim f As Currency
Dim g As Currency
Dim i As Currency
Dim j As Currency
Dim k As Currency
Dim l As Currency
Dim m As Currency
Dim N As Currency
Dim O As Currency
Dim p As Currency
Dim Q As Currency
Dim r As Currency
Dim S As Currency
Dim T As Currency
Dim u As Currency
Dim v As Currency
Dim W As Currency
Dim X As Currency
Dim Y As Currency
Dim Z As Currency
Dim aa As Currency
Dim AB As Currency
Dim ac As Currency
Dim AD As Currency
Dim ae As Currency
Dim af As Currency
Dim ag As Currency
Dim ah As Currency
Dim ai As Currency
If Form17.Option3 = True Then
d = Sqr(((A + b) ^ 2) / 2)
Form17.MSFlexGrid1.TextMatrix(1, 1) = d
e = d + A + b
Form17.MSFlexGrid1.TextMatrix(2, 1) = e
f = e + A + b
Form17.MSFlexGrid1.TextMatrix(3, 1) = f
g = f + A + b
Form17.MSFlexGrid1.TextMatrix(4, 1) = g
i = g + A + b
Form17.MSFlexGrid1.TextMatrix(5, 1) = i
j = i + A + b
Form17.MSFlexGrid1.TextMatrix(6, 1) = j
k = (d + A / 2) * 2
If k <= c Then
Form17.MSFlexGrid1.TextMatrix(1, 2) = k
ElseIf k > c Then
Form17.MSFlexGrid1.TextMatrix(1, 2) = "No" & "-" & (k)
End If
l = (e + A / 2) * 2
If l <= c Then
Form17.MSFlexGrid1.TextMatrix(2, 2) = l
ElseIf l > c Then
Form17.MSFlexGrid1.TextMatrix(2, 2) = "No" & "-" & (l)
End If
m = (f + A / 2) * 2
If m <= c Then
Form17.MSFlexGrid1.TextMatrix(3, 2) = m
ElseIf m > c Then
Form17.MSFlexGrid1.TextMatrix(3, 2) = "No" & "-" & (m)
End If
N = (g + A / 2) * 2
If N <= c Then
Form17.MSFlexGrid1.TextMatrix(4, 2) = N
ElseIf N > c Then
Form17.MSFlexGrid1.TextMatrix(4, 2) = "No" & "-" & (N)
End If
O = (i + A / 2) * 2
If O <= c Then
Form17.MSFlexGrid1.TextMatrix(5, 2) = O
ElseIf O > c Then
Form17.MSFlexGrid1.TextMatrix(5, 2) = "No" & "-" & (O)
End If
p = (j + A / 2) * 2
If p <= c Then
Form17.MSFlexGrid1.TextMatrix(6, 2) = p
ElseIf p > c Then
Form17.MSFlexGrid1.TextMatrix(6, 2) = "No" & "-" & (p)
End If
Q = Int(d * 2 * 3.14159 / (A + b))
Form17.MSFlexGrid1.TextMatrix(1, 3) = Q
r = Int(e * 2 * 3.14159 / (A + b))
Form17.MSFlexGrid1.TextMatrix(2, 3) = r
S = Int(f * 2 * 3.14159 / (A + b))
Form17.MSFlexGrid1.TextMatrix(3, 3) = S
T = Int(g * 2 * 3.14159 / (A + b))
Form17.MSFlexGrid1.TextMatrix(4, 3) = T
u = Int(i * 2 * 3.14159 / (A + b))
Form17.MSFlexGrid1.TextMatrix(5, 3) = u
v = Int(j * 2 * 3.14159 / (A + b))
Form17.MSFlexGrid1.TextMatrix(6, 3) = v
X = 360 / Q
Form17.MSFlexGrid1.TextMatrix(1, 4) = X
Y = 360 / r
Form17.MSFlexGrid1.TextMatrix(2, 4) = Y
Z = 360 / S
Form17.MSFlexGrid1.TextMatrix(3, 4) = Z
aa = 360 / T
Form17.MSFlexGrid1.TextMatrix(4, 4) = aa
AB = 360 / u
Form17.MSFlexGrid1.TextMatrix(5, 4) = AB
ac = 360 / v
Form17.MSFlexGrid1.TextMatrix(6, 4) = ac
AD = (Sin(X / 2 * 3.14159265358979 / 180) * d - A / 2) * 2
Form17.MSFlexGrid1.TextMatrix(1, 5) = AD
ae = (Sin(Y / 2 * 3.14159265358979 / 180) * e - A / 2) * 2
Form17.MSFlexGrid1.TextMatrix(2, 5) = ae
af = (Sin(Z / 2 * 3.14159265358979 / 180) * f - A / 2) * 2
Form17.MSFlexGrid1.TextMatrix(3, 5) = af
ag = (Sin(aa / 2 * 3.14159265358979 / 180) * g - A / 2) * 2
Form17.MSFlexGrid1.TextMatrix(4, 5) = ag
ah = (Sin(AB / 2 * 3.14159265358979 / 180) * i - A / 2) * 2
Form17.MSFlexGrid1.TextMatrix(5, 5) = ah
ai = (Sin(ac / 2 * 3.14159265358979 / 180) * j - A / 2) * 2
Form17.MSFlexGrid1.TextMatrix(6, 5) = ai
ElseIf Form17.Option2 = True Then
d = ((Cos(30 * 3.14159265358979 / 180)) * (A + b)) * 2 / 3
Form17.MSFlexGrid1.TextMatrix(1, 1) = d
h = Sin(20 * 3.14159265358979 / 180) * d / (A + b)
e = (Cos((70 - Atn(h / Sqr(-h * h + 1)) * 180 / 3.14159265358979) * 3.14159265358979 / 180) * (A + b)) / (Sin(20 * 3.14159265358979 / 180))
Form17.MSFlexGrid1.TextMatrix(2, 1) = e
f = e + A + b
Form17.MSFlexGrid1.TextMatrix(3, 1) = f
g = f + A + b
Form17.MSFlexGrid1.TextMatrix(4, 1) = g
i = g + A + b
Form17.MSFlexGrid1.TextMatrix(5, 1) = i
j = i + A + b
Form17.MSFlexGrid1.TextMatrix(6, 1) = j
k = (d + A / 2) * 2
If k <= c Then
Form17.MSFlexGrid1.TextMatrix(1, 2) = k
ElseIf k > c Then
Form17.MSFlexGrid1.TextMatrix(1, 2) = "No" & "-" & (k)
End If
l = (e + A / 2) * 2
If l <= c Then
Form17.MSFlexGrid1.TextMatrix(2, 2) = l
ElseIf l > c Then
Form17.MSFlexGrid1.TextMatrix(2, 2) = "No" & "-" & (l)
End If
m = (f + A / 2) * 2
If m <= c Then
Form17.MSFlexGrid1.TextMatrix(3, 2) = m
ElseIf m > c Then
Form17.MSFlexGrid1.TextMatrix(3, 2) = "No" & "-" & (m)
End If
N = (g + A / 2) * 2
If N <= c Then
Form17.MSFlexGrid1.TextMatrix(4, 2) = N
ElseIf N > c Then
Form17.MSFlexGrid1.TextMatrix(4, 2) = "No" & "-" & (N)
End If
O = (i + A / 2) * 2
If O <= c Then
Form17.MSFlexGrid1.TextMatrix(5, 2) = O
ElseIf O > c Then
Form17.MSFlexGrid1.TextMatrix(5, 2) = "No)" & "-" & (O)
End If
p = (j + A / 2) * 2
If p <= c Then
Form17.MSFlexGrid1.TextMatrix(6, 2) = p
ElseIf p > c Then
Form17.MSFlexGrid1.TextMatrix(6, 2) = "No" & "-" & (p)
End If
Q = Int(d * 2 * 3.14159 / (A + b))
Form17.MSFlexGrid1.TextMatrix(1, 3) = Q
r = Int(e * 2 * 3.14159 / (A + b))
Form17.MSFlexGrid1.TextMatrix(2, 3) = r
S = Int(f * 2 * 3.14159 / (A + b))
Form17.MSFlexGrid1.TextMatrix(3, 3) = S
T = Int(g * 2 * 3.14159 / (A + b))
Form17.MSFlexGrid1.TextMatrix(4, 3) = T
u = Int(i * 2 * 3.14159 / (A + b))
Form17.MSFlexGrid1.TextMatrix(5, 3) = u
v = Int(j * 2 * 3.14159 / (A + b))
Form17.MSFlexGrid1.TextMatrix(6, 3) = v
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -