Trigonometric Functions in Visual Basic 2022

Private Sub BtnCalculate_Click(sender As Object, e As EventArgs) Handles BtnCalculate.Click
    ' Convert degrees to radians
    Dim degrees As Double = Val(txtDegrees.Text)
    Dim radians As Double = degrees * Math.PI / 180
    
    ' Calculate sine value
    Dim sineValue As Double = Math.Sin(radians)
    
    lblResult.Text = "Sin(" & degrees & "°) = " & Math.Round(sineValue, 4)
End Sub

Private Sub BtnCalculate_Click(sender As Object, e As EventArgs) Handles BtnCalculate.Click
    Dim degrees As Double = Val(txtDegrees.Text)
    Dim radians As Double = degrees * Math.PI / 180
    
    ' Calculate cosine value
    Dim cosineValue As Double = Math.Cos(radians)
    
    lblResult.Text = "Cos(" & degrees & "°) = " & Math.Round(cosineValue, 4)
End Sub

Private Sub BtnCalculate_Click(sender As Object, e As EventArgs) Handles BtnCalculate.Click
    Dim degrees As Double = Val(txtDegrees.Text)
    Dim radians As Double = degrees * Math.PI / 180
    
    ' Calculate tangent value
    If degrees % 90 = 0 And degrees % 180 != 0 Then
        lblResult.Text = "Tan(" & degrees & "°) is undefined"
    Else
        Dim tangentValue As Double = Math.Tan(radians)
        lblResult.Text = "Tan(" & degrees & "°) = " & Math.Round(tangentValue, 4)
    End If
End Sub

Private Sub BtnCalculate_Click(sender As Object, e As EventArgs) Handles BtnCalculate.Click
    Dim value As Double = Val(txtValue.Text)
    
    If value < -1 Or value > 1 Then
        lblResult.Text = "Input must be between -1 and 1"
    Else
        Dim radians As Double = Math.Asin(value)
        Dim degrees As Double = radians * 180 / Math.PI
        lblResult.Text = "Asin(" & value & ") = " & Math.Round(degrees, 2) & "°"
    End If
End Sub

Private Sub BtnCalculate_Click(sender As Object, e As EventArgs) Handles BtnCalculate.Click
    Dim value As Double = Val(txtValue.Text)
    
    If value < -1 Or value > 1 Then
        lblResult.Text = "Input must be between -1 and 1"
    Else
        Dim radians As Double = Math.Acos(value)
        Dim degrees As Double = radians * 180 / Math.PI
        lblResult.Text = "Acos(" & value & ") = " & Math.Round(degrees, 2) & "°"
    End If
End Sub

Private Sub BtnCalculate_Click(sender As Object, e As EventArgs) Handles BtnCalculate.Click
    Dim value As Double = Val(txtValue.Text)
    
    ' Calculate arctangent
    Dim radians As Double = Math.Atan(value)
    Dim degrees As Double = radians * 180 / Math.PI
    
    lblResult.Text = "Atan(" & value & ") = " & Math.Round(degrees, 2) & "°"
End Sub

Private Sub BtnCalculateHeight_Click(sender As Object, e As EventArgs) Handles BtnCalculateHeight.Click
    ' Get user inputs
    Dim distance As Double = Val(txtDistance.Text)
    Dim angleDegrees As Double = Val(txtAngle.Text)
    
    ' Convert angle to radians
    Dim angleRadians As Double = angleDegrees * Math.PI / 180
    
    ' Calculate height: height = distance * tan(angle)
    Dim height As Double = distance * Math.Tan(angleRadians)
    
    lblResult.Text = "The height is: " & Math.Round(height, 2) & " units"
End Sub

Private Sub BtnCalculateProjectile_Click(sender As Object, e As EventArgs) Handles BtnCalculateProjectile.Click
    Const g As Double = 9.81  ' Gravity
    Dim velocity As Double = Val(txtVelocity.Text)
    Dim angle As Double = Val(txtAngle.Text)
    
    ' Convert angle to radians
    Dim radians As Double = angle * Math.PI / 180
    
    ' Calculate range and height
    Dim range As Double = (velocity * velocity * Math.Sin(2 * radians)) / g
    Dim maxHeight As Double = (velocity * velocity * Math.Pow(Math.Sin(radians), 2)) / (2 * g)
    
    lblResult.Text = "Range: " & Math.Round(range, 2) & " m | Max Height: " & Math.Round(maxHeight, 2) & " m"
End Sub