📄 form5.frm
字号:
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = -70560
TabIndex = 54
Top = 6360
Width = 1095
End
Begin VB.Label Label34
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = -72600
TabIndex = 53
Top = 5400
Width = 855
End
Begin VB.Label Label33
Caption = "Ires"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = -66480
TabIndex = 52
Top = 6360
Width = 735
End
Begin VB.Label Label32
Caption = "Iop"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = -72360
TabIndex = 51
Top = 1680
Width = 615
End
Begin VB.Line Line8
X1 = -66720
X2 = -69960
Y1 = 3840
Y2 = 5640
End
Begin VB.Line Line7
X1 = -71640
X2 = -69960
Y1 = 5640
Y2 = 5640
End
Begin VB.Line Line6
X1 = -66240
X2 = -66000
Y1 = 6240
Y2 = 6120
End
Begin VB.Line Line5
X1 = -66240
X2 = -66000
Y1 = 6000
Y2 = 6120
End
Begin VB.Line Line4
X1 = -72120
X2 = -66000
Y1 = 6120
Y2 = 6120
End
Begin VB.Line Line3
X1 = -71520
X2 = -71640
Y1 = 2040
Y2 = 1800
End
Begin VB.Line Line2
X1 = -71760
X2 = -71640
Y1 = 2040
Y2 = 1800
End
Begin VB.Line Line1
X1 = -71640
X2 = -71640
Y1 = 1800
Y2 = 6720
End
Begin VB.Label Label19
Caption = "发电机的带比率制动特性的纵联差动保护是发电机的主保护之一，其整定步骤如下："
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 11
Top = 720
Width = 11775
End
Begin VB.Label Label20
Caption = "1、先算Iop.0"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 960
TabIndex = 10
Top = 1200
Width = 1935
End
Begin VB.Label Label21
Caption = "Iop.0 = (Kap*Kcc*Ker*Ign+2.5*Ie)/nTA"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 960
TabIndex = 9
Top = 1560
Width = 4455
End
Begin VB.Label Label22
Caption = "2、再算制动特性拐点Ires.0"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 960
TabIndex = 8
Top = 2520
Width = 3735
End
Begin VB.Label Label23
Caption = "Ires.0 = Ign/nTA"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 960
TabIndex = 7
Top = 3000
Width = 2055
End
Begin VB.Label Label24
Caption = "3、最后确定制动特性的斜率S"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 960
TabIndex = 6
Top = 3840
Width = 3855
End
Begin VB.Label Label25
Caption = "S="
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 960
TabIndex = 5
Top = 4560
Width = 375
End
Begin VB.Line Line9
X1 = 1560
X2 = 6600
Y1 = 4680
Y2 = 4680
End
Begin VB.Label Label26
Caption = "Krel*Kap*Kcc*Ker(Ik[3]max+Ie)/nTA-Iop.0"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1680
TabIndex = 4
Top = 4320
Width = 4815
End
Begin VB.Label Label27
Caption = "Ik[3]max/nTA-Ires.0"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2760
TabIndex = 3
Top = 4920
Width = 2415
End
Begin VB.Label Label28
Caption = "其中："
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 840
TabIndex = 2
Top = 6120
Width = 855
End
Begin VB.Label Label29
Caption = "各系数均按《导则》中要求选取，Ik[3]max取发电机出口处三相同时短路电流"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 840
TabIndex = 1
Top = 6720
Width = 9855
End
End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Text1.Text = 6305
Text2.Text = 1.138
Text3.Text = 0.23
Text4.Text = 0.28
Text5.Text = 0.85
Text6.Text = 90
Text7.Text = 1600
End Sub
Private Sub Command2_Click()
ig = Text1.Text
e = Text2.Text
xd = Text3.Text
ie = Text6.Text
n = Text7.Text
Text8.Text = e / xd * ig / n
Text9.Text = 2 * 0.5 * 0.1 * ig / n + 2.5 * ie / n
Text10.Text = ig / n
Text11.Text = (1.5 * 2 * 0.5 * 0.1 * (e / xd * ig + 2.5 * ie) / n - 2 * 0.5 * 0.1 * ig / n + 2.5 * ie / n) / (e / xd * ig / n - ig / n)
End Sub
Private Sub Command3_Click()
ig = Text1.Text
e = Text2.Text
X1 = Text3.Text
X2 = Text4.Text
n = Text7.Text
iop = Text9.Text
s = Text11.Text
ires = Text10.Text
X = X1 * 1 + X2 * 1
Text12.Text = 1.732 * e / X * ig / n
i2 = Text12.Text
Text13.Text = i2 / (iop + s * (i2 - ires))
If Text13.Text > 2 Then Label31.Caption = "Ksen>2满足要求"
If Text13.Text < 2 Then Label31.Caption = "Ksen<2不满足要求"
End Sub
Private Sub SSTab1_DblClick()
Label34.Caption = Text9.Text
Label35.Caption = Text10.Text
Label36.Caption = "斜率S="
Label37.Caption = Text11.Text
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -