newbs 계산기

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

참조 :

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

Answer 2

오류는 String 형의 정수 값을 할당하려고한다는 사실에있다. 구조체 TryParse 정수가 제공하는 메서드를 사용하면 런타임 예외 FormatExceptionException에서도 실행되며 응용 프로그램을 보내지 않습니다. 이 링크에서 TryParse에 대한

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 

상세 정보 :

다음은 예입니다 http://msdn.microsoft.com/it-it/library/f02979c7.aspx

안녕

당신이에 오류가 무엇 라인