Калькулятор с подсчетом градус-минута-секунда - Visual Basic .NET - Ответ 4183057

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim t, gradus As Double
        Dim j, k, l, gr, min, sec As Integer
        Dim d As String = ""
        Dim c As String = ""
        For i As Integer = 0 To TextBox1.TextLength - 1
            d = d + TextBox1.Text(i)
        Next
        j = 0
        Do Until d(j) = "*"
            c = c + TextBox1.Text(j).ToString
            j = j + 1
        Loop
        gr = Integer.Parse(c)
        c = ""
        k = j + 1
        Do Until d(j) = Chr(39)
            c = c + TextBox1.Text(k).ToString
            k = k + 1
        Loop
        min = Integer.Parse(c)
        c = ""
        l = k + 1
        Do Until d(j) = Chr(34)
            c = c + TextBox1.Text(l).ToString
            l = l + 1
        Loop
        sec = Integer.Parse(c)
        gradus = gr + (min + sec / 60) / 60
        t = Math.Sin(gradus * Math.PI / 180)
        TextBox1.Text = t.ToString
    End Sub