dlgobjectselection.frm

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

        Label1(3).Caption = "K2K21施加150A电流时交流电感值"
        Label1(4).Caption = "K2K22施加150A电流时交流电感值"
        Label1(5).Caption = "K2K23施加150A电流时交流电感值"
        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 = "17" Then
        dlgManualTest.Caption = "工频耐压试验"
        Label1(0).Caption = "K1K11K12K13对地及其它"
        Label1(1).Caption = "K2K21K22K23对地及其它"
        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 = "19" Then
        dlgManualTest.Caption = "直流电阻试验"
        Label1(0).Caption = "K31K32"
        Label1(1).Caption = "K41K42"
        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 = "20" Then
        dlgManualTest.Caption = "绝缘电阻试验"
        Label1(0).Caption = "K31K32对地及其它"
        Label1(1).Caption = "K41K42对地及其它"
        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 = "21" Then
        dlgManualTest.Caption = "交流电感试验"
        Label1(0).Caption = "K31K32交流75A电流时交流电感值"
        Label1(1).Caption = "K41K42交流75A电流时交流电感值"
        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 = "22" Then
        dlgManualTest.Caption = "工频耐压试验"
        Label1(0).Caption = "K31K32对地及其它"
        Label1(1).Caption = "K41K42对地及其它"
        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 = "24" Then
        dlgManualTest.Caption = "直流电阻试验"
        Label1(0).Caption = "L1L10绕组直流电阻"
        Label1(1).Caption = "L2L20绕组直流电阻"
        Label1(2).Caption = "L3L30绕组直流电阻"
        Label1(3).Caption = "L4L40绕组直流电阻"
        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 = "25" Then
        dlgManualTest.Caption = "绝缘电阻试验"
        Label1(0).Caption = "L1L10绕组对地及其它"
        Label1(1).Caption = "L2L20绕组对地及其它"
        Label1(2).Caption = "L3L30绕组对地及其它"
        Label1(3).Caption = "L4L40绕组对地及其它"
        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 = "26" Then
        dlgManualTest.Caption = "交流电感试验"
        Label1(0).Caption = "L1L10交流907A电流时交流电感值"
        Label1(1).Caption = "L2L20交流907A电流时交流电感值"
        Label1(2).Caption = "L3L30交流907A电流时交流电感值"
        Label1(3).Caption = "L4L40交流907A电流时交流电感值"
        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 = "29" Then
        dlgManualTest.Caption = "误差试验"
        Label1(0).Caption = "试验电流200A时"
        Label1(1).Caption = "试验电流400A时"
        Label1(2).Caption = "试验电流500A时"
        For i = 0 To 16
            Label1(i + 3).Visible = False
            Option1(i + 3).Visible = False
        Next i
        dlgObjectSelection.Width = 3019
        
    ElseIf ttrain = "500" And ttype = "31" Then
        dlgManualTest.Caption = "交流电感试验"
        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 = "32" Then
        dlgManualTest.Caption = "工频耐压试验"
        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
        
    End If
End Sub

Private Sub OKButton_Click()
    Dim i As Integer
    Dim x As Integer
    Dim strTemp As String
    For i = 0 To 19
        If Option1(i).Value = True Then
            tobj = str(i)
            strTemp = "你选择的是: " & Label1(i).Caption & "!  请注意连线!"
            x = MsgBox(strTemp, 0 + 0 + 48, "警告")
            If ttrain = "100" And ttype = "8" Then
                dlgSS3BTesttype.Text2.Text = strTemp + Chr(13) + Chr(10) + dlgSS3BTesttype.Text2.Text
                dlgSS3BTesttype.Label30(3).Caption = Label1(i).Caption
                Select Case i
                    Case 0
                        dlgSS3BTesttype.Label30(4).Caption = "施加电压5kV、频率50Hz，lmin无击穿及闪络现象"
                        If byqData(115) <> "" Then
                            dlgSS3BTesttype.Label30(5).Caption = byqData(115)
                            dlgSS3BTesttype.Label30(5).Enabled = False
                        End If
                    Case 1
                        dlgSS3BTesttype.Label30(4).Caption = "施加电压7kV、频率50Hz，lmin无击穿及闪络现象"
                        If byqData(116) <> "" Then
                            dlgSS3BTesttype.Label30(5).Caption = byqData(116)
                            dlgSS3BTesttype.Label30(5).Enabled = False
                        End If
                    Case 2
                        dlgSS3BTesttype.Label30(4).Caption = "施加电压7kV、频率50Hz，lmin无击穿及闪络现象"
                        If byqData(117) <> "" Then
                            dlgSS3BTesttype.Label30(5).Caption = byqData(117)
                            dlgSS3BTesttype.Label30(5).Enabled = False
                        End If
                    Case 3
                        dlgSS3BTesttype.Label30(4).Caption = "施加电压5kV、频率50Hz，lmin无击穿及闪络现象"
                        If byqData(118) <> "" Then
                            dlgSS3BTesttype.Label30(5).Caption = byqData(118)
                            dlgSS3BTesttype.Label30(5).Enabled = False
                        End If
                    Case Else
                End Select
                dlgSS3BTesttype.Frame30.Enabled = True
                dlgSS3BTesttype.Frame40.Enabled = False
                dlgSS3BTesttype.Frame50.Enabled = False
                dlgSS3BTesttype.Frame60.Enabled = False
                
            ElseIf ttrain = "100" And ttype = "6" Then
                dlgJYDZXSBTest.Text2.Text = strTemp + Chr(13) + Chr(10) + dlgJYDZXSBTest.Text2.Text
                
            ElseIf ttrain = "100" And ttype = "10" Then
                dlgSS3BTesttype.Label50(5).Caption = byqData(129)
                dlgSS3BTesttype.Label50(6).Caption = byqData(130)
                dlgSS3BTesttype.Label50(12).Caption = byqData(131)
                dlgSS3BTesttype.Label50(14).Caption = byqData(132)
                dlgSS3BTesttype.Label50(7).Caption = byqData(133)
                dlgSS3BTesttype.Label50(16).Caption = byqData(134)
                
                
            ElseIf ttrain = "100" And ttype = "13" Then
                Dim u As Integer
                For u = 17 To 28
                    dlgSS3BTesttype.Label60(u).Caption = ""
                Next
                dlgSS3BTesttype.Text2.Text = strTemp + Chr(13) + Chr(10) + dlgSS3BTesttype.Text2.Text
                dlgSS3BTesttype.Label60(17).Caption = Label1(i).Caption
                Select Case i
                    Case 0
                        dlgSS3BTesttype.Label60(18).Caption = "254"
                        dlgSS3BTesttype.Label60(20).Caption = "1485"
                        dlgSS3BTesttype.Label60(22).Caption = "14±10%"
                        dlgSS3BTesttype.Label60(25).Caption = "112+15%"
                    Case 1
                        dlgSS3BTesttype.Label60(18).Caption = "190.5"
                        dlgSS3BTesttype.Label60(20).Caption = "1485"
                    Case 2
                        dlgSS3BTesttype.Label60(18).Caption = "127"
                        dlgSS3BTesttype.Label60(20).Caption = "1485"
                    Case 3
                        dlgSS3BTesttype.Label60(18).Caption = "127"
                        dlgSS3BTesttype.Label60(20).Caption = "1485"
                    Case 4
                        dlgSS3BTesttype.Label60(20).Caption = "1485"
                    Case 5
                        dlgSS3BTesttype.Label60(20).Caption = "1485"
                    Case 6
                        dlgSS3BTesttype.Label60(20).Caption = "1485"
                    Case 7
                        dlgSS3BTesttype.Label60(20).Caption = "1485"
                    Case 8
                        dlgSS3BTesttype.Label60(20).Caption = "1485"
                    Case 9
                        dlgSS3BTesttype.Label60(20).Caption = "1485"
                    Case 10
                        dlgSS3BTesttype.Label60(18).Caption = "5.5"
                        dlgSS3BTesttype.Label60(20).Caption = "700"
                    Case 11
                        dlgSS3BTesttype.Label60(18).Caption = "12.8"
                        dlgSS3BTesttype.Label60(20).Caption = "805"
                    Case Else
                End Select
                dlgSS3BTesttype.Frame30.Enabled = False
                dlgSS3BTesttype.Frame40.Enabled = False
                dlgSS3BTesttype.Frame50.Enabled = False
                dlgSS3BTesttype.Frame60.Enabled = True
            
            ElseIf ttrain = "100" And ttype = "15" Then
                dlgSS3BTesttype.Text2.Text = strTemp + Chr(13) + Chr(10) + dlgSS3BTesttype.Text2.Text
                dlgSS3BTesttype.Label30(3).Caption = Label1(i).Caption
                Select Case tobj
                    Case " 0"
                        dlgSS3BTesttype.Label30(4) = "互感器电流误差f1在±10%范围内"
                    Case " 1"
                        dlgSS3BTesttype.Label30(4) = "互感器电流误差f1在±10%范围内"
                    Case " 2"
                        dlgSS3BTesttype.Label30(4) = "互感器电流误差f1在±10%范围内"
                    Case Else
                End Select
            
            ElseIf ttrain = "100" And ttype = "18" Then
                dlgSS3BTesttype.Text2.Text = strTemp + Chr(13) + Chr(10) + dlgSS3BTesttype.Text2.Text
                dlgSS3BTesttype.Label30(3).Caption = Label1(i).Caption
                Select Case i
                    Case 0
                        dlgSS3BTesttype.Label30(4).Caption = "施加电压75kV、频率50Hz，lmin无击穿及闪络现象"
                        If byqData(115) <> "" Then
                            dlgSS3BTesttype.Label30(5).Caption = byqData(115)
                            dlgSS3BTesttype.Label30(5).Enabled = False
                        End If
                    Case 1
                        dlgSS3BTesttype.Label30(4).Caption = "施加电压2kV、频率50Hz，lmin无击穿及闪络现象"
                        If byqData(116) <> "" Then
                            dlgSS3BTesttype.Label30(5).Caption = byqData(116)
                            dlgSS3BTesttype.Label30(5).Enabled = False
                        End If
                    Case Else
                End Select
                dlgSS3BTesttype.Frame30.Enabled = True
                dlgSS3BTesttype.Frame40.Enabled = False
                dlgSS3BTesttype.Frame50.Enabled = False
                dlgSS3BTesttype.Frame60.Enabled = False
                
            ElseIf ttrain = "200" And ttype = "6" Then
                dlgJYDZXSBTest.Label16.Caption = Label1(i).Caption
                If tobj = " 0" Then
                    dlgJYDZXSBTest.Label5.Caption = "≥1000MΩ"
                ElseIf tobj = " 4" Or tobj = " 5" Then
                    dlgJYDZXSBTest.Label5.Caption = "≥200MΩ"
                Else
                    dlgJYDZXSBTest.Label5.Caption = "≥500MΩ"
                End If
                
            ElseIf ttrain = "200" And ttype = "8" Then
                dlgSS4GTesttype.Text6.Text = strTemp + Chr(13) + Chr(10) + dlgSS4GTesttype.Text6.Text
                dlgSS4GTesttype.Label30(3).Caption = Label1(i).Caption
                Select Case i
                    Case 0
                        dlgSS4GTesttype.Label30(4).Caption = "施加电压5kV、频率50Hz，lmin无击穿及闪络现象"
                        dlgSS4GTesttype.Label30(5).Caption = ""
                   '     dlgSS4GTesttype.Label30(5).Enabled = True
                        If byqData(115) <> "" Then
                            dlgSS4GTesttype.Label30(5).Caption = byqData(115)
                            dlgSS4GTesttype.Label30(5).Enabled = False
                        End If
                    Case 1
                        dlgSS4GTesttype.Label30(4).Caption = "施加电压5.2kV、频率50Hz，lmin无击穿及闪络现象"
                        dlgSS4GTesttype.Label30(5).Caption = ""
                   '     dlgSS4GTesttype.Label30(5).Enabled = True
                        If byqData(116) <> "" Then
                            dlgSS4GTesttype.Label30(5).Caption = byqData(116)
                            dlgSS4GTesttype.Label30(5).Enabled = False
                        End If
                    Case 2
                        dlgSS4GTesttype.Label30(4).Caption = "施加电压5.2kV、频率50Hz，lmin无击穿及闪络现象"
                        dlgSS4GTesttype.Label30(5).Caption = ""
                   '     dlgSS4GTesttype.Label30(5).Enabled = True
                        If byqData(117) <> "" Then
                            dlgSS4GTesttype.Label30(5).Caption = byqData(117)
                            dlgSS4GTesttype.Label30(5).Enabled = False