Converting Degrees to Radians in VB.NET (1 Viewer)

[Sentient_667]

Could someone please tell me how to convert degrees to radians in Visual Basic.NET? Any help at all would be greatly appreciated...

 

[sunny]

radians = degrees * pi/180.

 

[Sentient_667]

The piece of software I am required to design is a standalone scientific calculator, in Visual Basic.NET.

The requirements are that I add Sin, Cos and Tan functions. I've added all these buttons to the interface, but don't know what to do next.

My software teacher gave me some help, but I'm still unclear on how to add these buttons to the existing code. This is what I currently have:

Private Sub btnSin_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSin.Click
' Convert display to a double variable
Dim str As String = txtDisplay.Text
Dim num As Double = Convert.ToDouble(str)

' Convert the double variable to radians
Dim angleInRadians As Double = DegToRadians(num)

' Perform the calculation
' Display the answer
End Sub

Private Function DegToRadians(ByVal Value As Double) As Double
' Same to find the formula
I need to place the formula for converting degrees to radians in here.
End Function

 

[sunny]

The formula to use is radians = degrees * pi/180. The functions you want; tan, cos and sin and the constant pi can all be found in the Math class.

http://msdn.microsoft.com/

 

[fullmetaljacket]

To elaborate on what sunny said, I thought I'd give this a quick go just to show you how it's done. Basically, I've just written the from radians to degrees and degrees to radians part for you. It's basically just an extension from what you had. Although, you can fix up the sine cosine and tangent bits for yourself. Good luck.

    Private Sub btndeg2rad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndeg2rad.Click
        Dim str As String = txtDisplay.Text
        Dim num As Double = str
        ' Convert the double variable to radians
        Dim radians As Double
        Dim pi As Double
        pi = 3.14159265
        radians = num * pi / 180
        txtDisplay.Text = radians
    End Sub

    Private Sub btnrad2deg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnrad2deg.Click
        Dim str As String = txtDisplay.Text
        Dim radians As Double = str
        ' Convert the double variable to radians
        Dim num As Double
        Dim pi As Double
        pi = 3.14159265
        num = radians * 180 / pi
        txtDisplay.Text = num
    End Sub

 

[Sentient_667]

Thanks for the help, it was much needed. The code you supplied works just fine for what I need.

 

[fullmetaljacket]

ahahaha, saorry I havnt used this forum much until now. I'm glad it helped you out. Well, I feel like I've achieved something from this...even though I had forgotten about it and did it several months ago.