📄 form2.frm

📁 计算短路电流--对称短路电流--不对称短路电流
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 12
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim f1 As Boolean
Dim f2 As Boolean
Dim f3 As Boolean
Dim max As Single
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()
Label5.Caption = "基准电压：10.5kV"
Label6.Caption = "正序电抗：X1=0.2249" + Chr(10) + Chr(13) + "负序电抗：X2=0.2248"
X1 = 0.2249
X2 = 0.2248
Isx = 1 / X1 * 100 / Sqr(3) / 10.5
i2 = 1 / (X1 + X2) * 100 / 1.732 / 10.5
ILx = 1.732 * i2
st2 = "三相短路电流值为："
st2 = st2 & Isx & "kA"
st2 = st2 + Chr(10) + Chr(13) + "两相短路电流值为："
st2 = st2 & ILx & "kA"
Label7.Caption = st2
Label8.Caption = "额定电压、额定电流满足要求"
If Isx >= ILx Then
  max = Isx
Else
  max = ILx
End If
If 2.69 * max <= 125 Then
  Label8.Caption = Label8.Caption + Chr(10) + Chr(13) + "动稳定校验合格"
  f1 = True
Else
  Label8.Caption = Label8.Caption + Chr(10) + Chr(13) + "动稳定校验不合格"
  f1 = False
End If
If max * max * 2.6 <= 40 * 40 * 4 Then
  Label8.Caption = Label8.Caption + Chr(10) + Chr(13) + "热稳定校验合格"
  f2 = True
Else
   Label8.Caption = Label8.Caption + Chr(10) + Chr(13) + "热稳定校验不合格"
   f2 = False
End If
If max <= 48 Then
    Label8.Caption = Label8.Caption + Chr(10) + Chr(13) + "开断条件校验合格"
    f3 = True
Else
    Label8.Caption = Label8.Caption + Chr(10) + Chr(13) + "开断条件校验不合格"
    f3 = False
End If
If f1 = True And f2 = True And f3 = True Then
   Label10.Visible = True
   Label10.Caption = "因此：K1点开关检验合格"
Else
   Label10.Caption = "因此：K1点开关校验不合格"
End If
End Sub


Private Sub Command2_Click()
Label5.Caption = "基准电压：10.5kV"
Label6.Caption = "电缆参数：" + Chr(10) + Chr(13) + Space(8) + "横截面积：300mm"
Xd = 0.066 * 20 / 1000 * 100 / 10.5 / 10.5
X1 = 0.2249 + Xd
X2 = 0.2248 + Xd
Isx = 1 / X1 * 100 / Sqr(3) / 10.5
i2 = 1 / (X1 + X2) * 100 / 1.732 / 10.5
ILx = 1.732 * i2
st2 = "三相短路电流值为："
st2 = st2 & Isx & "kA"
st2 = st2 + Chr(10) + Chr(13) + Space(8) + "两相短路电流值为："
st2 = st2 & ILx & "kA"
Label7.Caption = "电缆末端短路时：" + Chr(10) + Chr(13) + Space(8) + st2
If Isx >= ILx Then
  max = Isx
Else
  max = ILx
End If
If 2.55 * max <= 80 Then
  Label8.Caption = Chr(10) + Chr(13) + Space(8) + "额定电压、额定电流满足要求" + Chr(10) + Chr(13) + Space(8) + "动稳定校验合格"
  f1 = True
Else
  Label8.Caption = Label8.Caption + Chr(10) + Chr(13) + Space(8) + "动稳定校验不合格"
  f1 = False
End If
If max * max * 2.1 <= 40 * 40 * 2 Then
  Label8.Caption = Label8.Caption + Chr(10) + Chr(13) + Space(8) + "热稳定校验合格"
  f2 = True
Else
   Label8.Caption = Label8.Caption + Chr(10) + Chr(13) + Space(8) + "热稳定校验不合格"
   f2 = False
End If
If max <= 48 Then
    Label8.Caption = Label8.Caption + Chr(10) + Chr(13) + Space(8) + "开断条件校验合格"
    f3 = True
Else
    Label8.Caption = Label8.Caption + Chr(10) + Chr(13) + Space(8) + "开断条件校验不合格"
    f3 = False
End If
If f1 = True And f2 = True And f3 = True Then
   Label10.Visible = True
   Label10.Caption = "因此：K2点开关检验合格"
Else
   Label10.Caption = "因此：K2点开关校验不合格"
End If
End Sub

Private Sub Command3_Click()
Label5.Caption = "基准电压：3.15kV"
Label6.Caption = "电缆参数：" + Chr(10) + Chr(13) + Space(8) + "横截面积：300平方毫米" + Chr(10) + Chr(13) + Space(8) + "长度：590m"
Label6.Caption = Label6.Caption + Chr(10) + Chr(13) + Chr(10) + Chr(13) + "负载及电动机参数：" + Chr(10) + Chr(13) + Space(8) + "容量：1000kVA" + Chr(10) + Chr(13) + Space(8) + "额定电流：577.4A"
Xd = 0.066 * 590 / 1000 * 100 / 10.5 / 10.5
X1 = 0.2249 + Xd
X2 = 0.2248 + Xd
Isx = 1 / X1 * 100 / Sqr(3) / 10.5
i2 = 1 / (X1 + X2) * 100 / 1.732 / 10.5
ILx = 1.732 * i2
If Isx >= ILx Then
  max = Isx
Else
  max = ILx
End If
st2 = "三相短路电流值为："
st2 = st2 & Isx & "kA"
st2 = st2 + Chr(10) + Chr(13) + Space(8) + "两相短路电流值为："
st2 = st2 & ILx & "kA"
Label7.Caption = "电缆末端短路时：" + Chr(10) + Chr(13) + Space(8) + st2
Label8.Caption = "电缆末端短路时：" + Chr(10) + Chr(13) + Space(8) + "额定电压、额定电流满足要求"
If 2.69 * max <= 80 Then
  Label8.Caption = Label8.Caption + Chr(10) + Chr(13) + Space(8) + "动稳定校验合格"
  f1 = True
Else
  Label8.Caption = Label8.Caption + Chr(10) + Chr(13) + Space(8) + "动稳定校验不合格"
  f1 = False
End If
If max * max * 1.6 <= 40 * 40 * 4 Then
  Label8.Caption = Label8.Caption + Chr(10) + Chr(13) + Space(8) + "热稳定校验合格"
  f2 = True
Else
   Label8.Caption = Label8.Caption + Chr(10) + Chr(13) + Space(8) + "热稳定校验不合格"
   f2 = False
End If
If max <= 48 Then
    Label8.Caption = Label8.Caption + Chr(10) + Chr(13) + Space(8) + "开断条件校验合格"
    f3 = True
Else
    Label8.Caption = Label8.Caption + Chr(10) + Chr(13) + Space(8) + "开断条件校验不合格"
    f3 = False
End If
If f1 = True And f2 = True And f3 = True Then
   Label10.Visible = True
   Label10.Caption = "因此：K2点开关检验合格"
Else
   Label10.Caption = "因此：K2点开关校验不合格"
End If
xt = 7.98 / 100 * 100 / 10
X1 = X1 + xt
X2 = X2 + xt
Isx = 1 / X1 * 100 / Sqr(3) / 3.15
i2 = 1 / (X1 + X2) * 100 / 1.732 / 3.15
ILx = 1.732 * i2
If Isx >= ILx Then
  max = Isx
Else
  max = ILx
End If
st2 = "三相短路电流值为："
st2 = st2 & Isx & "kA"
st2 = st2 + Chr(10) + Chr(13) + Space(8) + "两相短路电流值为："
st2 = st2 & ILx & "kA"
Label7.Caption = Label7.Caption + Chr(10) + Chr(13) + "变压器低压侧短路时：" + Chr(10) + Chr(13) + Space(8) + st2
 Label8.Caption = Label8.Caption + Chr(10) + Chr(13) + "变压器低压侧短路时：" + Chr(10) + Chr(13) + Space(8) + "额定电压、额定电流满足要求"
If 2.55 * max <= 80 Then
  Label8.Caption = Label8.Caption + Chr(10) + Chr(13) + Space(8) + "动稳定校验合格"
  f1 = True
Else
  Label8.Caption = Label8.Caption + Chr(10) + Chr(13) + Space(8) + "动稳定校验不合格"
  f1 = False
End If
If max * max * 1.6 <= 31.5 * 31.5 * 2 Then
   Label8.Caption = Label8.Caption + Chr(10) + Chr(13) + Space(8) + "热稳定校验合格"
  f2 = True
Else
   Label8.Caption = Label8.Caption + Chr(10) + Chr(13) + Space(8) + "热稳定校验不合格"
   f2 = False
End If
If max <= 48 Then
    Label8.Caption = Label8.Caption + Chr(10) + Chr(13) + Space(8) + "开断条件校验合格"
    f3 = True
Else
    Label8.Caption = Label8.Caption + Chr(10) + Chr(13) + Space(8) + "开断条件校验不合格"
    f3 = False
End If
If f1 = True And f2 = True And f3 = True Then
   Label10.Caption = Label10.Caption + Chr(10) + Chr(13) + "       K3点开关检验合格"
Else
   Label10.Caption = Label10.Caption + Chr(10) + Chr(13) + "       K3点开关校验不合格"
End If
End Sub

Private Sub Command4_Click()
Label5.Caption = "基准电压：3.15kV"
Label6.Caption = "电缆参数：" + Chr(10) + Chr(13) + Space(8) + "横截面积：3－1×300mm" + Chr(10) + Chr(13) + Space(8) + "长度：20m"
Xd = 0.063 * 20 / 1000 * 100 / 3.15 / 3.15
X1 = 1.0582 + Xd
X2 = 1.0581 + Xd
Isx = 1 / X1 * 100 / Sqr(3) / 3.15
i2 = 1 / (X1 + X2) * 100 / 1.732 / 3.15
ILx = 1.732 * i2
If Isx >= ILx Then
  max = Isx
Else
  max = ILx
End If
st2 = "三相短路电流值为："
st2 = st2 & Isx & "kA"
st2 = st2 + Chr(10) + Chr(13) + "两相短路电流值为："
st2 = st2 & ILx & "kA"
Label7.Caption = st2
Label8.Caption = "额定电压、额定电流满足要求"
If 2.55 * max <= 80 Then
  Label8.Caption = Label8.Caption + Chr(10) + Chr(13) + "动稳定校验合格"
  f1 = True
Else
  Label8.Caption = Label8.Caption + Chr(10) + Chr(13) + "动稳定校验不合格"
  f1 = False
End If
If max * max * 1.1 <= 31.5 * 31.5 * 4 Then
  Label8.Caption = Label8.Caption + Chr(10) + Chr(13) + "热稳定校验合格"
  f2 = True
Else
   Label8.Caption = Label8.Caption + Chr(10) + Chr(13) + "热稳定校验不合格"
   f2 = False
End If
If max <= 48 Then
    Label8.Caption = Label8.Caption + Chr(10) + Chr(13) + "开断条件校验合格"
    f3 = True
Else
    Label8.Caption = Label8.Caption + Chr(10) + Chr(13) + "开断条件校验不合格"
    f3 = False
End If
If f1 = True And f2 = True And f3 = True Then
   Label10.Visible = True
   Label10.Caption = "因此，K4点开关检验合格"
Else
   Label10.Caption = "因此，K4点开关校验不合格"
End If
End Sub

Private Sub Command6_Click()
Form2.Hide
Form1.Show
End Sub
上一页 12
💿 文件大小 25 K
👤 上传用户 qw4104
📂 所属分类系统设计方案
🏷️ 相关标签

#短路电流 #对称 #计算
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -