📄 form5.frm
字号:
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 3120
TabIndex = 99
Top = 2220
Width = 255
End
Begin VB.Label Label50
Caption = "mm"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 3120
TabIndex = 98
Top = 2700
Width = 255
End
Begin VB.Label Label49
Caption = "Ω"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 3150
TabIndex = 97
Top = 870
Width = 255
End
Begin VB.Label Label18
Caption = "lb1 ="
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 210
TabIndex = 38
Top = 1767
Width = 885
End
Begin VB.Label Label17
Caption = "la2 ="
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 210
TabIndex = 36
Top = 2236
Width = 885
End
Begin VB.Label Label16
Caption = "lb2 ="
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 210
TabIndex = 34
Top = 2705
Width = 885
End
Begin VB.Label Label15
Caption = "Zo ="
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 210
TabIndex = 32
Top = 829
Width = 885
End
Begin VB.Label Label14
Caption = "la1 ="
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 210
TabIndex = 30
Top = 1298
Width = 885
End
Begin VB.Label Label10
Caption = "+j"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 2040
TabIndex = 28
Top = 330
Width = 345
End
Begin VB.Label Label2
Caption = "Zl ="
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 210
TabIndex = 26
Top = 330
Width = 885
End
End
Begin VB.PictureBox Picture3
Height = 4100
Left = 90
ScaleHeight = 4035
ScaleWidth = 3135
TabIndex = 4
Top = 270
Visible = 0 'False
Width = 3200
Begin VB.Image Image1
Height = 4100
Left = 0
Stretch = -1 'True
Top = 0
Width = 3200
End
End
Begin VB.PictureBox Picture4
Height = 4100
Left = 90
ScaleHeight = 4035
ScaleWidth = 3135
TabIndex = 3
Top = 270
Visible = 0 'False
Width = 3200
Begin VB.Image Image2
Height = 4100
Left = 0
Stretch = -1 'True
Top = 0
Width = 3200
End
End
Begin VB.PictureBox Picture1
Height = 4100
Left = 90
ScaleHeight = 4035
ScaleWidth = 3135
TabIndex = 2
Top = 270
Visible = 0 'False
Width = 3200
Begin VB.Image Image3
Height = 4100
Left = 0
Stretch = -1 'True
Top = 0
Width = 3200
End
End
Begin VB.PictureBox Picture2
Height = 4100
Left = 90
ScaleHeight = 4035
ScaleWidth = 3135
TabIndex = 5
Top = 270
Visible = 0 'False
Width = 3200
Begin VB.Image Image4
Height = 4100
Left = 0
Stretch = -1 'True
Top = 0
Width = 3200
End
End
End
Begin ResizeLibCtl.ReSize ReSize1
Left = 330
Top = 5370
_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 = 5000
Left = 100
TabIndex = 0
Top = 100
Width = 7300
_ExtentX = 12859
_ExtentY = 8811
_Version = 327682
BeginProperty Tabs {0713E432-850A-101B-AFC0-4210102A8DA7}
NumTabs = 4
BeginProperty Tab1 {0713F341-850A-101B-AFC0-4210102A8DA7}
Caption = " 普通双线 "
Key = "Group1"
Object.Tag = ""
ImageVarType = 2
EndProperty
BeginProperty Tab2 {0713F341-850A-101B-AFC0-4210102A8DA7}
Caption = "并联单枝节 "
Key = "Group2"
Object.Tag = ""
ImageVarType = 2
EndProperty
BeginProperty Tab3 {0713F341-850A-101B-AFC0-4210102A8DA7}
Caption = "串联单枝节 "
Key = "Group3"
Object.Tag = ""
ImageVarType = 2
EndProperty
BeginProperty Tab4 {0713F341-850A-101B-AFC0-4210102A8DA7}
Caption = "并联双枝节 "
Key = "Group4"
Object.Tag = ""
ImageVarType = 2
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Attribute VB_Name = "Form5"
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 Frame2.Visible = True Then
Text5.Text = "?"
Dim d, a, u, e, ZO As Double
d = Text1.Text
a = Text2.Text
u = Text3.Text
e = Text4.Text
If d <= 0 Or a <= 0 Or u <= 0 Or e <= 0 Or d <= a Then
MsgBox "输入参数无效！请重新输入！"
Else
ZO = Sqr(u / e) * 270 * (Log((d - a) / a)) / Log(10)
Text5.Text = Format(ZO, "##########.0000000000")
End If
End If
If Frame6.Visible = True Then
Text9.Text = "?"
Dim bz, u1, e1, zo1 As Double
zo1 = Text6.Text
u1 = Text7.Text
e1 = Text8.Text
If u1 <= 0 Or e1 <= 0 Or zo1 <= 0 Then
MsgBox "输入参数无效！请重新输入！"
Else
bz = 10 ^ (zo1 / 270)
Text9.Text = Format(bz, "##########.0000000000")
End If
End If
If Frame4.Visible = True Then
Text13.Text = "?"
Text14.Text = "?"
Text15.Text = "?"
Text16.Text = "?"
Dim rl, xl, zo2, la1, lb1, la2, lb2, rs, rs1, rs2, t1, t2, t As Double
zo2 = Text12.Text
If zo2 <= 0 Then
MsgBox "输入参数无效！请重新输入！"
Else
rl = Text10.Text / zo2
xl = Text11.Text / zo2
If rl = 1 Then
t = (-1) * xl / 2
rs = (-1) * ((xl⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -