Question

我想向Visual Basic 2010中的二进制添加寻求帮助。user2471711创建了一个控制台应用程序，它运行良好，最终，我希望它可以在Windows中使用表格申请。你们对我如何在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上放置两个文本框，一个标签和一个按钮。该代码将执行您想要的操作，并将其放置在Button“ 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)

但是，请注意，这里没有检查。您应该检查文本框是否包含期望的内容，但这应该可以帮助您入门。

二进制加法VB.NET

1 个答案: