The Grand Design | C# Online Compiler

The Grand Design by John NIu

Imports System

Public Module Module1

	Public Sub Main()
		Dim angle1 as decimal = 0
		Dim radian1 as decimal = 0
		Dim variabletype as String
		Dim Sidetype as Char
		Dim Hypotenuse as decimal = 0
		Dim side2 as decimal = 0
		Dim side1 as decimal = 0
		Dim NumberofSides as integer = 0
		Dim Numberofangles as integer = 0
		Dim angle2 as decimal
		Dim solution as Integer
		Dim Numberofhypotenuse as integer = 0
		Dim BBB as String
		Dim pi as decimal
		Dim radian2 as decimal = 0
		Dim CCC as integer
		Dim DDD as integer
		Dim EEE as integer
		Dim FFF as integer
		Dim GGG as integer
		pi = 2 * Math.Asin(1)
		Console.WriteLine("Please select a variable you would like to enter. It could be a side or an angle of a right-angled triangle.")
		Console.WriteLine("Enter 'S' for side or 'A' for angle to continue. It has to be in a capital letter")
		Do
			Do
				variabletype = Console.ReadLine()
				If variabletype <> "A" and variabletype <> "S" then
					Console.WriteLine("Variable invalid, please try again")
				End if
			loop until variabletype = "A" or variabletype = "S"

			If Variabletype = "A" then
				Numberofangles = Numberofangles + 1
				If numberofangles = 1 then
					console.WriteLine("What is the degree of the non-90-degree angle?")
					DO
						angle1 = console.ReadLine()
						If angle1 >= 90 or angle1 <= 0 then
							Console.WriteLine("Angle invalid, please try again")
						End if
					Loop until angle1 > 0 and angle1 < 90
				End if

				If numberofangles = 2 then
					console.WriteLine("What is the degree of the non-90-degree angle?")
					DO
						angle2 = console.ReadLine()
						If angle2 >= 90 or angle2 <= 0 then
							Console.WriteLine("Angle invalid, please try again.")
							CCC = 1
						End if

						If CCC <> 1 then
							If angle1 + angle2 = 90 then
								DDD = 1
							Else if Angle1 + angle2 <> 90 then
								Console.WriteLine("Two angles you've entered don't add up to 90, please try again")
							End if
						End if
					Loop until DDD = 1
				End if

				If numberofangles > 2 then
					Console.WriteLine("You can't have a right -angled triangle with more than 2 non-90 degree angles!")
				End if
			End if

			If Variabletype = "S" then
				Console.WriteLine("What is tpye of the side")
				COnsole.WriteLine("It can either be the Hypotenuse or the right-angled side")
				Console.WriteLine("Enter (H) for Hypotenuse or (S) for the right-angled side")
				DO
					Sidetype = Console.ReadLine()
					If sidetype <> "H" and sidetype <> "S" Then
						Console.WriteLine("Side Tpye invalid")
					End if
				Loop until sidetype = "H" or sidetype = "S"

				If sidetype = "H" then
					Console.WriteLine("What is the length of the Hypotenuse?")
					Numberofhypotenuse = Numberofhypotenuse + 1
					If Numberofhypotenuse = 1 then
						Do
							Hypotenuse = Console.ReadLine()
							If numberofsides > 0 then
								If Hypotenuse <= side1 then
									Console.WriteLine("Are you sure about your data? Your side is greater or equal to your hypotenuse! You have to try again.")
								End if
							End if

							If hypotenuse <= 0 Then
								Console.WriteLine("Hypotenuse invalid")
								Console.WriteLine("Please try again")
							End if
						Loop Until Hypotenuse > 0 and Hypotenuse > side1
					End if

					If numberofhypotenuse > 1 then
						Console.WriteLine("You do realise that you can't have two hypotenuses, right?")
					End if
				End if

				If sidetype = "S" then
					Numberofsides = Numberofsides + 1
					Console.WriteLine("Please enter the value of a side")
					If Numberofsides = 1
						Do
							Side1 = console.ReadLine()
							If side1 <= 0 then
								Console.WriteLine("Length invalid")
								Console.WriteLine("Please try again")
							End if

							If numberofhypotenuse > 0 then
								If side1 >= hypotenuse then
									EEE = 2
									Console.WriteLine("Are you sure? Your side is greater or equal to hypotenuse! Please try again.")
								Else if Side1 < hypotenuse then
									EEE = 3
								End if
							End if

							If Numberofhypotenuse = 0
								FFF = 1
							End if

							If FFF = 1 or EEE = 3 then
								GGG = 1
							End if
						Loop Until side1 > 0 and GGG = 1
					End if

					If Numberofsides = 2 then
						Do
							Side2 = console.ReadLine()
							If side2 <= 0 then
								Console.WriteLine("Length invalid")
								Console.WriteLine("Please try again")
							End if
						Loop Until side2 > 0
					End if
				End if
			End if

			If Numberofsides = 2 then
				solution = 1
			Elseif Numberofsides = 1 and Numberofhypotenuse = 1 then
				solution = 2
			Elseif Numberofangles = 1 and Numberofsides = 1 then
				Console.WriteLine("Is the non-hypotenuse side you entered adjacent to the angle you entered ?")
				Console.WriteLine("Enter 'YES' or 'NO'. They have to be in capital letters.")
				Do
					BBB = console.ReadLine()
					If BBB <> "YES" and BBB <> "NO" then
						console.WriteLine("Result invalid")
					End if
				Loop until BBB = "YES" or BBB = "NO"

				If BBB = "YES" then
					solution = 3
				Else
					solution = 4
				End if
			Elseif NumberofHypotenuse = 1 and Numberofangles = 1 then
				Solution = 5
			Else
				console.WriteLine("I need more information. Please tell me another variable.")
				Console.WriteLine("It could be a side or an angle")
				Console.WriteLine("Enter 'S' or 'A', it has to be in capital letters")
			End if
		loop until solution >= 1 and solution <= 5

		Console.WriteLine("Calculation complete, here are the results...")
		Radian1 = angle1 / 180 * pi
		Radian2 = angle2 / 180 * pi
		Select Case solution
			Case is = 1
				Hypotenuse =(side1 ^ 2 + side2 ^ 2) ^ 0.5
				Radian1 = Math.Atan(Side1 / side2)
				Radian2 = Math.Atan(Side2 / side1)
			Case is = 2
				Side2 =(Hypotenuse ^ 2 - Side1 ^ 2) ^ 0.5
				Radian1 = Math.Asin(Side1 / Hypotenuse)
				Radian2 = Math.Asin(side2 / Hypotenuse)
			Case is = 3
				Hypotenuse = side1 / Math.Cos(radian1)
				Side2 =(Hypotenuse ^ 2 - Side1 ^ 2) ^ 0.5
				Radian2 = Math.Asin(side1 / Hypotenuse)
			Case is = 4
				Hypotenuse = side1 / math.Sin(radian1)
				Side2 =(Hypotenuse ^ 2 - Side1 ^ 2) ^ 0.5
				Radian2 = Math.Acos(side1 / hypotenuse)
			Case is = 5
				side1 = Math.Sin(radian1) * Hypotenuse
				Side2 = Math.Cos(radian1) * Hypotenuse
				Radian2 = 90 / 180 * pi - radian1
		End Select

		Angle1 = radian1 * 180 / pi
		Angle2 = radian2 * 180 / pi
		Angle1 = math.Round(angle1, 2)
		Angle2 = math.Round(angle2, 2)
		Side1 = math.Round(side1, 2)
		Side2 = math.Round(side2, 2)
		Hypotenuse = math.Round(Hypotenuse, 2)
		Console.WriteLine("Angle1 is " & angle1 & "°")
		Console.WriteLine("Angle2 is " & angle2 & "°")
		Console.WriteLine("Side1 is " & Side1)
		Console.WriteLine("Side2 " & side2)
		Console.WriteLine("Hypotenuse is " & hypotenuse)
		Console.WriteLine("And you're welcome")
	'REAL: Angle1, radian1,hypotenuse, side1, side2, angle2, radian2, pi
	'INTEGER: Numberofsides, Numberofangles,solutions, numberofhypotenuse, CCC, DDD, EEE, FFF, GGG
	'pi = 2 * Math.Asin(1)
	'CHAR: Sidetype, variabletype 
	'STRiNG: BBB 
	'OUTPUT "Please select a variable you would like to enter. It could be a side or an angle of a right-angled triangle."
	'OUTPUT "Enter 'SIDE' or 'ANGLE' to continue. It has to be in capital letters"
	'
	'REPEAT
	'	REPEAT
	'		INPUT Variabletype 
	'		IF variabletype <> "A" and variabletype <> "S THEN
	'			OUTPUT "Variable invalid, please try again"
	'		ENDIF
	'	UNTIL variabletype = "A" or variabletype = "S"
	'	
	'	IF Variabletype = "A" THEN
	'		Numberofangles = Numberofangles + 1
	'		IF numberofangles = 1 THEN
	'			OUTPUT "What is the degree of the non-90-degree angle?"
	'			REPEAT
	'				INPUT angle1
	'				IF angle1 >= 90 or angle1 <= 0 THEN
	'					OUTPUT "Angle invalid, please try again"
	'				ENDIF
	'			UNTIL angle1 > 0 and angle1 < 90
	'		ENDIF
	'		IF numberofangles = 2 THEN
	'			OUTPUT "What is the degree of the non-90-degree angle?"
	'			REPEAT
	'				INPUT angle2
	'				IF angle2 >= 90 or <= 0 THEN
	'					OUTPUT "Angle invalid, please try again."
	'					CCC = 1
	'				ENDIF
	'				IF CCC <> 1 THEn
	'					IF angle1 + angle2 = 90 THEN
	'						DDD = 1
	'					ELSEIF angle1 + angle2 <> 90 THEN
	'						OUTPUT "Two angles you've entered don't add up to 90 degree, please try again." "
	'					ENDIF
	'				ENDIF
	'			UNTIL DDD = 1
	'		ENDIF
	'		IF numberofangles > 2 THEN
	' 			OUTPUT "You can't have a right-angled triangle with more than 2 non-degree angles"
	'		ENDIF
	'	ENDIF
	'	IF Variabletype = "S" THEN
	'		OUTPUT "What is tpye of the side?"
	'		OUTPUT "It can either be the Hypotenuse or the right-angled side"
	'		OUTPUT "Enter (H) for Hypotenuse or (S) for the right-angled side"
	'		
	'		REPEAT
	'			INPUT sidetype
	'			IF sidetype <> "H" and sidetype <> "S"
	'				OUTPUT "Side type invalid"
	'			ENDIF
	'		UNTIL Sidetype = "H" or Sidetype = "S"
	'
	'		IF sidetype = "H" THEN
	'			OUTPUT "WHAT is the lengthe of the hypotenuse?"
	'			Numberofhypotenuse = Numberofhypotenuse + 1
	'			IF Numberofhypotenuse = 1 THEN
	'				REPEAT
	'					INPUT Hypotenuse
	'					IF Numberofsides > 0 THEN
	'						IF Hypotenuse <= side1 THEN
	'							OUTPUT "Your side is greater or equal to your Hypotenuse, please try again"
	'						ENDIF
	'					ENDIF
	'					IF hypotenuse <= 0 THEN
	'						OUTPUT "Hypotenuse invalid"
	'						OUTPUT "Please try again"
	'					ENDIF
	'				UNTIL Hypotenuse > 0 and hypotenuse > side 1
	'			ENDIF
	'			
	'			IF numberofhypotenuse > 1 THEN
	'				OUTPUT "You can't have two hypotenuses"
	'			ENDIF
	'		ENDIF
	'
	'		IF sidetype = "S" THEN
	'			Numberofsides = Numberofsides + 1
	'			OUTPUT "Please enter the value of a side"
	'			IF numberofsides = 1
	'				REPEAT
	'					INPUT side1
	'					IF side1 <= 0 THEN
	'						OUTPUT "Length invalid, please try again"
	'					ENDIF
	'					IF numberofhypotenuse > 0 THEN
	'						IF side1 >= hypotenuse THEN
	'							IF side1 >= hypotenuse THEN
	'								EEE = 2
	'								OUTPUT "Are you sure? Your side is greater or equal to hypotenuse! Please try again."
	'							ELSEIF side1 < hypotenuse THEN
	'								EEE = 3 
	'							ENDIF
	'						ENDIF
	'						IF Numberofhypotenuse = 0 THEN
	'							FFF = 1
	'						ENDIF
	'						IF FFF = 1 or EEE = 3 THEN
	'							GGG = 1
	'						ENDIF
	'				UNTIL SIDE1 > 0 and GGG = 1
	'			ENDIF
	'		
	'			IF Numberofsides = 2 THEN
	'				REPEAT 
	'					INPUT side2
	'					IF side2 <+ 0 THEN 
	'						OUTPUT "Length invalid, please try again"
	'					ENDIF
	'				UNTIL side2 > 0 
	'			ENDIF
	'		ENDIF
	'	ENDIF
	'
	'	IF Numberofsides = 2 THEN
	'		solution = 1
	'	ELSEIF Numberofsides = 1 and Numberofhypotenuse = 1 THEN
	'		solution = 2	
	'	ELSEIF Numberofangles = 1 and Numberofsides = 1 THEN
	'		OUTPUT "Is the non-hypotenuse side you entered adjacent to the angle you entered ?"
	'		OUTPUT "Enter 'YES' or 'NO'. They have to be in capital letters."		'
	'		REPEAT
	'			INPUT BBB
	'			IF BBB <> "YES" and BBB <> "NO" THEN 				'
	'				OUTPUT "Result invalid"
	'			ENDIF
	'		UNTIL BBB = "YES" or BBB = "NO2
	'	
	'		IF BBB = "YES" THEN
	'			solution = 3
	'		ELSEIF BBB = "NO" THEN
	'			solution = 4
	'		ENDIF
	'	ELSEIF NumberofHypotenuse = 1 and Numberofangles = 1 THEN	
	'		solution = 5
	'	ELSE 
	'		OUTPUT "I need more information. Please tell me another variable."
	'		OUTPUT "It could be a side or an angle"
	'		OUTPUT "Enter 'SIDE' or 'ANGLE', it has to be in capital letters"
	'	ENDIF
	'UNTIL solution >= 1 and solution <= 5
	'
	'OUTPUT "Calculation complete, here are the results..."
	'Radian1 = angle1 / 180 * pi
	'Radian2 = angle2 / 180 * pi
	'
	'CASE solution
	'CASE = 1
	'	Hypotenuse =(side1 ^ 2 + side2 ^ 2) ^ 0.5
	'	Radian1 = Math.Atan(Side1 / side2)
	'	Radian2 = Math.Atan(Side2 / side1)
	'
	'CASE = 2
	'	Side2 =(Hypotenuse ^ 2 - Side1 ^ 2) ^ 0.5
	'	Radian1 = Math.Asin(Side1 / Hypotenuse)
	'	Radian2 = Math.Asin(side2 / Hypotenuse)
	'CASE = 3
	'	Hypotenuse = side1 / Math.Cos(radian1)		'
	'	Side2 =(Hypotenuse ^ 2 - Side1 ^ 2) ^ 0.5
	'	Radian2 = Math.Asin(side1 / Hypotenuse)
	'CASE = 4
	'	Hypotenuse = side1 / math.Sin(radian1)
	'	Side2 =(Hypotenuse ^ 2 - Side1 ^ 2) ^ 0.5
	'	Radian2 = Math.Acos(side1 / hypotenuse)
	'CASE = 5
	'	side1 = Math.Sin(radian1) * Hypotenuse
	'	Side2 = Math.Cos(radian1) * Hypotenuse
	'	Radian2 = 90 / 180 * pi - radian1
	'END CASE
	'
	'Angle1 = radian1 * 180 / pi
	'Angle2 = radian2 * 180 / pi
	'Angle1 = math.Round(angle1, 2)
	'Angle2 = math.Round(angle2, 2)
	'Side1 = math.Round(side1, 2)
	'Side2 = math.Round(side2, 2)
	'Hypotenuse = math.Round(Hypotenuse, 2)
	'
	'OUTPUT	"hypotenuse is " , hypotenuse
	'OUTPUT "angle2 is " , angle2 , "°"
	'OUTPUT "angle1 is " , angle1 , "°"
	'OUTPUT "side2 is " , side2 , "°"
	'OUTPUT "side1 is " , side1 , "°"
	End Sub
End Module

​x
 
Imports System
​
Public Module Module1
​
    Public Sub Main()
        Dim angle1 as decimal = 0
        Dim radian1 as decimal = 0
        Dim variabletype as String
        Dim Sidetype as Char
        Dim Hypotenuse as decimal = 0
        Dim side2 as decimal = 0
        Dim side1 as decimal = 0
        Dim NumberofSides as integer = 0
        Dim Numberofangles as integer = 0
        Dim angle2 as decimal
        Dim solution as Integer
        Dim Numberofhypotenuse as integer = 0
        Dim BBB as String
        Dim pi as decimal
        Dim radian2 as decimal = 0
        Dim CCC as integer
        Dim DDD as integer
        Dim EEE as integer
        Dim FFF as integer
        Dim GGG as integer
        pi = 2 * Math.Asin(1)
        Console.WriteLine("Please select a variable you would like to enter. It could be a side or an angle of a right-angled triangle.")
        Console.WriteLine("Enter 'S' for side or 'A' for angle to continue. It has to be in a capital letter")
        Do
            Do
                variabletype = Console.ReadLine()
                If variabletype <> "A" and variabletype <> "S" then
                    Console.WriteLine("Variable invalid, please try again")
                End if
            loop until variabletype = "A" or variabletype = "S"
​
            If Variabletype = "A" then
                Numberofangles = Numberofangles + 1
                If numberofangles = 1 then
                    console.WriteLine("What is the degree of the non-90-degree angle?")
                    DO
                        angle1 = console.ReadLine()
                        If angle1 >= 90 or angle1 <= 0 then
                            Console.WriteLine("Angle invalid, please try again")
                        End if
                    Loop until angle1 > 0 and angle1 < 90
                End if
​
                If numberofangles = 2 then
                    console.WriteLine("What is the degree of the non-90-degree angle?")
                    DO
                        angle2 = console.ReadLine()
                        If angle2 >= 90 or angle2 <= 0 then
                            Console.WriteLine("Angle invalid, please try again.")
                            CCC = 1
                        End if
​
                        If CCC <> 1 then
                            If angle1 + angle2 = 90 then
                                DDD = 1
                            Else if Angle1 + angle2 <> 90 then
                                Console.WriteLine("Two angles you've entered don't add up to 90, please try again")
                            End if
                        End if
                    Loop until DDD = 1
                End if
​
                If numberofangles > 2 then
                    Console.WriteLine("You can't have a right -angled triangle with more than 2 non-90 degree angles!")
                End if
            End if
​
            If Variabletype = "S" then
                Console.WriteLine("What is tpye of the side")
                COnsole.WriteLine("It can either be the Hypotenuse or the right-angled side")
                Console.WriteLine("Enter (H) for Hypotenuse or (S) for the right-angled side")
                DO
                    Sidetype = Console.ReadLine()
                    If sidetype <> "H" and sidetype <> "S" Then
                        Console.WriteLine("Side Tpye invalid")
                    End if
                Loop until sidetype = "H" or sidetype = "S"
​
                If sidetype = "H" then
                    Console.WriteLine("What is the length of the Hypotenuse?")
                    Numberofhypotenuse = Numberofhypotenuse + 1
                    If Numberofhypotenuse = 1 then
                        Do
                            Hypotenuse = Console.ReadLine()
                            If numberofsides > 0 then
                                If Hypotenuse <= side1 then
                                    Console.WriteLine("Are you sure about your data? Your side is greater or equal to your hypotenuse! You have to try again.")
                                End if
                            End if
​
                            If hypotenuse <= 0 Then
                                Console.WriteLine("Hypotenuse invalid")
                                Console.WriteLine("Please try again")
                            End if
                        Loop Until Hypotenuse > 0 and Hypotenuse > side1
                    End if
​
                    If numberofhypotenuse > 1 then
                        Console.WriteLine("You do realise that you can't have two hypotenuses, right?")
                    End if
                End if
​
                If sidetype = "S" then
                    Numberofsides = Numberofsides + 1
                    Console.WriteLine("Please enter the value of a side")
                    If Numberofsides = 1
                        Do
                            Side1 = console.ReadLine()
                            If side1 <= 0 then
                                Console.WriteLine("Length invalid")
                                Console.WriteLine("Please try again")
                            End if
​
                            If numberofhypotenuse > 0 then
                                If side1 >= hypotenuse then
                                    EEE = 2
                                    Console.WriteLine("Are you sure? Your side is greater or equal to hypotenuse! Please try again.")
                                Else if Side1 < hypotenuse then
                                    EEE = 3
                                End if
                            End if
​
                            If Numberofhypotenuse = 0
                                FFF = 1
                            End if
​
                            If FFF = 1 or EEE = 3 then
                                GGG = 1
                            End if
                        Loop Until side1 > 0 and GGG = 1
                    End if
​
                    If Numberofsides = 2 then
                        Do
                            Side2 = console.ReadLine()
                            If side2 <= 0 then
                                Console.WriteLine("Length invalid")
                                Console.WriteLine("Please try again")
                            End if
                        Loop Until side2 > 0
                    End if
                End if
            End if
​
            If Numberofsides = 2 then
                solution = 1
            Elseif Numberofsides = 1 and Numberofhypotenuse = 1 then
                solution = 2
            Elseif Numberofangles = 1 and Numberofsides = 1 then
                Console.WriteLine("Is the non-hypotenuse side you entered adjacent to the angle you entered ?")
                Console.WriteLine("Enter 'YES' or 'NO'. They have to be in capital letters.")
                Do
                    BBB = console.ReadLine()
                    If BBB <> "YES" and BBB <> "NO" then
                        console.WriteLine("Result invalid")
                    End if
                Loop until BBB = "YES" or BBB = "NO"
​
                If BBB = "YES" then
                    solution = 3
                Else
                    solution = 4
                End if
            Elseif NumberofHypotenuse = 1 and Numberofangles = 1 then
                Solution = 5
            Else
                console.WriteLine("I need more information. Please tell me another variable.")
                Console.WriteLine("It could be a side or an angle")
                Console.WriteLine("Enter 'S' or 'A', it has to be in capital letters")
            End if
        loop until solution >= 1 and solution <= 5
​
        Console.WriteLine("Calculation complete, here are the results...")
        Radian1 = angle1 / 180 * pi
        Radian2 = angle2 / 180 * pi
        Select Case solution
            Case is = 1
                Hypotenuse =(side1 ^ 2 + side2 ^ 2) ^ 0.5
                Radian1 = Math.Atan(Side1 / side2)
                Radian2 = Math.Atan(Side2 / side1)
            Case is = 2
                Side2 =(Hypotenuse ^ 2 - Side1 ^ 2) ^ 0.5
                Radian1 = Math.Asin(Side1 / Hypotenuse)
                Radian2 = Math.Asin(side2 / Hypotenuse)
            Case is = 3
                Hypotenuse = side1 / Math.Cos(radian1)
                Side2 =(Hypotenuse ^ 2 - Side1 ^ 2) ^ 0.5
                Radian2 = Math.Asin(side1 / Hypotenuse)
            Case is = 4
                Hypotenuse = side1 / math.Sin(radian1)
                Side2 =(Hypotenuse ^ 2 - Side1 ^ 2) ^ 0.5
                Radian2 = Math.Acos(side1 / hypotenuse)
            Case is = 5
                side1 = Math.Sin(radian1) * Hypotenuse
                Side2 = Math.Cos(radian1) * Hypotenuse
                Radian2 = 90 / 180 * pi - radian1
        End Select
​
        Angle1 = radian1 * 180 / pi
        Angle2 = radian2 * 180 / pi
        Angle1 = math.Round(angle1, 2)
        Angle2 = math.Round(angle2, 2)
        Side1 = math.Round(side1, 2)
        Side2 = math.Round(side2, 2)
        Hypotenuse = math.Round(Hypotenuse, 2)
        Console.WriteLine("Angle1 is " & angle1 & "°")
        Console.WriteLine("Angle2 is " & angle2 & "°")
        Console.WriteLine("Side1 is " & Side1)
        Console.WriteLine("Side2 " & side2)
        Console.WriteLine("Hypotenuse is " & hypotenuse)
        Console.WriteLine("And you're welcome")
    'REAL: Angle1, radian1,hypotenuse, side1, side2, angle2, radian2, pi
    'INTEGER: Numberofsides, Numberofangles,solutions, numberofhypotenuse, CCC, DDD, EEE, FFF, GGG
    'pi = 2 * Math.Asin(1)
    'CHAR: Sidetype, variabletype 
    'STRiNG: BBB 
    'OUTPUT "Please select a variable you would like to enter. It could be a side or an angle of a right-angled triangle."
    'OUTPUT "Enter 'SIDE' or 'ANGLE' to continue. It has to be in capital letters"
    '
    'REPEAT
    '   REPEAT
    '       INPUT Variabletype 
    '       IF variabletype <> "A" and variabletype <> "S THEN
    '           OUTPUT "Variable invalid, please try again"
    '       ENDIF
    '   UNTIL variabletype = "A" or variabletype = "S"
    '   
    '   IF Variabletype = "A" THEN
    '       Numberofangles = Numberofangles + 1
    '       IF numberofangles = 1 THEN
    '           OUTPUT "What is the degree of the non-90-degree angle?"
    '           REPEAT
    '               INPUT angle1
    '               IF angle1 >= 90 or angle1 <= 0 THEN
    '                   OUTPUT "Angle invalid, please try again"
    '               ENDIF
    '           UNTIL angle1 > 0 and angle1 < 90
    '       ENDIF
    '       IF numberofangles = 2 THEN
    '           OUTPUT "What is the degree of the non-90-degree angle?"
    '           REPEAT
    '               INPUT angle2
    '               IF angle2 >= 90 or <= 0 THEN
    '                   OUTPUT "Angle invalid, please try again."
    '                   CCC = 1
    '               ENDIF
    '               IF CCC <> 1 THEn
    '                   IF angle1 + angle2 = 90 THEN
    '                       DDD = 1
    '                   ELSEIF angle1 + angle2 <> 90 THEN
    '                       OUTPUT "Two angles you've entered don't add up to 90 degree, please try again." "
    '                   ENDIF
    '               ENDIF
    '           UNTIL DDD = 1
    '       ENDIF
    '       IF numberofangles > 2 THEN
    '           OUTPUT "You can't have a right-angled triangle with more than 2 non-degree angles"
    '       ENDIF
    '   ENDIF
    '   IF Variabletype = "S" THEN
    '       OUTPUT "What is tpye of the side?"
    '       OUTPUT "It can either be the Hypotenuse or the right-angled side"
    '       OUTPUT "Enter (H) for Hypotenuse or (S) for the right-angled side"
    '       
    '       REPEAT
    '           INPUT sidetype
    '           IF sidetype <> "H" and sidetype <> "S"
    '               OUTPUT "Side type invalid"
    '           ENDIF
    '       UNTIL Sidetype = "H" or Sidetype = "S"
    '
    '       IF sidetype = "H" THEN
    '           OUTPUT "WHAT is the lengthe of the hypotenuse?"
    '           Numberofhypotenuse = Numberofhypotenuse + 1
    '           IF Numberofhypotenuse = 1 THEN
    '               REPEAT
    '                   INPUT Hypotenuse
    '                   IF Numberofsides > 0 THEN
    '                       IF Hypotenuse <= side1 THEN
    '                           OUTPUT "Your side is greater or equal to your Hypotenuse, please try again"
    '                       ENDIF
    '                   ENDIF
    '                   IF hypotenuse <= 0 THEN
    '                       OUTPUT "Hypotenuse invalid"
    '                       OUTPUT "Please try again"
    '                   ENDIF
    '               UNTIL Hypotenuse > 0 and hypotenuse > side 1
    '           ENDIF
    '           
    '           IF numberofhypotenuse > 1 THEN
    '               OUTPUT "You can't have two hypotenuses"
    '           ENDIF
    '       ENDIF
    '
    '       IF sidetype = "S" THEN
    '           Numberofsides = Numberofsides + 1
    '           OUTPUT "Please enter the value of a side"
    '           IF numberofsides = 1
    '               REPEAT
    '                   INPUT side1
    '                   IF side1 <= 0 THEN
    '                       OUTPUT "Length invalid, please try again"
    '                   ENDIF
    '                   IF numberofhypotenuse > 0 THEN
    '                       IF side1 >= hypotenuse THEN
    '                           IF side1 >= hypotenuse THEN
    '                               EEE = 2
    '                               OUTPUT "Are you sure? Your side is greater or equal to hypotenuse! Please try again."
    '                           ELSEIF side1 < hypotenuse THEN
    '                               EEE = 3 
    '                           ENDIF
    '                       ENDIF
    '                       IF Numberofhypotenuse = 0 THEN
    '                           FFF = 1
    '                       ENDIF
    '                       IF FFF = 1 or EEE = 3 THEN
    '                           GGG = 1
    '                       ENDIF
    '               UNTIL SIDE1 > 0 and GGG = 1
    '           ENDIF
    '       
    '           IF Numberofsides = 2 THEN
    '               REPEAT 
    '                   INPUT side2
    '                   IF side2 <+ 0 THEN 
    '                       OUTPUT "Length invalid, please try again"
    '                   ENDIF
    '               UNTIL side2 > 0 
    '           ENDIF
    '       ENDIF
    '   ENDIF
    '
    '   IF Numberofsides = 2 THEN
    '       solution = 1
    '   ELSEIF Numberofsides = 1 and Numberofhypotenuse = 1 THEN
    '       solution = 2    
    '   ELSEIF Numberofangles = 1 and Numberofsides = 1 THEN
    '       OUTPUT "Is the non-hypotenuse side you entered adjacent to the angle you entered ?"
    '       OUTPUT "Enter 'YES' or 'NO'. They have to be in capital letters."       '
    '       REPEAT
    '           INPUT BBB
    '           IF BBB <> "YES" and BBB <> "NO" THEN                '
    '               OUTPUT "Result invalid"
    '           ENDIF
    '       UNTIL BBB = "YES" or BBB = "NO2
    '   
    '       IF BBB = "YES" THEN
    '           solution = 3
    '       ELSEIF BBB = "NO" THEN
    '           solution = 4
    '       ENDIF
    '   ELSEIF NumberofHypotenuse = 1 and Numberofangles = 1 THEN   
    '       solution = 5
    '   ELSE 
    '       OUTPUT "I need more information. Please tell me another variable."
    '       OUTPUT "It could be a side or an angle"
    '       OUTPUT "Enter 'SIDE' or 'ANGLE', it has to be in capital letters"
    '   ENDIF
    'UNTIL solution >= 1 and solution <= 5
    '
    'OUTPUT "Calculation complete, here are the results..."
    'Radian1 = angle1 / 180 * pi
    'Radian2 = angle2 / 180 * pi
    '
    'CASE solution
    'CASE = 1
    '   Hypotenuse =(side1 ^ 2 + side2 ^ 2) ^ 0.5
    '   Radian1 = Math.Atan(Side1 / side2)
    '   Radian2 = Math.Atan(Side2 / side1)
    '
    'CASE = 2
    '   Side2 =(Hypotenuse ^ 2 - Side1 ^ 2) ^ 0.5
    '   Radian1 = Math.Asin(Side1 / Hypotenuse)
    '   Radian2 = Math.Asin(side2 / Hypotenuse)
    'CASE = 3
    '   Hypotenuse = side1 / Math.Cos(radian1)      '
    '   Side2 =(Hypotenuse ^ 2 - Side1 ^ 2) ^ 0.5
    '   Radian2 = Math.Asin(side1 / Hypotenuse)
    'CASE = 4
    '   Hypotenuse = side1 / math.Sin(radian1)
    '   Side2 =(Hypotenuse ^ 2 - Side1 ^ 2) ^ 0.5
    '   Radian2 = Math.Acos(side1 / hypotenuse)
    'CASE = 5
    '   side1 = Math.Sin(radian1) * Hypotenuse
    '   Side2 = Math.Cos(radian1) * Hypotenuse
    '   Radian2 = 90 / 180 * pi - radian1
    'END CASE
    '
    'Angle1 = radian1 * 180 / pi
    'Angle2 = radian2 * 180 / pi
    'Angle1 = math.Round(angle1, 2)
    'Angle2 = math.Round(angle2, 2)
    'Side1 = math.Round(side1, 2)
    'Side2 = math.Round(side2, 2)
    'Hypotenuse = math.Round(Hypotenuse, 2)
    '
    'OUTPUT "hypotenuse is " , hypotenuse
    'OUTPUT "angle2 is " , angle2 , "°"
    'OUTPUT "angle1 is " , angle1 , "°"
    'OUTPUT "side2 is " , side2 , "°"
    'OUTPUT "side1 is " , side1 , "°"
    End Sub
End Module
​

View IL Code