module1.bas

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

    savewordIndexandLength(0, 0) = 5
    savewordIndexandLength(0, 1) = 10
    
    savewordIndexandLength(1, 0) = 15
    savewordIndexandLength(1, 1) = 1
    
    savewordIndexandLength(2, 0) = 40
    savewordIndexandLength(2, 1) = 5
    
    savewordIndexandLength(3, 0) = 16
    savewordIndexandLength(3, 1) = 20
    
    savewordIndexandLength(4, 0) = 45
    savewordIndexandLength(4, 1) = 31
    
    savewordIndexandLength(5, 0) = 76
    savewordIndexandLength(5, 1) = 31
    
    savewordIndexandLength(6, 0) = 107
    savewordIndexandLength(6, 1) = 8
    
    savewordIndexandLength(7, 0) = 115
    savewordIndexandLength(7, 1) = 6
    
    savewordIndexandLength(8, 0) = 122
    savewordIndexandLength(8, 1) = 7
    
    savewordIndexandLength(9, 0) = 129
    savewordIndexandLength(9, 1) = 6
    
    savewordIndexandLength(10, 0) = 135
    savewordIndexandLength(10, 1) = 10
    
    savewordIndexandLength(11, 0) = 145
    savewordIndexandLength(11, 1) = 8
    
    savewordIndexandLength(12, 0) = 168
    savewordIndexandLength(12, 1) = 106
    
    savewordIndexandLength(13, 0) = 2
    savewordIndexandLength(13, 1) = 3
    
    For Index = 14 To 18
        savewordIndexandLength(Index, 2) = 1
    Next Index
    
    savewordIndexandLength(14, 0) = 5
    savewordIndexandLength(14, 1) = 1
    
    savewordIndexandLength(15, 0) = 6
    savewordIndexandLength(15, 1) = 3
    
    savewordIndexandLength(16, 0) = 9
    savewordIndexandLength(16, 1) = 1

    savewordIndexandLength(17, 0) = 10
    savewordIndexandLength(17, 1) = 4
    
    savewordIndexandLength(18, 0) = 14
    savewordIndexandLength(18, 1) = 2
    
    For Index = 19 To 22
        savewordIndexandLength(Index, 2) = 2
    Next Index
    
    
    savewordIndexandLength(19, 0) = 5
    savewordIndexandLength(19, 1) = 2
    
    savewordIndexandLength(20, 0) = 11
    savewordIndexandLength(20, 1) = 19

    savewordIndexandLength(21, 0) = 43
    savewordIndexandLength(21, 1) = 12
    
    savewordIndexandLength(22, 0) = 39
    savewordIndexandLength(22, 1) = 2

    For Index = 23 To 27
        savewordIndexandLength(Index, 2) = 4
    Next Index
    
    savewordIndexandLength(23, 0) = 11
    savewordIndexandLength(23, 1) = 13
    
    savewordIndexandLength(24, 0) = 31
    savewordIndexandLength(24, 1) = 8

    savewordIndexandLength(25, 0) = 43
    savewordIndexandLength(25, 1) = 16
    
    savewordIndexandLength(26, 0) = 39
    savewordIndexandLength(26, 1) = 1
    
    Call saveWord
End Sub

Sub saveSS7DWord()
    Dim Index As Integer
    For Index = 225 To 237
        If byqData(Index) = "未完成" Then
            byqData(238) = "未完成"
            Exit For
        Else
            byqData(238) = "完成"
        End If
    Next Index
    
    For Index = 65 To 70
        If dkqData(Index) = "未完成" Then
            dkqData(70) = "未完成"
            dkqData(206) = "未完成"
            Exit For
        Else
            dkqData(70) = "完成"
        End If
    Next Index
    
    For Index = 132 To 137
    If dkqData(Index) = "未完成" Then
        dkqData(138) = "未完成"
        dkqData(206) = "未完成"
        Exit For
    Else
        dkqData(138) = "完成"
    End If
    Next Index
    
    For Index = 199 To 204
    If dkqData(Index) = "未完成" Then
        dkqData(205) = "未完成"
        dkqData(206) = "未完成"
        Exit For
    Else
        dkqData(205) = "完成"
    End If
    Next Index
    
    If dkqData(70) = "完成" And dkqData(138) = "完成" And dkqData(205) = "完成" Then
        dkqData(206) = "完成"
    End If
    
    For Index = 16 To 20
        If hgqData(Index) = "未完成" Then
            hgqData(21) = "未完成"
            Exit For
        Else
            hgqData(21) = "完成"
        End If
    Next Index
    
    For Index = 0 To 39
        savewordIndexandLength(Index, 0) = 999
    Next Index
    
    For Index = 0 To 13
        savewordIndexandLength(Index, 2) = 0
    Next Index
    
    savewordIndexandLength(0, 0) = 5
    savewordIndexandLength(0, 1) = 3
    
    savewordIndexandLength(1, 0) = 15
    savewordIndexandLength(1, 1) = 1
    
    savewordIndexandLength(2, 0) = 40
    savewordIndexandLength(2, 1) = 2
    
    savewordIndexandLength(3, 0) = 16
    savewordIndexandLength(3, 1) = 24
    
    savewordIndexandLength(4, 0) = 45
    savewordIndexandLength(4, 1) = 31
    
    savewordIndexandLength(5, 0) = 76
    savewordIndexandLength(5, 1) = 31
    
    savewordIndexandLength(6, 0) = 107
    savewordIndexandLength(6, 1) = 8
    
    savewordIndexandLength(7, 0) = 115
    savewordIndexandLength(7, 1) = 6
    
    savewordIndexandLength(8, 0) = 122
    savewordIndexandLength(8, 1) = 7
    
    savewordIndexandLength(9, 0) = 129
    savewordIndexandLength(9, 1) = 6
    
    savewordIndexandLength(10, 0) = 135
    savewordIndexandLength(10, 1) = 10
    
    savewordIndexandLength(11, 0) = 145
    savewordIndexandLength(11, 1) = 8
    
    savewordIndexandLength(12, 0) = 168
    savewordIndexandLength(12, 1) = 106
    
    savewordIndexandLength(13, 0) = 2
    savewordIndexandLength(13, 1) = 3
    
    For Index = 14 To 18
        savewordIndexandLength(Index, 2) = 1
    Next Index
    
    savewordIndexandLength(14, 0) = 5
    savewordIndexandLength(14, 1) = 1
    
    savewordIndexandLength(15, 0) = 6
    savewordIndexandLength(15, 1) = 3
    
    savewordIndexandLength(16, 0) = 9
    savewordIndexandLength(16, 1) = 1

    savewordIndexandLength(17, 0) = 10
    savewordIndexandLength(17, 1) = 4
    
    savewordIndexandLength(18, 0) = 14
    savewordIndexandLength(18, 1) = 2
    
    For Index = 19 To 22
        savewordIndexandLength(Index, 2) = 2
    Next Index
    
    
    savewordIndexandLength(19, 0) = 5
    savewordIndexandLength(19, 1) = 2
    
    savewordIndexandLength(20, 0) = 11
    savewordIndexandLength(20, 1) = 19

    savewordIndexandLength(21, 0) = 43
    savewordIndexandLength(21, 1) = 12
    
    savewordIndexandLength(22, 0) = 39
    savewordIndexandLength(22, 1) = 2

    For Index = 23 To 27
        savewordIndexandLength(Index, 2) = 3
    Next Index
    
    savewordIndexandLength(23, 0) = 5
    savewordIndexandLength(23, 1) = 2
    
    savewordIndexandLength(24, 0) = 11
    savewordIndexandLength(24, 1) = 7

    savewordIndexandLength(25, 0) = 31
    savewordIndexandLength(25, 1) = 4
    
    savewordIndexandLength(26, 0) = 43
    savewordIndexandLength(26, 1) = 4
    
    savewordIndexandLength(27, 0) = 39
    savewordIndexandLength(27, 1) = 2
    
    Call saveWord
End Sub

Sub saveSS7EWord()
    Dim Index As Integer
    For Index = 225 To 237
        If byqData(Index) = "未完成" Then
            byqData(238) = "未完成"
            Exit For
        Else
            byqData(238) = "完成"
        End If
    Next Index
    
    For Index = 65 To 70
        If dkqData(Index) = "未完成" Then
            dkqData(70) = "未完成"
            dkqData(206) = "未完成"
            Exit For
        Else
            dkqData(70) = "完成"
        End If
    Next Index
    
    For Index = 132 To 137
    If dkqData(Index) = "未完成" Then
        dkqData(138) = "未完成"
        dkqData(206) = "未完成"
        Exit For
    Else
        dkqData(138) = "完成"
    End If
    Next Index
    
    For Index = 199 To 204
    If dkqData(Index) = "未完成" Then
        dkqData(205) = "未完成"
        dkqData(206) = "未完成"
        Exit For
    Else
        dkqData(205) = "完成"
    End If
    Next Index
    
    If dkqData(70) = "完成" And dkqData(138) = "完成" And dkqData(205) = "完成" Then
        dkqData(206) = "完成"
    End If
    
    For Index = 16 To 20
        If hgqData(Index) = "未完成" Then
            hgqData(21) = "未完成"
            Exit For
        Else
            hgqData(21) = "完成"
        End If
    Next Index
    
    For Index = 0 To 39
        savewordIndexandLength(Index, 0) = 999
    Next Index
    
    For Index = 0 To 13
        savewordIndexandLength(Index, 2) = 0
    Next Index
    
    savewordIndexandLength(0, 0) = 5
    savewordIndexandLength(0, 1) = 8
    
    savewordIndexandLength(1, 0) = 15
    savewordIndexandLength(1, 1) = 1
    
    savewordIndexandLength(2, 0) = 16
    savewordIndexandLength(2, 1) = 24
    
    savewordIndexandLength(3, 0) = 40
    savewordIndexandLength(3, 1) = 5
    
    savewordIndexandLength(4, 0) = 45
    savewordIndexandLength(4, 1) = 31
    
    savewordIndexandLength(5, 0) = 76
    savewordIndexandLength(5, 1) = 31
    
    savewordIndexandLength(6, 0) = 107
    savewordIndexandLength(6, 1) = 8
    
    savewordIndexandLength(7, 0) = 115
    savewordIndexandLength(7, 1) = 6
    
    savewordIndexandLength(8, 0) = 122
    savewordIndexandLength(8, 1) = 7
    
    savewordIndexandLength(9, 0) = 129
    savewordIndexandLength(9, 1) = 6
    
    savewordIndexandLength(10, 0) = 135
    savewordIndexandLength(10, 1) = 10
    
    savewordIndexandLength(11, 0) = 145
    savewordIndexandLength(11, 1) = 11
    
    savewordIndexandLength(12, 0) = 168
    savewordIndexandLength(12, 1) = 113
    
    savewordIndexandLength(13, 0) = 2
    savewordIndexandLength(13, 1) = 3
    
    For Index = 14 To 18
        savewordIndexandLength(Index, 2) = 1
    Next Index
    
    savewordIndexandLength(14, 0) = 5
    savewordIndexandLength(14, 1) = 1
    
    savewordIndexandLength(15, 0) = 6
    savewordIndexandLength(15, 1) = 3
    
    savewordIndexandLength(16, 0) = 9
    savewordIndexandLength(16, 1) = 1

    savewordIndexandLength(17, 0) = 10
    savewordIndexandLength(17, 1) = 4
    
    savewordIndexandLength(18, 0) = 14
    savewordIndexandLength(18, 1) = 2
    
    For Index = 19 To 22
        savewordIndexandLength(Index, 2) = 2
    Next Index
    
    
    savewordIndexandLength(19, 0) = 5
    savewordIndexandLength(19, 1) = 2
    
    savewordIndexandLength(20, 0) = 11
    savewordIndexandLength(20, 1) = 19

    savewordIndexandLength(21, 0) = 43
    savewordIndexandLength(21, 1) = 12
    
    savewordIndexandLength(22, 0) = 39
    savewordIndexandLength(22, 1) = 2

    For Index = 23 To 27
        savewordIndexandLength(Index, 2) = 3
    Next Index
    
    savewordIndexandLength(23, 0) = 5
    savewordIndexandLength(23, 1) = 2
    
    savewordIndexandLength(24, 0) = 11
    savewordIndexandLength(24, 1) = 7

    savewordIndexandLength(25, 0) = 31
    savewordIndexandLength(25, 1) = 4
    
    savewordIndexandLength(26, 0) = 43
    savewordIndexandLength(26, 1) = 4

    savewordIndexandLength(27, 0) = 39
    savewordIndexandLength(27, 1) = 1
    
    For Index = 28 To 31
        savewordIndexandLength(Index, 2) = 4
    Next Index
    
    
    savewordIndexandLength(28, 0) = 5
    savewordIndexandLength(28, 1) = 1
    
    savewordIndexandLength(29, 0) = 11
    savewordIndexandLength(29, 1) = 13

    savewordIndexandLength(30, 0) = 43
    savewordIndexandLength(30, 1) = 8
    
    savewordIndexandLength(31, 0) = 39
    savewordIndexandLength(31, 1) = 1
    
    Call saveWord
End Sub

Sub saveXFHWord()
    Dim Index As Integer
    For Index = 225 To 237
        If byqData(Index) = "未完成" Then
            byqData(238) = "未完成"
            Exit For
        Else
            byqData(238) = "完成"
        End If
    Next Index
    
    For Index = 65 To 70
        If dkqData(Index) = "未完成" Then
            dkqData(70) = "未完成"
            dkqData(206) = "未完成"
            Exit For
        Else
            dkqData(70) = "完成"
        End If
    Next Index
    
    For Index = 132 To 137
    If dkqData(Index) = "未完成" Then
        dkqData(138) = "未完成"
        dkqData(206) = "未完成"
        Exit For
    Else
        dkqData(138) = "完成"
    End If
    Next Index
    
    For Index = 199 To 204
    If dkqData(Index) = "未完成" Then
        dkqData(205) = "未完成"