huganqipanduan.txt

互感器计算的给定输入和计算判断

'    变量声明
'    默认设置
'         S一次电流默认设置y_Click()
'         S二次电流默认设置y_Click()
'         S准确级默认设置y_Click()
'         S额定负荷默认设置y_Click()
'         S仪表保安默认设置y_Click()
'         S短时热电流默认设置y_Click()
'         S动稳定电流默认设置y_Click()
'         S补偿匝数默认设置y_Click()
'         S漆包线直径默认设置y_Click()
'         S漆包线根数默认设置y_Click()
'         S圆铁心材质默认设置y_Click()
'         S圆铁心截面系数默认设置y_Click()
'         S圆铁心外形尺寸默认设置y_Click()
'         S方铁心材质默认设置y_Click()
'         S方铁心截面系数默认设置y_Click()
'         S方铁心外形尺寸默认设置y_Click()
'         S误差曲线默认设置y_Click()
'         S计算结果默认设置y_Click()
'         Private Sub W大窗体默认y_Click()
'         Private Sub W小窗体默认y_Click()
'         Private Sub M菜单默认y_Click()
'   输入检查
'     Private Sub R输入检查y_Click()
'   参数计算
'     Private Sub J误差计算y_Click()
'     Private Sub J误差计算表y_Click(j)
'     Private Sub G单变量循环(j)
'    结果判断
'     Private Function T比差结果判断y() As Boolean
'     Private Function T角差结果判断y() As Boolean
'     Private Function T仪表保安结果判断y() As Boolean
'    图像输出
'     Private Function Ms颜色(j) As Double
'     Private Function Ms与准级对应的最大下标(E准) As Double
'     Private Function Ms比角差X(i, j) As Double
'     Private Sub P画曲线_Click() 'xxxxxxxxxxxxx
'     Private Sub P图像擦除_Click()
'     Private Sub Ms画比角X轴(pic, i)
'     Private Sub Ms画比角X轴(pic, i)
'     Private Sub Ms画比Y轴(pic, i)
'     Private Sub Ms画角Y轴(pic, i)
'     Private Sub Ms画标准比差曲线(pic, i)
'     Private Sub Ms画标准角差曲线(pic, i)
'     Private Sub P画误差曲线y_Click()
'    文本输出
'     Private Sub T文显结果部分y_Click()
'     Private Sub T文显输入部分y_Click()
'     Private Sub T文显过程部分y_Click()
'     Private Sub T文显输出部分y_Click()
'    菜单命令
'     Private Sub 保存_Click()
'     Private Sub 退出_Click()
'     Private Sub S测量级_Click()
'     Private Sub S保护级_Click()
'     Private Sub S圆形铁心_Click()
'     Private Sub S方形铁心_Click()
'     Private Sub S输入清零_Click(Index As Integer)
'     Private Sub S输入默认_Click()
'     Private Sub S额定值默认设置_Click()
'     Private Sub S一次绕组默认设置_Click()
'     Private Sub S二次绕组默认设置_Click()
'     Private Sub S圆铁心默认设置_Click()
'     Private Sub S方铁心默认设置_Click()
'     Private Sub C计算_Click()
'     Private Sub G调整_Click()
'     Private Sub S登陆设置_Click()
'     Private Sub S铁心调整设置_Click()
'     Private Sub T文本擦除_Click()  '文本菜单
'     Private Sub T文本框缩小_Click()
'     Private Sub T文本框扩大_Click()
'     Private Sub T保留上次文本_Click()
'     Private Sub T不保留上次文本_Click()
'     Private Sub T显示结果文本_Click()
'     Private Sub T显示部分文本_Click()
'     Private Sub T显示全部文本_Click()
'     Private Sub T内容_Click()
'     Private Sub 关于互感器_Click()
'    键盘命令
'   窗体事件
'     Private Sub Form_Load()
'  控件事件
'     Private Sub VS1_Change(Index As Integer)    '一次绕组滚动条事件
'     Private Sub VS3_Change(Index As Integer)    '圆铁心滚动条事件
'     Private Sub VS4_Change(Index As Integer)    '方铁心滚动条事件

'Private E额定一次电流, E额定二次电流, E准确级, E额定负荷, E仪安准限系数, E短时热电流, E动稳定电流, _
'        E一次匝数, E一次截面积, _
'        E补偿匝数, E漆包线直径, E漆包线根数, _
'        E圆铁心截面系数, E圆铁心外径, E圆铁心内径, E圆铁心高, _
'        E方铁心截面系数, E方铁心长, E方铁心宽, E方铁心高, E方铁心叠厚, E方铁圆角半径, _
'        E比差(18), E角差度(18), E复差(18), S比差要求, S角差要求, E差(1, 18) _
'        As Double  '双精度浮点型 ,8字节, -4.94E-324E--1.797E+308
'Private S圆铁心材质, S方铁心材质 As String
'Private E二次匝数, E二次线总长, E二次线截面, EG2n, EAc, ELc, EGc, _
'        E百分点(18), EI2(18), E比差b, EX2, ER2(18), EZ2n(18), _
'        ER2n(18), EX2n(18), ER2e(18), EX2e(18), E阻抗角(18), EZ2e(18), _
'        EE2(18), EB(18), EIN0(18), EIN0Lc(18), E损耗角(18), ESin(18), _
'        ECos(18), E一次安匝(18), E比差a(18), E角差厘(18), E计算次数, _
'        E比差图(18), E角差图(18), E圆尺(8), E伏安励磁, E伏安电压, _
'        E铁励电流(18), E铁感电势(18), E铁控匝数, E铁励匝数 As Double




'----------<<<<<<<<<<    结果判断    --------------------
Private Function T比差结果判断y() As Boolean
     Dim j As Byte
     T比差结果判断y = True
     Select Case E准确级
         Case 0, 1           '对应 0.2S, 0.5s
             For j = 0 To 4
               If Abs(E差(0, j)) > Ms比差要求(E准确级, j) Or _
                  Abs(E差(0, j + 5)) > Ms比差要求(E准确级, j) Then
                  T比差结果判断y = False
                  Exit For
               End If
             Next j
         Case 2, 3, 4, 5     '对应 0.1, 0.2, 0.5, 1
             For j = 0 To 3
               If Abs(E差(0, j)) > Ms比差要求(E准确级, j) Or _
                  Abs(E差(0, j + 4)) > Ms比差要求(E准确级, j) Then
                  T比差结果判断y = False
                  Exit For
               End If
             Next j
         Case 6, 7            '对应 3, 5
             For j = 0 To 1
               If Abs(E差(0, j)) > Ms比差要求(E准确级, j) Or _
                  Abs(E差(0, j + 2)) > Ms比差要求(E准确级, j) Then
                  T比差结果判断y = False
                  Exit For
               End If
             Next j
         Case 8, 9            '对应 5P, 10P
             If Abs(E差(0, 0)) > Ms比差要求(E准确级, 0) Then
                  T比差结果判断y = False
             End If
     End Select
End Function