?? form3.frm
字號:
VERSION 5.00
Begin VB.Form Form3
Caption = "3kV母線側"
ClientHeight = 3090
ClientLeft = 60
ClientTop = 450
ClientWidth = 4680
LinkTopic = "Form3"
ScaleHeight = 3090
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin VB.CommandButton Command6
Caption = "返回"
BeginProperty Font
Name = "幼圓"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1215
Left = 12360
TabIndex = 5
Top = 3840
Width = 2295
End
Begin VB.CommandButton Command4
Caption = "高壓工業水泵"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 1800
TabIndex = 3
Top = 5280
Width = 1935
End
Begin VB.CommandButton Command3
Caption = "消防泵"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 1800
TabIndex = 2
Top = 4320
Width = 1935
End
Begin VB.CommandButton Command2
Caption = "廠區冷水機組"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 1800
TabIndex = 1
Top = 3360
Width = 1935
End
Begin VB.CommandButton Command1
Caption = "3kV母線短路（K5)"
BeginProperty Font
Name = "宋體"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 1200
TabIndex = 0
Top = 840
Width = 2895
End
Begin VB.Label Label8
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 1020
Left = 11400
TabIndex = 12
Top = 8280
Visible = 0 'False
Width = 3810
End
Begin VB.Label Label7
Caption = "開關校驗"
BeginProperty Font
Name = "宋體"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 4800
TabIndex = 11
Top = 7200
Width = 1935
End
Begin VB.Label Label6
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1695
Left = 5880
TabIndex = 10
Top = 8160
Width = 5415
End
Begin VB.Label Label5
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1575
Left = 5880
TabIndex = 9
Top = 5280
Width = 6255
End
Begin VB.Label Label4
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2175
Left = 5880
TabIndex = 8
Top = 2640
Width = 6375
End
Begin VB.Label Label3
Caption = "基準電壓：3.15kV"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 9120
TabIndex = 7
Top = 1440
Width = 2175
End
Begin VB.Label Label2
Caption = "基準容量：100MVA"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 5280
TabIndex = 6
Top = 1440
Width = 2775
End
Begin VB.Label Label1
Caption = "3kV母線負荷側短路（K6)"
BeginProperty Font
Name = "宋體"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1200
TabIndex = 4
Top = 2520
Width = 3855
End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim st2 As String
Dim Xd As Single
Dim xt As Single
Dim X1 As Single
Dim X2 As Single
Dim Isx As Single
Dim i2 As Single
Dim ILx As Single
Private Sub Command1_Click()
Label4.Caption = "正序電抗X1=0.9141" + Chr(10) + Chr(13) + "負序電抗X2=0.9140"
X1 = 0.9141 + Xd
X2 = 0.914 + Xd
Isx = 1 / X1 * 100 / Sqr(3) / 3.15
i2 = 1 / (X1 + X2) * 100 / 1.732 / 3.15
ILx = 1.732 * i2
st2 = "三相短路電流值為："
st2 = st2 & Isx & "kA"
st2 = st2 + Chr(10) + Chr(13) + "兩相短路電流值為："
st2 = st2 & ILx & "kA"
Label5.Caption = st2
Label6.Caption = "額定電壓、額定電流滿足要求"
If Isx >= ILx Then
max = Isx
Else
max = ILx
End If
If 2.69 * max <= 80 Then
Label6.Caption = Label6.Caption + Chr(10) + Chr(13) + "動穩定校驗合格"
f1 = True
Else
Label6.Caption = Label6.Caption + Chr(10) + Chr(13) + "動穩定校驗不合格"
f1 = False
End If
If max * max * 1.6 <= 31.5 * 31.5 * 2 Then
Label6.Caption = Label6.Caption + Chr(10) + Chr(13) + "熱穩定校驗合格"
f2 = True
Else
Label6.Caption = Label6.Caption + Chr(10) + Chr(13) + "熱穩定校驗不合格"
f2 = False
End If
If max <= 49 Then
Label6.Caption = Label6.Caption + Chr(10) + Chr(13) + "開斷條件校驗合格"
f3 = True
Else
Label6.Caption = Label6.Caption + Chr(10) + Chr(13) + "開斷條件校驗不合格"
f3 = False
End If
If f1 = True And f2 = True And f3 = True Then
Label8.Visible = True
Label8.Caption = "因此：K5點開關檢驗合格"
Else
Label8.Caption = "因此：K5點開關校驗不合格"
End If
End Sub
Private Sub Command2_Click()
Label4.Caption = "電纜參數：" + Chr(10) + Chr(13) + Space(8) + "截面積：95mm" + Chr(10) + Chr(13) + Space(8) + "長度：300m "
Xd = 0.069 * 300 / 1000 * 100 / 3.15 / 3.15
X1 = 0.9141 + Xd
X2 = 0.914 + Xd
Isx = 1 / X1 * 100 / Sqr(3) / 3.15
i2 = 1 / (X1 + X2) * 100 / 1.732 / 3.15
ILx = 1.732 * i2
st2 = "三相短路電流值為："
st2 = st2 & Isx & "kA"
st2 = st2 + Chr(10) + Chr(13) + Space(8) + "兩相短路電流值為："
st2 = st2 & ILx & "kA"
Label5.Caption = "電纜末端短路時：" + Chr(10) + Chr(13) + Space(8) + st2
Label6.Caption = "額定電壓、額定電流滿足要求"
If Isx >= ILx Then
max = Isx
Else
max = ILx
End If
If 2.55 * max <= 80 Then
Label6.Caption = Label6.Caption + Chr(10) + Chr(13) + "動穩定校驗合格"
f1 = True
Else
Label6.Caption = Label6.Caption + Chr(10) + Chr(13) + "動穩定校驗不合格"
f1 = False
End If
If max * max * 1.1 <= 31.5 * 31.5 * 2 Then
Label6.Caption = Label6.Caption + Chr(10) + Chr(13) + "熱穩定校驗合格"
f2 = True
Else
Label6.Caption = Label6.Caption + Chr(10) + Chr(13) + "熱穩定校驗不合格"
f2 = False
End If
If max <= 48 Then
Label6.Caption = Label6.Caption + Chr(10) + Chr(13) + "開斷條件校驗合格"
f3 = True
Else
Label6.Caption = Label6.Caption + Chr(10) + Chr(13) + "開斷條件校驗不合格"
f3 = False
End If
If f1 = True And f2 = True And f3 = True Then
Label8.Visible = True
Label8.Caption = "因此：K6點開關檢驗合格"
Else
Label8.Caption = "因此：K6點開關校驗不合格"
End If
End Sub
Private Sub Command3_Click()
Label4.Caption = "電纜參數：" + Chr(10) + Chr(13) + Space(8) + "截面積：70mm" + Chr(10) + Chr(13) + Space(8) + "長度：270m "
Xd = 0.072 * 270 / 1000 * 100 / 3.15 / 3.15
X1 = 0.9141 + Xd
X2 = 0.914 + Xd
Isx = 1 / X1 * 100 / Sqr(3) / 3.15
i2 = 1 / (X1 + X2) * 100 / 1.732 / 3.15
ILx = 1.732 * i2
st2 = "三相短路電流值為："
st2 = st2 & Isx & "kA"
st2 = st2 + Chr(10) + Chr(13) + Space(8) + "兩相短路電流值為："
st2 = st2 & ILx & "kA"
Label5.Caption = "電纜末端短路時：" + Chr(10) + Chr(13) + Space(8) + st2
Label6.Caption = "額定電壓、額定電流滿足要求"
If Isx >= ILx Then
max = Isx
Else
max = ILx
End If
If 2.55 * max <= 80 Then
Label6.Caption = Label6.Caption + Chr(10) + Chr(13) + "動穩定校驗合格"
f1 = True
Else
Label6.Caption = Label6.Caption + Chr(10) + Chr(13) + "動穩定校驗不合格"
f1 = False
End If
If max * max * 1.1 <= 31.5 * 31.5 * 2 Then
Label6.Caption = Label6.Caption + Chr(10) + Chr(13) + "熱穩定校驗合格"
f2 = True
Else
Label6.Caption = Label6.Caption + Chr(10) + Chr(13) + "熱穩定校驗不合格"
f2 = False
End If
If max <= 48 Then
Label6.Caption = Label6.Caption + Chr(10) + Chr(13) + "開斷條件校驗合格"
f3 = True
Else
Label6.Caption = Label6.Caption + Chr(10) + Chr(13) + "開斷條件校驗不合格"
f3 = False
End If
If f1 = True And f2 = True And f3 = True Then
Label8.Visible = True
Label8.Caption = "因此：K6點開關檢驗合格"
Else
Label8.Caption = "因此：K6點開關校驗不合格"
End If
End Sub
Private Sub Command4_Click()
Label4.Caption = "電纜參數：" + Chr(10) + Chr(13) + Space(8) + "截面積：70平方毫米" + Chr(10) + Chr(13) + Space(8) + "長度：350m "
Xd = 0.072 * 350 / 1000 * 100 / 3.15 / 3.15
X1 = 0.9141 + Xd
X2 = 0.914 + Xd
Isx = 1 / X1 * 100 / Sqr(3) / 3.15
i2 = 1 / (X1 + X2) * 100 / 1.732 / 3.15
ILx = 1.732 * i2
st2 = "三相短路電流值為："
st2 = st2 & Isx & "kA"
st2 = st2 + Chr(10) + Chr(13) + Space(8) + "兩相短路電流值為："
st2 = st2 & ILx & "kA"
Label5.Caption = "電纜末端短路時：" + Chr(10) + Chr(13) + Space(8) + st2
If Isx >= ILx Then
max = Isx
Else
max = ILx
End If
Label6.Caption = "額定電壓、額定電流滿足要求"
If 2.55 * max <= 80 Then
Label6.Caption = Label6.Caption + Chr(10) + Chr(13) + "動穩定校驗合格"
f1 = True
Else
Label6.Caption = Label6.Caption + Chr(10) + Chr(13) + "動穩定校驗不合格"
f1 = False
End If
If max * max * 1.1 <= 31.5 * 31.5 * 2 Then
Label6.Caption = Label6.Caption + Chr(10) + Chr(13) + "熱穩定校驗合格"
f2 = True
Else
Label6.Caption = Label6.Caption + Chr(10) + Chr(13) + "熱穩定校驗不合格"
f2 = False
End If
If max <= 49 Then
Label6.Caption = Label6.Caption + Chr(10) + Chr(13) + "開斷條件校驗合格"
f3 = True
Else
Label6.Caption = Label6.Caption + Chr(10) + Chr(13) + "開斷條件校驗不合格"
f3 = False
End If
If f1 = True And f2 = True And f3 = True Then
Label8.Visible = True
Label8.Caption = "因此：K6點開關檢驗合格"
Else
Label8.Caption = "因此：K6點開關校驗不合格"
End If
End Sub
Private Sub Command6_Click()
Form3.Hide
Form1.Show
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -