📄 form17.frm
字号:
Height = 345
Left = 195
TabIndex = 50
Top = 330
Width = 705
End
Begin VB.Label Label23
Caption = "λ ="
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 195
TabIndex = 49
Top = 2790
Width = 705
End
Begin VB.Label Label22
Caption = "mm"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 2940
TabIndex = 48
Top = 2790
Width = 255
End
Begin VB.Label Label21
Caption = "Ω"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 2880
TabIndex = 47
Top = 960
Width = 255
End
Begin VB.Label Label20
Caption = "Ω"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 2880
TabIndex = 46
Top = 330
Width = 255
End
Begin VB.Label Label19
Caption = "mm"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 2940
TabIndex = 45
Top = 1560
Width = 255
End
End
Begin VB.OptionButton Option2
Caption = "综合"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 5670
TabIndex = 21
Top = 780
Width = 1305
End
Begin VB.OptionButton Option1
Caption = "分析"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 4020
TabIndex = 20
Top = 780
Width = 1305
End
Begin VB.PictureBox Picture1
AutoRedraw = -1 'True
AutoSize = -1 'True
Height = 4100
Left = 315
ScaleHeight = 4035
ScaleWidth = 3135
TabIndex = 13
Top = 795
Width = 3200
Begin VB.Image Image1
Height = 4095
Left = 0
Stretch = -1 'True
Top = 0
Width = 3195
End
End
Begin VB.CommandButton cmdOK
Caption = "确定"
Height = 350
Left = 4545
TabIndex = 1
Top = 5295
Width = 1000
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "取消"
Height = 350
Left = 6105
TabIndex = 0
Top = 5295
Width = 1000
End
Begin ResizeLibCtl.ReSize ReSize1
Left = 195
Top = 5385
_Version = 131072
_ExtentX = 741
_ExtentY = 741
_StockProps = 0
Enabled = -1 'True
FormMinWidth = 0
FormMinHeight = 0
FormDesignHeight= 5880
FormDesignWidth = 7515
End
Begin ComctlLib.TabStrip TabStrip1
Height = 4995
Left = 120
TabIndex = 14
Top = 150
Width = 7305
_ExtentX = 12885
_ExtentY = 8811
_Version = 327682
BeginProperty Tabs {0713E432-850A-101B-AFC0-4210102A8DA7}
NumTabs = 3
BeginProperty Tab1 {0713F341-850A-101B-AFC0-4210102A8DA7}
Caption = "指数分布"
Key = ""
Object.Tag = ""
ImageVarType = 2
EndProperty
BeginProperty Tab2 {0713F341-850A-101B-AFC0-4210102A8DA7}
Caption = "三角分布"
Key = ""
Object.Tag = ""
ImageVarType = 2
EndProperty
BeginProperty Tab3 {0713F341-850A-101B-AFC0-4210102A8DA7}
Caption = "切比雪夫分布"
Key = ""
Object.Tag = ""
ImageVarType = 2
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MouseIcon = "Form17.frx":0000
End
End
Attribute VB_Name = "Form17"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Dim pi As Double
pi = 4 * Atn(1)
If Frame1.Visible = True Then
Dim zo1, zo2, lg1, t1, l1, a As Double
zo1 = Text1.Text
zo2 = Text2.Text
l1 = Text3.Text
t1 = Text4.Text
a = Log(0.5 * Log(zo2 / zo1) / t1 + Sqr((0.5 * Log(zo2 / zo1) / t1) ^ 2 - 1))
lg1 = l1 * 2 * pi / a
Text5.Text = Format(lg1, "##########.0000000000")
Command1.Enabled = True
End If
If Frame2.Visible = True Then
Dim zo3, zo4, lg2, t2, l2, b As Double
zo3 = Text6.Text
zo4 = Text8.Text
lg2 = Text9.Text
t2 = Text10.Text
b = Log(0.5 * Log(zo4 / zo3) / t2 + Sqr((0.5 * Log(zo4 / zo3) / t2) ^ 2 - 1))
l2 = b * lg2 / (2 * pi)
Text7.Text = Format(l2, "##########.0000000000")
Command2.Enabled = True
End If
If Frame3.Visible = True Then
Dim zo5, zo6, lg3, t3, l3, a2 As Double
zo5 = Text11.Text
zo6 = Text13.Text
l3 = Text14.Text
t3 = Text15.Text
a2 = Log(0.5 * Log(zo6 / zo5) / t3 + Sqr((0.5 * Log(zo6 / zo5) / t3) ^ 2 - 1))
lg3 = l3 * 2 * pi / a2
Text12.Text = Format(lg3, "##########.0000000000")
Command3.Enabled = True
End If
If Frame4.Visible = True Then
Dim zo7, zo8, lg4, t4, l4, b2 As Double
zo7 = Text16.Text
zo8 = Text18.Text
lg4 = Text19.Text
t4 = Text20.Text
b2 = Log(0.5 * Log(zo8 / zo7) / t4 + Sqr((0.5 * Log(zo8 / zo7) / t4) ^ 2 - 1))
l4 = b2 * lg4 / (2 * pi)
Text17.Text = Format(l4, "##########.0000000000")
Command4.Enabled = True
End If
If Frame5.Visible = True Then
Dim zo9, zo10, lg5, t5, l5, a3 As Double
zo9 = Text21.Text
zo10 = Text23.Text
l5 = Text24.Text
t5 = Text25.Text
a3 = Log(0.5 * Log(zo10 / zo9) / t5 + Sqr((0.5 * Log(zo10 / zo9) / t5) ^ 2 - 1))
lg5 = l5 * 2 * pi / a3
Text22.Text = Format(lg5, "##########.0000000000")
Command5.Enabled = True
End If
If Frame6.Visible = True Then
Dim zo11, zo12, lg6, t6, l6, b3 As Double
zo11 = Text26.Text
zo12 = Text28.Text
lg6 = Text29.Text
t6 = Text30.Text
b3 = Log(0.5 * Log(zo12 / zo11) / t6 + Sqr((0.5 * Log(zo12 / zo11) / t6) ^ 2 - 1))
l6 = b3 * lg6 / (2 * pi)
Text27.Text = Format(l6, "##########.0000000000")
Command6.Enabled = True
End If
End Sub
Private Sub Command1_Click()
Form23.Show
End Sub
Private Sub Command2_Click()
Form23.Show
End Sub
Private Sub Command3_Click()
Form24.Show
End Sub
Private Sub Command4_Click()
Form24.Show
End Sub
Private Sub Command5_Click()
Form25.Show
End Sub
Private Sub Command6_Click()
Form25.Show
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim i As Integer
'处理 ctrl+tab 键，移动到下一个选项卡
If Shift = vbCtrlMask And KeyCode = vbKeyTab Then
i = TabStrip1.SelectedItem.Index
If i = TabStrip1.Tabs.Count Then
'最后一个选项卡，返回到选项卡 1
Set TabStrip1.SelectedItem = TabStrip1.Tabs(1)
Else
' 选项卡序数加 1
Set TabStrip1.SelectedItem = TabStrip1.Tabs(i + 1)
End If
End If
End Sub
Private Sub Form_Load()
'窗体居中
Me.Left = 1200
Me.Top = 1200
Me.Width = 8000
Me.Height = 6000
Image1.Picture = LoadPicture(App.Path & "\image\jbx.bmp")
Frame1.Visible = True
Option1.Value = True
End Sub
Private Sub Option1_Click()
If Frame2.Visible = True Then
Frame1.Visible = True
Frame2.Visible = False
ElseIf Frame4.Visible = True Then
Frame3.Visible = True
Frame4.Visible = False
ElseIf Frame6.Visible = True Then
Frame5.Visible = True
Frame6.Visible = False
End If
End Sub
Private Sub Option2_Click()
If Frame1.Visible = True Then
Frame2.Visible = True
Frame1.Visible = False
ElseIf Frame3.Visible = True Then
Frame4.Visible = True
Frame3.Visible = False
ElseIf Frame5.Visible = True Then
Frame6.Visible = True
Frame5.Visible = False
End If
End Sub
Private Sub TabStrip1_Click()
Dim i As Integer
'显示并激活选中的选项卡控件
'隐藏并禁止所有其它控件
For i = 1 To TabStrip1.Tabs.Count
If i = TabStrip1.SelectedItem.Index Then
Frame5.Visible = True
Frame2.Visible = False
Frame3.Visible = False
Frame4.Visible = False
Frame1.Visible = False
Frame6.Visible = False
Option1.Value = True
ElseIf i = TabStrip1.SelectedItem.Index + 1 Then
Frame3.Visible = True
Frame1.Visible = False
Frame2.Visible = False
Frame4.Visible = False
Frame5.Visible = False
Frame6.Visible = False
Option1.Value = True
Else
Frame1.Visible = True
Frame5.Visible = False
Frame2.Visible = False
Frame3.Visible = False
Frame4.Visible = False
Frame6.Visible = False
Option1.Value = True
End If
Next
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -