Question

我正在研究一个计算器，我希望在圆圈上得到一些数字。

Private Sub Button6_Click(
    ByVal sender As System.Object, 
    ByVal e As System.EventArgs) Handles Button6.Click   

    Dim radius As Integer = TextBox13.Text
    Dim diameter As Integer = TextBox14.Text
    Dim length As Integer = TextBox15.Text

    TextBox13.Text = diameter / 2
    TextBox14.Text = radius * 2
    TextBox15.Text = radius * 2 * Math.PI
    TextBox15.Text = diameter * Math.PI
End Sub

这是当前的代码，但我遇到了“数字必须小于无限”的问题。如果你会善良并帮助我，我会很感激.. - 注意：我'一个完整的菜鸟。 ;-) -

Answer 1

错误在于您尝试分配字符串类型的整数值。使用struct TryParse整数提供的方法，这也将在任何运行时异常FormatException中运行，并且不发送应用程序。

以下是一个例子：

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim diameter As Integer = 0
    Dim radius As Integer = 0
    Dim lenght As Integer = 0

    If Integer.TryParse(Me.TextBox13.Text, diameter) Then
        'your code 
    End If

    If Integer.TryParse(Me.TextBox14.Text, radius) Then
        'your code 
    End If

    If Integer.TryParse(Me.TextBox15.Text, lenght) Then
        'your code 
    End If
End Sub

此链接有关TryParse的更多信息： http://msdn.microsoft.com/it-it/library/f02979c7.aspx

再见

Answer 2

看看是否有效：

   Dim radius As Integer = Integer.Parse(TextBox13.Text)
   Dim diameter As Integer = Integer.Parse(TextBox14.Text)     
   Dim length As Integer = Integer.Parse(TextBox15.Text)

新手计算器

2 个答案: