Imports System

Public Module Module1

    Sub Main()

        Dim A As Double

        Dim B As Double

        Dim R As Double

        Dim Angle As Double

        Dim M As Double

        Dim N As Double

        Dim X As Integer

        Console.WriteLine("R Rule Solver By Ali Kabeel")

        Console.WriteLine("Is the question beginning in: ")

        Console.WriteLine("1.Sin")

        Console.WriteLine("2.cosin")

        Console.Write("Please enter the Number of your choice: ")

        X = Console.ReadLine

        If X = 1 Then

            Console.Write("Please enter the coffecient of sin α: ")

            A = Console.ReadLine()

            Console.Write("Please enter the coffecient of cos α: ")

            B = Console.ReadLine()

            R = Math.Sqrt(A ^ 2 + B ^ 2)

            Console.WriteLine("The value of R = " & R)

            M = A / Math.PI * 180

            N = B / Math.PI * 180

            Angle = Math.Atan(N / M)

            Console.Write("The Angle = " & Angle * 180 / Math.PI)

        ElseIf X = 2 Then

            Console.Write("Please enter the coffecient of cos α: ")

            A = Console.ReadLine()

            Console.Write("Please enter the coffecient of sin α: ")

            B = Console.ReadLine()

            R = Math.Sqrt(A ^ 2 + B ^ 2)

            Console.WriteLine("The value of R = " & R)

            M = A / Math.PI * 180

            N = B / Math.PI * 180

            Angle = Math.Atan(N / M)

            Console.Write("The Angle = " & Angle * 180 / Math.PI)

        End If

        Console.WriteLine("    ")

        Console.WriteLine("    ")

        Main()

​

​

​

        Main()

​

    End Sub

​

End Module

​