Бинарное дополнение VB.NET

Question

Я хотел бы попросить помощи о двоичном добавлении в Visual Basic 2010. user2471711 создал консольное приложение, и оно работает хорошо, в конце концов, я хотел бы, чтобы это было в Приложение Windows Form. Ребята, у вас есть идея, как мне сделать это в приложении WinForms?

Dim a As Integer = 8
Dim b As Integer = 2
Dim c As Integer = 10

Sub Main()
    Dim binary1 As Integer
    Dim binary2 As Integer
    Console.WriteLine("-------BINARY ADDITION--------")
    Console.WriteLine("Enter in your two binary numbers")
    Console.WriteLine("1st number")
    binary1 = Console.ReadLine
    Console.WriteLine("2nd number")
    binary2 = Console.ReadLine
    Console.WriteLine(binary1 & "+" & binary2 & "=")
    binary1 = binary1 + binary2
    Console.Write(add(binary1))
    Console.ReadLine()
End Sub

Function add(ByVal x As Integer)
    For y As Integer = 1 To 8
        If x Mod c >= b Then
            x = x + a
        End If
        a = a * 10
        b = b * 10
        c = c * 10
    Next

    Return x
End Function

Answer 1

На ваших Winforms поместите два текстовых поля, метку и кнопку. Этот код будет делать то, что вы хотите, поместите его в событие «Click» кнопки.

        Dim BinaryResult As Integer = Convert.ToInt32(TextBox1.Text, 2) + Convert.ToInt32(TextBox2.Text, 2)
    Label1.Text = BinaryResult.ToString

Суммирует значения, введенные в текстовые поля, и отображает результат в метке при нажатии кнопки.

* Дополнительные форматы * («двоичный», «нормальный», «шестнадцатеричный»)

        Label1.Text = String.Format("Base-2:{0}    Base-10:{1}    Base-16:{2}",
                                Convert.ToString(BinaryResult, 2),
                                Convert.ToString(BinaryResult, 10),
                                Convert.ToString(BinaryResult, 16).ToUpper)

Однако ... Имейте в виду, здесь нет проверки. Вы должны проверить, содержат ли текстовые поля то, что вы ожидаете, но это должно помочь вам начать.