'Janet Koublanou

'Temperature Conversion Program 

'3/19/2021

​

Imports System

Public Module Module1

    Public Sub Main()

        Dim unit As Char

        Dim inputTemp As Single

        Dim outputTemp As Single

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

        inputTemp = Console.ReadLine()

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

        unit = Console.ReadLine()

        If unit = "F" Then

            outputTemp = fahrenheitToCelsius(inputTemp)

            Console.WriteLine("This temperture is " & outputTemp & " degrees Celsius.")

        ElseIf unit = "C" Then

            outputTemp = celsiusToFahrenheit(inputTemp)

            Console.WriteLine("This temperture is " & outputTemp & " degrees Fahrenheit.")

        Else

            Console.WriteLine("Invalid Input")

        End If

    End Sub

    Private Function fahrenheitToCelsius(Byval fahrenheitTemp As Single) As Single

        Return (5/9) * (fahrenheitTemp - 32)

    End Function

    Private Function celsiusToFahrenheit(Byval celsiusTemp As Single) As Single

        Return (9/5) * celsiusTemp + 32

    End Function

End Module