dlgobjectselection.frm

电力机车牵引变压器试验站总控程序

            Option1(i + 3).Visible = False
        Next i
        dlgObjectSelection.Width = 3019
        
    ElseIf ttrain = "100" And ttype = "17" Then
        Label1(0).Caption = "初极线圈对次级线圈及地绝缘电阻"
        Label1(1).Caption = "次极线圈对地绝缘电阻"
        For i = 0 To 17
            Label1(i + 2).Visible = False
            Option1(i + 2).Visible = False
        Next i
        dlgObjectSelection.Width = 3019
        
    ElseIf ttrain = "100" And ttype = "18" Then
        Label1(0).Caption = "初极线圈对次级线圈"
        Label1(1).Caption = "次极线圈对地"
        For i = 0 To 17
            Label1(i + 2).Visible = False
            Option1(i + 2).Visible = False
        Next i
        dlgObjectSelection.Width = 3019
        
    ElseIf ttrain = "100" And ttype = "21" Then
        Label1(0).Caption = "线圈对地"
        Label1(1).Caption = "上下夹件、铁轭螺杆对地"
        For i = 0 To 17
            Label1(i + 2).Visible = False
            Option1(i + 2).Visible = False
        Next i
        dlgObjectSelection.Width = 3019
        
    ElseIf ttrain = "200" And ttype = "3" Then
        dlgManualTest.Caption = "电压比试验"
        Label1(0).Caption = "AX/a1x1"
        Label1(1).Caption = "AX/a2x2"
        Label1(2).Caption = "AX/a3x3"
        Label1(3).Caption = "AX/a4x4"
        Label1(4).Caption = "AX/a5x5"
        Label1(5).Caption = "AX/a6x6"
        Label1(6).Caption = "AX/b6x6"
        Label1(7).Caption = "AX/a1b1"
        Label1(8).Caption = "AX/a3b3"
        For i = 0 To 10
            Label1(i + 9).Visible = False
            Option1(i + 9).Visible = False
        Next i
        dlgObjectSelection.Width = 6038
        
    ElseIf ttrain = "200" And ttype = "5" Then
        dlgManualTest.Caption = "直流电阻试验"
        Label1(0).Caption = "AX之间直流电阻"
        Label1(1).Caption = "a1x1之间直流电阻"
        Label1(2).Caption = "a2x2之间直流电阻"
        Label1(3).Caption = "a3x3之间直流电阻"
        Label1(4).Caption = "a4x4之间直流电阻"
        Label1(5).Caption = "a5x5之间直流电阻"
        Label1(6).Caption = "a6x6之间直流电阻"
        Label1(7).Caption = "a1b1之间直流电阻"
        Label1(8).Caption = "a3b3之间直流电阻"
        For i = 0 To 10
            Label1(i + 9).Visible = False
            Option1(i + 9).Visible = False
        Next i
        dlgObjectSelection.Width = 6038
        
    ElseIf ttrain = "200" And ttype = "6" Then
        dlgManualTest.Caption = "绝缘电阻试验"
        Label1(0).Caption = "AX对地及其它"
        Label1(1).Caption = "(a1x1+a2x2)+(a3x3+a4x4)对地及其它"
        Label1(2).Caption = "(a1x1+a2x2)对(a3x3+a4x4),a5x5对地及其它"
        Label1(3).Caption = "(a3x3+a4x4)对(a1x1+a2x2),a5x5对地及其它"
        Label1(4).Caption = "a5x5对地及其它"
        Label1(5).Caption = "a6x6对地及其它"
        For i = 0 To 13
            Label1(i + 6).Visible = False
            Option1(i + 6).Visible = False
        Next i
        dlgObjectSelection.Width = 6038
        
    ElseIf ttrain = "200" And ttype = "10" Then
        Label1(0).Caption = "耐压前"
        Label1(1).Caption = "耐压后"
        For i = 0 To 17
            Label1(i + 2).Visible = False
            Option1(i + 2).Visible = False
        Next i
        dlgObjectSelection.Width = 3019
        
    ElseIf ttrain = "200" And ttype = "13" Then
        Label1(0).Caption = "x1-a2, a1-X2, x3-a4, a3-x4"
        Label1(1).Caption = "b1-a2, a1-X2, b3-a4, a3-x4"
        Label1(2).Caption = "x2-a2, x4-a4"
        Label1(3).Caption = "x1-a1, a2-X2"
        Label1(4).Caption = "a3-x3, a4-x4"
        Label1(5).Caption = "a3-x3"
        Label1(6).Caption = "a4-x4"
        Label1(7).Caption = "a2-x2"
        Label1(8).Caption = "a1-x1"
        Label1(9).Caption = "x1-a2, a1-X2, a3-x3"
        Label1(10).Caption = "x1-a2, a1-X2, a4-x4"
        Label1(11).Caption = "a1-b1"
        Label1(12).Caption = "a3-b3"
        Label1(13).Caption = "a5-x5"
        Label1(14).Caption = "a6-x6"
        For i = 0 To 4
            Label1(i + 15).Visible = False
            Option1(i + 15).Visible = False
        Next i
        dlgObjectSelection.Width = 9057
    
    ElseIf ttrain = "200" And ttype = "15" Then
        dlgManualTest.Caption = "直流电阻试验"
        Label1(0).Caption = "绕组C1Y1"
        Label1(1).Caption = "绕组C2Y2"
        Label1(2).Caption = "绕组C3Y3"
        Label1(3).Caption = "绕组C4Y4"
        For i = 0 To 15
            Label1(i + 4).Visible = False
            Option1(i + 4).Visible = False
        Next i
        dlgObjectSelection.Width = 3019
        
    ElseIf ttrain = "200" And ttype = "17" Then
        dlgManualTest.Caption = "外施工频耐压试验"
        Label1(0).Caption = "C1Y1对地及其它"
        Label1(1).Caption = "C2Y2对地及其它"
        Label1(2).Caption = "C3Y3对地及其它"
        Label1(3).Caption = "C4Y4对地及其它"
        For i = 0 To 15
            Label1(i + 4).Visible = False
            Option1(i + 4).Visible = False
        Next i
        dlgObjectSelection.Width = 3019
    
    ElseIf ttrain = "200" And ttype = "18" Then
        dlgManualTest.Caption = "交流电感值测量"
        Label1(0).Caption = "C1Y1在180A时的电感值"
        Label1(1).Caption = "C2Y2在180A时的电感值"
        Label1(2).Caption = "C3Y3在180A时的电感值"
        Label1(3).Caption = "C4Y4在180A时的电感值"
        For i = 0 To 15
            Label1(i + 4).Visible = False
            Option1(i + 4).Visible = False
        Next i
        dlgObjectSelection.Width = 3019
        
    ElseIf ttrain = "200" And ttype = "21" Then
        dlgManualTest.Caption = "直流电阻试验"
        Label1(0).Caption = "D1Z1"
        Label1(1).Caption = "D2Z2"
        Label1(2).Caption = "D3Z3"
        Label1(3).Caption = "D4Z4"
        For i = 0 To 15
            Label1(i + 4).Visible = False
            Option1(i + 4).Visible = False
        Next i
        dlgObjectSelection.Width = 3019
        
    ElseIf ttrain = "200" And ttype = "22" Then
        dlgManualTest.Caption = "绝缘电阻试验"
        Label1(0).Caption = "D1Z1对地及其它"
        Label1(1).Caption = "D2Z2对地及其它"
        Label1(2).Caption = "D3Z3对地及其它"
        Label1(3).Caption = "D4Z4对地及其它"
        For i = 0 To 15
            Label1(i + 4).Visible = False
            Option1(i + 4).Visible = False
        Next i
        dlgObjectSelection.Width = 3019
        
    ElseIf ttrain = "200" And ttype = "23" Then
        dlgManualTest.Caption = "外施工频耐压试验"
        Label1(0).Caption = "C1Y1对地及其它"
        Label1(1).Caption = "C2Y2对地及其它"
        Label1(2).Caption = "C3Y3对地及其它"
        Label1(3).Caption = "C4Y4对地及其它"
        For i = 0 To 15
            Label1(i + 4).Visible = False
            Option1(i + 4).Visible = False
        Next i
        dlgObjectSelection.Width = 3019
        
    ElseIf ttrain = "200" And ttype = "24" Then
        dlgManualTest.Caption = "外施工频耐压试验"
        Label1(0).Caption = "D1Z1在501.8A和1003.6A时的交流电感值"
        Label1(1).Caption = "D2Z2在501.8A和1003.6A时的交流电感值"
        Label1(2).Caption = "D3Z3在501.8A和1003.6A时的交流电感值"
        Label1(3).Caption = "D4Z4在501.8A和1003.6A时的交流电感值"
        For i = 0 To 15
            Label1(i + 4).Visible = False
            Option1(i + 4).Visible = False
        Next i
        dlgObjectSelection.Width = 3019
        
    ElseIf ttrain = "500" And ttype = "3" Then
        dlgManualTest.Caption = "电压比试验"
        Label1(0).Caption = "AX/a1x1"
        Label1(1).Caption = "AX/a2x2"
        Label1(2).Caption = "AX/a3x3"
        Label1(3).Caption = "AX/a4x4"
        Label1(4).Caption = "AX/a5x5"
        Label1(5).Caption = "AX/a6x6"
        Label1(6).Caption = "AX/a7x7"
        Label1(7).Caption = "AX/b7x7"
        Label1(8).Caption = "AX/a8x8"
        Label1(9).Caption = "AX/a9x9"
        For i = 0 To 9
            Label1(i + 10).Visible = False
            Option1(i + 10).Visible = False
        Next i
        dlgObjectSelection.Width = 6038
    
    ElseIf ttrain = "500" And ttype = "5" Then
        dlgManualTest.Caption = "直流电阻试验"
        Label1(0).Caption = "AX之间直流电阻"
        Label1(1).Caption = "a1x1之间直流电阻"
        Label1(2).Caption = "a2x2之间直流电阻"
        Label1(3).Caption = "a3x3之间直流电阻"
        Label1(4).Caption = "a4x4之间直流电阻"
        Label1(5).Caption = "a5x5之间直流电阻"
        Label1(6).Caption = "a6x6之间直流电阻"
        Label1(7).Caption = "a7x7之间直流电阻"
        Label1(8).Caption = "a8x8之间直流电阻"
        Label1(9).Caption = "a9x9之间直流电阻"
        For i = 0 To 9
            Label1(i + 10).Visible = False
            Option1(i + 10).Visible = False
        Next i
        dlgObjectSelection.Width = 6038
    
    ElseIf ttrain = "500" And ttype = "6" Then
        dlgManualTest.Caption = "绝缘电阻试验"
        Label1(0).Caption = "AX对地及其它"
        Label1(1).Caption = "a1x1对地及其它"
        Label1(2).Caption = "a2x2对地及其它"
        Label1(3).Caption = "a3x3对地及其它"
        Label1(4).Caption = "a4x4对地及其它"
        Label1(5).Caption = "a5x5对地及其它"
        Label1(6).Caption = "a6x6对地及其它"
        Label1(7).Caption = "a7x7对地及其它"
        Label1(8).Caption = "a8x8对地及其它"
        Label1(9).Caption = "a9x9对地及其它"
        For i = 0 To 9
            Label1(i + 10).Visible = False
            Option1(i + 10).Visible = False
        Next i
        dlgObjectSelection.Width = 6038
    
    ElseIf ttrain = "500" And ttype = "9" Then
        Label1(0).Caption = "在a1x3绕组间输入200Hz，2973V电压"
        For i = 0 To 18
            Label1(i + 1).Visible = False
            Option1(i + 1).Visible = False
        Next i
        dlgObjectSelection.Width = 3019
        
    
    ElseIf ttrain = "500" And ttype = "10" Then
        Label1(0).Caption = "耐压前"
        Label1(1).Caption = "耐压后"
        For i = 0 To 17
            Label1(i + 2).Visible = False
            Option1(i + 2).Visible = False
        Next i
        dlgObjectSelection.Width = 3019
        
    ElseIf ttrain = "500" And ttype = "13" Then
        Label1(0).Caption = "a1-x1"
        Label1(1).Caption = "a2-x2"
        Label1(2).Caption = "a3-x3"
        Label1(3).Caption = "a4-x4"
        Label1(4).Caption = "a1-x1, a3-x3"
        Label1(5).Caption = "a2-x2, a4-x4"
        Label1(6).Caption = "a1-x1, a2-X2, a3-x3, a4-x4"
        Label1(7).Caption = "a8-x8"
        Label1(8).Caption = "a9-x9"
        Label1(9).Caption = "a8-x8, a9-x9"
        Label1(10).Caption = "a5-x5"
        Label1(11).Caption = "a6-x6"
        Label1(12).Caption = "a7-x7"
        For i = 0 To 6
            Label1(i + 13).Visible = False
            Option1(i + 13).Visible = False
        Next i
        dlgObjectSelection.Width = 9057
    
    ElseIf ttrain = "500" And ttype = "15" Then
        dlgManualTest.Caption = "直流电阻试验"
        Label1(0).Caption = "K1K11"
        Label1(1).Caption = "K1K12"
        Label1(2).Caption = "K1K13"
        Label1(3).Caption = "K2K21"
        Label1(4).Caption = "K2K22"
        Label1(5).Caption = "K2K23"
        For i = 0 To 13
            Label1(i + 6).Visible = False
            Option1(i + 6).Visible = False
        Next i
        dlgObjectSelection.Width = 6038
        
    ElseIf ttrain = "500" And ttype = "16" Then
        dlgManualTest.Caption = "交流电感试验"
        Label1(0).Caption = "K1K11施加150A电流时交流电感值"
        Label1(1).Caption = "K1K12施加150A电流时交流电感值"
        Label1(2).Caption = "K1K13施加150A电流时交流电感值"