[Visual Basic] 사칙연산 계산기 (삼각함수)

  Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click    ' sin 계산
        If Label2.Text.Contains("=") Then
            'oper중이라면?
            If Label2.Text.Contains(oper) Then
                ' 기존결과값 위로올리기+ 앞에 sin을 사용했다는 표시 붙이기
                Label2.Text = answer
                Label2.Text = "Sin( " + Label2.Text + " )"
                ' sin 계산값은 아래에 위치
                Label1.Text = Label1.Text * Math.PI / 180  
                answer = Math.Sin(Label1.Text)  ' answer에 들어온 라디안값을 sin값으로 변환&계산
                Label1.Text = answer    'label1에 결과값 출력

            Else 'sin값을 바로 구한다면?
                ' 입력값 위로 올리기 + 앞에 sin 사용했다는 표시 붙이기
                Label2.Text = Label1.Text
                Label2.Text = "Sin( " + Label2.Text + " )"
                ' 결과값 아래에 위치
                Label1.Text = Label1.Text * Math.PI / 180
                answer = Math.Sin(Label1.Text)  ' answer에 들어온 라디안값을 sin값으로 변환&계산
                Label1.Text = answer    'label1에 결과값 출력
            End If
        Else
            MsgBox("확인을 눌러주세요")
        End If

        Btn_equal.Focus()
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click  ' cos 계산
        If Label2.Text.Contains("=") Then
            If Label2.Text.Contains(oper) Then
                Label2.Text = answer
                Label2.Text = "Cos( " + Label2.Text + " )"
                Label1.Text = Label1.Text * Math.PI / 180
                answer = Math.Cos(Label1.Text)
                Label1.Text = answer

            Else
                Label2.Text = Label1.Text
                Label2.Text = "Cos( " + Label2.Text + " )"
                Label1.Text = Label1.Text * Math.PI / 180
                answer = Math.Cos(Label1.Text)
                Label1.Text = answer
            End If
        Else
            MsgBox("확인을 눌러주세요")
        End If

        Btn_equal.Focus()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click  ' tan 계산
        If Label2.Text.Contains("=") Then
            If Label2.Text.Contains(oper) Then
                Label2.Text = answer
                Label2.Text = "Tan( " + Label2.Text + " )"
                Label1.Text = Label1.Text * Math.PI / 180
                answer = Math.Tan(Label1.Text)
                Label1.Text = answer

            Else
                Label2.Text = Label1.Text
                Label2.Text = "Tan( " + Label2.Text + " )"
                Label1.Text = Label1.Text * Math.PI / 180
                answer = Math.Tan(Label1.Text)
                Label1.Text = answer
            End If
        Else
            MsgBox("확인을 눌러주세요")
        End If

        Btn_equal.Focus()
    End Sub

 

---

참고자료

c#에서의 Math.Cos(), Math.Cos()

라디안값으로 변환해야지 제대로된 값 나옴