ARINC 429

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Form2 Is Nothing Then
            MessageBox.Show("请先打开发送数据模块，进行数据发送")
            Return
        Else
            Form3.Show()
        End If



    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: 这行代码将数据加载到表“SDDataSet.sd”中。您可以根据需要移动或移除它。
        Me.SdTableAdapter.Fill(Me.SDDataSet.sd)
        Dim hshu As String = Str(SdDataGridView.RowCount)
        '显示设备名称
        'Dim sb As String
        ''Dim sbstr As String
        '设备号TextBox.Refresh()
        'sb = 设备号TextBox.Text
        'TextBox2.Text = sb


    End Sub

    Private Sub 更新_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 更新.Click
        '--------------------------------------- 输入封装，判断输入是否正确----------------------------------------------
        Dim n As Integer
        Dim m As Integer
        Dim hshu As String = Str(SdDataGridView.RowCount)

        For n = 0 To hshu - 2

            '判断label是否为八进制()
            Dim label As String = Trim(SdDataGridView.Rows(n).Cells(2).Value.ToString)
            For m = 1 To Len(label)

                If Mid(label, m, 1) < "0" Or Mid(label, m, 1) > "7" Or Len(label) <> 3 Then
                    MessageBox.Show("请在LABEL单元格内为3位的八进制数")
                    Return
                End If
            Next

            '判断data是否为十六进制
            Dim data As String = Trim(SdDataGridView.Rows(n).Cells(3).Value.ToString)
            For m = 1 To Len(data)
                ' Label5.Text = Mid(data, m, 1)
                If Not ((Mid(data, m, 1) >= "0" And Mid(data, m, 1) <= "9") Or (Mid(data, m, 1) >= "A" And Mid(data, m, 1) <= "F") Or (Mid(label, m, 1) >= "a" And Mid(data, m, 1) <= "f")) Then
                    MessageBox.Show("请在DATA单元格内输入十六进制数")
                    Return
                End If
            Next

            '判断ssm是否为二进制
            Dim ssm As String = Trim(SdDataGridView.Rows(n).Cells(4).Value.ToString)
            For m = 1 To Len(ssm)
                If Mid(ssm, m, 1) < "0" Or Mid(ssm, m, 1) > "1" Or Len(ssm) <> 2 Then
                    MessageBox.Show("请在SSM单元格内为2位的二进制数")
                    Return
                End If
            Next

            '判断sdi是否为二进制
            Dim sdi As String = Trim(SdDataGridView.Rows(n).Cells(5).Value.ToString)
            For m = 1 To Len(sdi)
                If Mid(sdi, m, 1) < "0" Or Mid(sdi, m, 1) > "1" Or Len(sdi) <> 2 Then
                    MessageBox.Show("请在SDI单元格内为2位的二进制数")
                    Return
                End If
            Next
            '--------------------------------------- 更新数据到数据库----------------------------------------------
        Next
        If MessageBox.Show("确认更新吗？", "更新记录", MessageBoxButtons.OKCancel) = DialogResult.OK Then
            Me.Validate()
            SdBindingSource.EndEdit()
            TableAdapterManager.UpdateAll(SDDataSet)
        Else
            SdBindingSource.CancelEdit()
        End If
        'SdBindingSource.AddNew()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        '--------------------------------------- 删除一行数据----------------------------------------------
        SdDataGridView.Rows.RemoveAt(SdDataGridView.CurrentRow.Index)
    End Sub

    Private Sub 奇校_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 奇校.Click
        '--------------------------------------- ----------------------------------------------
        Dim eid As String = "bao"
        Dim label As String = "bao"
        Dim data As String = "bao"
        Dim ssm As String = "bao"
        Dim sdi As String = "bao"
        Dim labelhanshu As String = "bao"
        Dim hshu As Integer = (SdDataGridView.RowCount)
        Dim n As Integer
        'Dim m As Integer

        For n = 0 To hshu - 2
            '-------------------提取发送模块每行的数据---------------
            eid = Trim(Str(SdDataGridView.Rows(n).Cells(1).Value))

            label = Trim(Str(SdDataGridView.Rows(n).Cells(2).Value))

            data = Trim(Str(SdDataGridView.Rows(n).Cells(3).Value))

            ssm = Trim(Str(SdDataGridView.Rows(n).Cells(4).Value))

            sdi = Trim(Str(SdDataGridView.Rows(n).Cells(5).Value))

            SdDataGridView.Rows(n).Cells(6).Value = jijiaoyan(label, sdi, data, ssm) '奇校验
        Next

    End Sub

    Public Function jijiaoyan(ByVal label As String, ByVal sdi As String, ByVal data As String, ByVal ssm As String) As String '
        '--------------------------------------- 奇校验函数----------------------------------------------
        Dim shujuzi As String
        Dim label_b As String = (OCT_to_BIN(label))
        Dim sdi_b As String = sdi
        Dim data_b As String = HEX_to_BIN(data)
        Dim ssm_b As String = ssm
        Dim i As Long
        Dim b1 As String
        Dim b2 As String
        Dim p As String

        shujuzi = Trim(label_b & sdi_b & data_b & ssm_b)

        For i = 1 To (Len(shujuzi) - 1)
            b1 = Mid(shujuzi, i, 1)
            b2 = Mid(shujuzi, i + 1, 1)
            p = b1 And b2

        Next

        If p = "1" Then
            Return "0"
        Else
            Return "1"
        End If

    End Function

    Public Function OCT_to_BIN(ByVal Oct As String) As String
        Dim i As Long
        Dim B As String

        For i = 1 To Len(Oct)
            Select Case Mid(Oct, i, 1)
                Case "0" : B = B & "000"
                Case "1" : B = B & "001"
                Case "2" : B = B & "010"
                Case "3" : B = B & "011"
                Case "4" : B = B & "100"
                Case "5" : B = B & "101"
                Case "6" : B = B & "110"
                Case "7" : B = B & "111"
            End Select
        Next i
        While Strings.Left(B, 1) = "0"
            B = Strings.Right(B, Len(B) - 1)
        End While
        OCT_to_BIN = B
    End Function

    Public Function HEX_to_BIN(ByVal Hex As String) As String
        Dim i As Long
        Dim B As String
        Hex = UCase(Hex)
        For i = 1 To Len(Hex)
            Select Case Mid(Hex, i, 1)
                Case "0" : B = B & "0000"
                Case "1" : B = B & "0001"
                Case "2" : B = B & "0010"
                Case "3" : B = B & "0011"
                Case "4" : B = B & "0100"
                Case "5" : B = B & "0101"
                Case "6" : B = B & "0110"
                Case "7" : B = B & "0111"
                Case "8" : B = B & "1000"
                Case "9" : B = B & "1001"
                Case "A" : B = B & "1010"
                Case "B" : B = B & "1011"
                Case "C" : B = B & "1100"
                Case "D" : B = B & "1101"
                Case "E" : B = B & "1110"
                Case "F" : B = B & "1111"
            End Select
        Next i
        While Strings.Left(B, 1) = "0"
            B = Strings.Right(B, Len(B) - 1)
        End While
        B = B.PadLeft(19, "0")
        HEX_to_BIN = B
    End Function



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MessageBox.Show("ARINC429 分析软件发送数据模块说明" & vbCr + vbLf & "1. ID单元格是自动编号请不要填写" & vbCr + vbLf & "2. 设备号单元格请填写十六进制数据" & vbCr + vbLf & "3. LABEL单元格请填写八进制数据" & vbCr + vbLf & "4. DATA单元格请填写十六进制数据" & vbCr + vbLf & "5. SSM和SDI单元格请填写二进制数据" & vbCr + vbLf & "6. P单元格为奇校验位，可手动输入，也可以点击奇校验按钮进行校验" & vbCr + vbLf & "7. 更新按钮将数据更新到数据库并自动发送数据" & vbCr + vbLf & "8. 删除数据按钮将会删除选中的一行数据" & vbCr + vbLf & "9. 要显示设备名称，请先单击界面上方设备名称的文字")
    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
        '---------------------------------------显示设备名称----------------------------------------------
        Dim dqhang As String = SdDataGridView.CurrentRow.Index
        Dim sbstr As String = SdDataGridView.Rows(dqhang).Cells(1).Value  '获取第rows行的索引为num列的值
        '判断设备号
        Select Case sbstr
            Case "000"
                TextBox2.Text = "宝"
        End Select
    End Sub
End Class

Public Class Form3

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: 这行代码将数据加载到表“RDDataSet.redata”中。您可以根据需要移动或移除它。
        Me.RedataTableAdapter.Fill(Me.RDDataSet.redata)
        Dim hshu As Integer = (Form2.SdDataGridView.RowCount)

    End Sub

    Private Sub 解析_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 解析.Click
        'Dim id As String
        Dim eid As String = "bao"
        Dim label As String = "bao"
        Dim data As String = "bao"
        Dim ssm As String = "bao"
        Dim sdi As String = "bao"
        Dim labelhanshu As String = "bao"
        Dim hshu As Integer = (Form2.SdDataGridView.RowCount)
        Dim n As Integer
        'Dim m As Integer

        For n = 0 To hshu - 2
            RedataBindingSource.AddNew()
            '-------------------提取发送模块的数据---------------
            eid = Str(Form2.SdDataGridView.Rows(n).Cells(1).Value)
            RedataDataGridView.Rows(n).Cells(1).Value = eid

            label = Str(Form2.SdDataGridView.Rows(n).Cells(2).Value)
            RedataDataGridView.Rows(n).Cells(2).Value = label
            labelhanshu = Trim(label)

            data = Str(Form2.SdDataGridView.Rows(n).Cells(3).Value)

            ssm = Str(Form2.SdDataGridView.Rows(n).Cells(4).Value)

            sdi = Str(Form2.SdDataGridView.Rows(n).Cells(5).Value)

            '-------------------判断label号----------------------
            Select Case labelhanshu
                Case "162"
                    RedataDataGridView.Rows(n).Cells(4).Value = label162(data)
                    RedataDataGridView.Rows(n).Cells(3).Value = "BNR"
                Case "35"
                    RedataDataGridView.Rows(n).Cells(4).Value = label035(data)
                    RedataDataGridView.Rows(n).Cells(3).Value = "BCD"
                Case "201"
                    RedataDataGridView.Rows(n).Cells(4).Value = label201(data)
                    RedataDataGridView.Rows(n).Cells(3).Value = "BCD"
                Case "32"
                    RedataDataGridView.Rows(n).Cells(4).Value = label032(data)
                    RedataDataGridView.Rows(n).Cells(3).Value = "BCD"
                Case "33"
                    RedataDataGridView.Rows(n).Cells(4).Value = label033(data)
                    RedataDataGridView.Rows(n).Cells(3).Value = "BCD"
                Case "34"
                    RedataDataGridView.Rows(n).Cells(4).Value = label034(data)
                    RedataDataGridView.Rows(n).Cells(3).Value = "BCD"
                Case "222"
                    RedataDataGridView.Rows(n).Cells(4).Value = label222(data)
                    RedataDataGridView.Rows(n).Cells(3).Value = "BNR"
                Case "202"
                    RedataDataGridView.Rows(n).Cells(4).Value = label202(data)
                    RedataDataGridView.Rows(n).Cells(3).Value = "BNR"
                Case "173"
                    RedataDataGridView.Rows(n).Cells(4).Value = label173(data)
                    RedataDataGridView.Rows(n).Cells(3).Value = "BNR"
                Case "174"
                    RedataDataGridView.Rows(n).Cells(4).Value = label174(data)
                    RedataDataGridView.Rows(n).Cells(3).Value = "BNR"

            End Select


        Next


    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Validate()
        RedataBindingSource.EndEdit()
        TableAdapterManager.UpdateAll(RDDataSet)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        RedataDataGridView.Rows.RemoveAt(RedataDataGridView.CurrentRow.Index)
    End Sub

    Public Function label162(ByVal data As String) As String 'ok ADF方位角
        Dim datab = HEX_to_BIN(data) 'data转为二进制

        Dim gn As String

        Dim hanyi As String = Mid(datab, 2, 12)
        Dim fuhao As String = Mid(datab, 1, 1)
        Dim hanyizi As Single = Val(hanyi)
        Dim fwj As Single
        Dim strfwj As String
        If fuhao = "0" Then
            hanyizi = BIN_to_DEC(hanyizi)
            fwj = (hanyizi / 4096) * 180
            strfwj = Str(fwj)
            gn = "VOR方位角为正" & strfwj & "度"
        Else
            hanyizi = qiuyuanma(hanyizi)
            hanyizi = BIN_to_DEC(hanyizi)
            fwj = (hanyizi / 4096) * 180
            strfwj = Str(fwj)
            gn = "VOR方位角为负" & strfwj & "度"
        End If

        Return gn
    End Function
    Public Function label032(ByVal data As String) As String 'ok ADF频率
        Dim datab = HEX_to_BIN(data) 'data转为二进制
        Dim BFO As String = Mid(datab, 19, 1)
        Dim mode As String = Mid(datab, 18, 1)
        Dim fr As String

        Dim _1000m As String = 1000 * (BIN_to_DEC(Mid(datab, 1, 3)))
        Dim _100m As String = 100 * (BIN_to_DEC(Mid(datab, 4, 4)))
        Dim _10m As String = 10 * (BIN_to_DEC(Mid(datab, 8, 4)))
        Dim _1m As String = BIN_to_DEC(Mid(datab, 12, 4))
        Dim _01m As String = Mid(datab, 16, 1)

        If _01m = "1" Then
            _01m = "0.05"
        Else
            _01m = "0.00"
        End If

        If BFO = "0" Then
            BFO = "BFO off"
        Else
            BFO = "BFO on"
        End If

        If mode = "0" Then
            mode = "ADF mode"
        Else
            mode = "ANT mode"
        End If
        fr = Val(_1000m) + Val(_100m) + Val(_10m) + Val(_1m) + Val(_01m)
        Return BFO & "," & mode & ",ADF频率为" & fr & "KHz"
    End Function
    Public Function label035(ByVal data As String) As String 'ok DME频率
        Dim datab = HEX_to_BIN(data) 'data转为二进制
        Dim flx As String = Mid(datab, 15, 2) '取14、15位用来判断频率的类型
        Dim fr As String
        Dim fm As String
        Dim _10m As String = 10 * (BIN_to_DEC(Mid(datab, 1, 3)))
        Dim _1m As String = (BIN_to_DEC(Mid(datab, 4, 4)))
        Dim _01m As String = 0.1 * (BIN_to_DEC(Mid(datab, 8, 4)))
        Dim _001m As String = Mid(datab, 12, 1)

        If _001m = "1" Then
            _001m = "0.05"
        Else
            _001m = "0.00"
        End If

        If flx = "00" Then
            fm = "VOR频率为"
        ElseIf flx = "01" Then
            fm = "ILS频率为"
        Else
            fm = "MLS频率为"
        End If
        fr = 100 + Val(_10m) + Val(_1m) + Val(_01m) + Val(_001m)
        Return "DME波道对应的" & fm & fr & "MHz"
    End Function
    Public Function label201(ByVal data As String) As String 'ok DME测距
        Dim datab = HEX_to_BIN(data) 'data转为二进制
        Dim juli As String
        Dim _100m As String = 100 * BIN_to_DEC(Mid(datab, 1, 3))
        Dim _10m As String = 10 * BIN_to_DEC(Mid(datab, 4, 4))
        Dim _1m As String = BIN_to_DEC(Mid(datab, 8, 4))
        Dim _01m As String = 0.1 * BIN_to_DEC(Mid(datab, 12, 4))
        Dim _001m As String = 0.01 * BIN_to_DEC(Mid(datab, 16, 4))
        juli = Val(_100m) + Val(_10m) + Val(_1m) + Val(_01m + _001m)
        Return "DME测得距离为" & juli & "N.M"
    End Function
    Public Function label033(ByVal data As String) As String ' ok ILS频率

        Dim datab = HEX_to_BIN(data) 'data转为二进制
        Dim ils_lx As String = Mid(datab, 18, 2)
        Dim fr As String = "bao"
        Dim strils As String = "bao"
        Dim _10m As String = 10 * BIN_to_DEC(Mid(datab, 1, 3))
        Dim _1m As String = BIN_to_DEC(Mid(datab, 4, 4))
        Dim _01m As String = 0.1 * BIN_to_DEC(Mid(datab, 8, 4))
        Dim _001m As String = 0.01 * BIN_to_DEC(Mid(datab, 12, 4))
        fr = 100 + Val(_10m) + Val(_1m) + Val(_01m) + Val(_001m)
        Select Case ils_lx
            Case "00"
                strils = "CATEGORY NOT"
            Case "01"
                strils = "ILS Ⅰ型"
            Case "10"
                strils = "ILS Ⅱ型"
            Case "11"
                strils = "ILS Ⅲ型"
        End Select
        Return strils & fr & "MHz"
    End Function
    Public Function label034(ByVal data As String) As String ' ok VOR or ILS 频率
        Dim datab = HEX_to_BIN(data) 'data转为二进制
        Dim f As String = Mid(datab, 16, 1) '从string字符串的start字符开始取得length长度的字符串，如果省略第三个参数表示从start字符开始到字符串结尾的字符串
        Dim fr As Double
        Dim fm As String
        Dim _10m As Double = 10 * Val(BIN_to_DEC(Mid(datab, 1, 3)))
        Dim _1m As Double = Val(BIN_to_DEC(Mid(datab, 4, 4)))
        Dim _01m As Double = 0.1 * Val(BIN_to_DEC(Mid(datab, 8, 4)))
        Dim _001m As Double = 0.01 * Val(BIN_to_DEC(Mid(datab, 12, 4)))
        If f = "0" Then
            fm = "VOR频率"
        Else
            fm = "ILS频率"
        End If
        fr = 100 + Val(_10m) + Val(_1m) + Val(_01m) + Val(_001m)
        Return fm & fr & "MHz"
    End Function
    Public Function label222(ByVal data As String) As String 'ok VOR方位角
        Dim datab = HEX_to_BIN(data) 'data转为二进制
        Dim mb As String = Mid(datab, 17, 3)
        Dim strmb As String = "bao"
        Dim gn As String
        Select Case mb
            Case "001"
                strmb = "外指点信标400HZ,"
            Case "010"
                strmb = "中指点信标1300HZ,"
            Case "100"
                strmb = "内指点信标3000HZ,"
        End Select
        Dim hanyi As String = Mid(datab, 2, 12)
        Dim fuhao As String = Mid(datab, 1, 1)
        Dim hanyizi As Single = Val(hanyi)
        Dim fwj As Single
        Dim strfwj As String
        If fuhao = "0" Then
            hanyizi = BIN_to_DEC(hanyizi)
            fwj = (hanyizi / 4096) * 180
            strfwj = Str(fwj)
            gn = strmb & "VOR方位角为" & strfwj & "度"
        Else
            hanyizi = qiuyuanma(hanyizi)
            hanyizi = BIN_to_DEC(hanyizi)
            fwj = (hanyizi / 4096) * 180
            strfwj = Str(fwj)
            gn = strmb & "VOR方位角为负" & strfwj & "度"
        End If

        Return gn
    End Function
    Public Function label202(ByVal data As String) As String ' DME测距-BNR
        Dim datab = HEX_to_BIN(data) 'data转为二进制
        Dim jl As String
        Dim gn As String

        Dim hanyi As String = Mid(datab, 2, 16)
        Dim fuhao As String = Mid(datab, 1, 1)
        'Dim hanyizi As Single = Val(hanyi)
        Dim strjl As Single

        If fuhao = "0" Then
            hanyi = BIN_to_DEC(hanyi)
            jl = (hanyi / 65536) * 512
            strjl = Str(jl)
            gn = "DME测得的距离为" & strjl & "N.M"
        Else
            hanyi = qiuyuanma(hanyi)
            hanyi = BIN_to_DEC(hanyi)
            jl = (hanyi / 65536) * 512
            strjl = Str(jl)
            gn = "DME测得的距离为" & strjl & "N.M"
        End If

        Return gn
    End Function
    Public Function label173(ByVal data As String) As String 'LOC 偏差
        Dim datab = HEX_to_BIN(data) 'data转为二进制
        Dim gn As String
        Dim hanyi As String = Mid(datab, 2, 12)
        Dim fuhao As String = Mid(datab, 1, 1)
        'Dim hanyizi As Single = Val(hanyi)
        Dim pc As Single
        Dim strpc As String

        If fuhao = "0" Then
            hanyi = BIN_to_DEC(hanyi)
            pc = (hanyi / 4096) * 0.4
            strpc = Str(pc)
            gn = "方位角右偏0" & strpc & "DDM"
        Else
            hanyi = qiuyuanma(hanyi)
            hanyi = BIN_to_DEC(hanyi)
            pc = (hanyi / 4096) * 0.4
            strpc = Str(pc)
            gn = "方位角左偏0" & strpc & "DDM"
        End If
        Label2.Text = pc
        Return gn
    End Function

    Public Function label174(ByVal data As String) As String 'GS 偏差
        Dim datab = HEX_to_BIN(data) 'data转为二进制
        Dim gn As String
        Dim hanyi As String = Mid(datab, 2, 12)
        Dim fuhao As String = Mid(datab, 1, 1)
        'Dim hanyizi As Single = Val(hanyi)
        Dim pc As Single
        Dim strpc As String

        If fuhao = "0" Then
            hanyi = BIN_to_DEC(hanyi)
            pc = (hanyi / 4096) * 0.4
            strpc = Str(pc)
            gn = "下滑角角上偏0" & strpc & "DDM"
        Else
            hanyi = qiuyuanma(hanyi)
            hanyi = BIN_to_DEC(hanyi)
            pc = (hanyi / 4096) * 0.4
            strpc = Str(pc)
            gn = "下滑角下偏0" & strpc & "DDM"
        End If

        Return gn
    End Function



    Public Function HEX_to_BIN(ByVal Hex As String) As String
        Dim i As Long
        Dim B As String
        Hex = UCase(Hex)
        For i = 1 To Len(Hex)
            Select Case Mid(Hex, i, 1)
                Case "0" : B = B & "0000"
                Case "1" : B = B & "0001"
                Case "2" : B = B & "0010"
                Case "3" : B = B & "0011"
                Case "4" : B = B & "0100"
                Case "5" : B = B & "0101"
                Case "6" : B = B & "0110"
                Case "7" : B = B & "0111"
                Case "8" : B = B & "1000"
                Case "9" : B = B & "1001"
                Case "A" : B = B & "1010"
                Case "B" : B = B & "1011"
                Case "C" : B = B & "1100"
                Case "D" : B = B & "1101"
                Case "E" : B = B & "1110"
                Case "F" : B = B & "1111"
            End Select
        Next i
        While Strings.Left(B, 1) = "0"
            B = Strings.Right(B, Len(B) - 1)
        End While
        B = B.PadLeft(19, "0")
        HEX_to_BIN = B
    End Function

    Public Function BIN_to_DEC(ByVal Bin As String) As Long
        Dim i As Long
        For i = 1 To Len(Bin)
            BIN_to_DEC = BIN_to_DEC * 2 + Val(Mid(Bin, i, 1))
        Next i
    End Function
    Public Function DEC_to_BIN(ByVal Dec As String) As String
        DEC_to_BIN = ""
        Do While Dec > 0
            DEC_to_BIN = Dec Mod 2 & DEC_to_BIN
            Dec = Dec \ 2
        Loop
    End Function

    Public Function qiuyuanma(ByVal Bin As String) As Long '补码转原码
        Dim i As Long
        Dim B As String
        Bin = UCase(Bin)
        For i = 1 To Len(Bin)
            Select Case Mid(Bin, i, 1)
                Case "0" : B = B & "1"
                Case "1" : B = B & "0"
            End Select
        Next
        B = BIN_to_DEC(B)
        B = B + 1
        B = DEC_to_BIN(B)
        B = B.PadLeft(19, "0")
        qiuyuanma = B
    End Function


    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        End
    End Sub


End Class