Imports System

'Aleister Morales

'3/19/21

'Temperature conversion program

​

Public Module Module1

    Public Sub Main()

        Dim inputTemp, outputTemp As Integer

        Dim choice As Char

        Console.WriteLine("Enter an input temperature: ")

        inputTemp = Console.ReadLine()

        Console.WriteLine("Was that in (F)ahrenheit or (C)elsius? (F or C): ")

        choice = Console.ReadLine()

        If choice <> "F" And choice <> "C" Then

            Console.WriteLine("Error: You did not choose (F)ahrenheit or (C)elsius")

        Else 

            If choice = "F" Then

                outputTemp = convertToCelsius(inputTemp)

                Console.WriteLine(outputTemp & " degrees Celsius")

            ElseIf choice = "C" Then

                outputTemp = convertToFahrenheit(inputTemp)

                Console.WriteLine(outputTemp & " degrees Fahrenheit")

            End If

        End If

    End Sub

    Private Function convertToFahrenheit(ByVal inputTempC As Integer) As Single

        Dim outputTempF As Integer

        outputTempF = 9/5 * inputTempC + 32

        Return outputTempF

​

    End Function 

    Private Function convertToCelsius(Byval inputTempF As Integer) As Single

        Dim outputTempC As Integer

        outputTempC = 5/9 * (inputTempF - 32)

        Return outputTempC

    End Function

End Module