Imports System
Public Class TemperatureConvert_VB_NET
Public Shared Sub temperatureConvert(ByVal temperature As Double, ByVal unitType As Char, ByVal results As Double())
Select Case unitType
Case "c"c
results(0) = ((9.0 / 5.0) * temperature) + 32
results(1) = (temperature + 273.15)
Case "f"c
results(0) = (temperature - 32) / 1.8
results(1) = (temperature - 32) * 5 / 9.0 + 273.15
Case "k"c
results(0) = (temperature - 273.15)
results(1) = (((9.0 / 5.0) * temperature) - 459.67)
Case Else
results(0) = 0
results(1) = 0
End Select
End Sub
Public Shared Sub Main(ByVal args As String())
Dim result As Double() = New Double(1) {}
temperatureConvert(24, "c"c, result)
Console.WriteLine("Fahrenheit is: " & result(0) & " degrees" & Environment.NewLine &
"Kelvin is: " & result(1) & " degrees" & Environment.NewLine)
temperatureConvert(3, "f"c, result)
Console.WriteLine("Celsius is: " & result(0) & " degrees" & Environment.NewLine &
"Kelvin is: " & result(1) & " degrees" & Environment.NewLine)
temperatureConvert(3, "k"c, result)
Console.WriteLine("Celsius is: " & result(0) & " degrees" & Environment.NewLine &
"Fahrenheit is: " & result(1) & " degrees" & Environment.NewLine)
End Sub
End Class
' run:
'
' Fahrenheit is: 75.2 degrees
' Kelvin is: 297.15 degrees
'
' Celsius is: -16.11111111111111 degrees
' Kelvin is: 257.0388888888889 degrees
'
' Celsius is: -270.15 degrees
' Fahrenheit is: -454.27000000000004 degrees
'
