form3.frm

计算短路电流--对称短路电流--不对称短路电流

VERSION 5.00
Begin VB.Form Form3 
   Caption         =   "3kV母线侧"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form3"
   ScaleHeight     =   11490
   ScaleWidth      =   19080
   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 <= 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 = "因此：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 <= 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 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 <= 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 Command6_Click()
Form3.Hide
Form1.Show
End Sub