Code Snippets

VB.NET Source Code

Welcome to Dream.In.Code
	Become a VB.NET Expert! Join 244,202 VB.NET Programmers for FREE! Get instant access to thousands of VB.NET experts, tutorials, code snippets, and more! There are 1,456 people online right now. Registration is fast and FREE... Join Now! Chat LIVE With a VB.NET Expert

Temperature Converter

This is a temperature converter function in VB.Net. Not only does it do Celsius & Fahrenheit but it also does Kelvins conversions as well

Submitted By: PsychoCoder

Actions:

Rating:

Views: 2,735

Language: VB.NET

Last Modified: July 26, 2007

Instructions: To use this function is simple, the 3 parameters (all required are:
InitialTemp: The starting temperature
ConvFrom (Item in TempUnits Enum): What are you converting it from?
ConvTo (Item in TempUnits Enum): What do you want it converted to?

Snippet

'Enumeration to hold the temp types
Enum TempUnits
Kelvins = 0
Celsius = 1
Fahrenheit = 2
End Enum
'Now the conversion function
Public Function TempConverter(ByVal InitialTemp As Double, ByVal ConvFrom As TempUnits, ByVal ConvTo As TempUnits) As Double
Dim Temp As Double
'First make sure they didnt enter same values for convert from & convert to
If ConvFrom = ConvTo Then
'Return initial value
Temp = InitialTemp
Else
Try
'Now decide what they want done
Select Case ConvFrom
'Convert from Kelvins
Case TempUnits.Kelvins
'To Celsius
If ConvTo = TempUnits.Celsius Then
'Celsius = Kelvin - 273.15
Temp = InitialTemp - 273.15
'To Fahrenheit
ElseIf ConvTo = TempUnits.Fahrenheit Then
Temp = (InitialTemp - 273.15) * 1.8 + 32.0#
End If
'Convert from Celsius
Case TempUnits.Celsius
'To Kelvins
If ConvTo = TempUnits.Kelvins Then
'Kelvin = Celsius + 273.15
Temp = InitialTemp + 273.15
'To Fahrenheit
ElseIf ConvTo = TempUnits.Fahrenheit Then
'degree F = degree C x 1.8 + 32.
Temp = InitialTemp * 1.8 + 32.0#
End If
'Convert from Fahrenheit
Case TempUnits.Fahrenheit
'To Celsius
If ConvTo = TempUnits.Celsius Then
'degree C = (degree F - 32.) / 1.8
Temp = (InitialTemp - 32.0#) / 1.8
'To Kelvins
ElseIf ConvTo = TempUnits.Kelvins Then
Temp = ((InitialTemp - 32.0#) / 1.8) + 273.15
End If
End Select
Catch ex As Exception
MessageBox.Show(ex.Message, "Conversion Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Temp = 0
End Try
End If
Return Temp
End Function

Copy & Paste

'Enumeration to hold the temp types
Enum TempUnits
    Kelvins = 0
    Celsius = 1
    Fahrenheit = 2
End Enum

'Now the conversion function
Public Function TempConverter(ByVal InitialTemp As Double, ByVal ConvFrom As TempUnits, ByVal ConvTo As TempUnits) As Double
    Dim Temp As Double
    'First make sure they didnt enter same values for convert from & convert to
    If ConvFrom = ConvTo Then
        'Return initial value
        Temp = InitialTemp
    Else
        Try
            'Now decide what they want done
            Select Case ConvFrom
                'Convert from Kelvins
                Case TempUnits.Kelvins
                    'To Celsius
                    If ConvTo = TempUnits.Celsius Then
                        'Celsius = Kelvin - 273.15
                        Temp = InitialTemp - 273.15
                        'To Fahrenheit
                    ElseIf ConvTo = TempUnits.Fahrenheit Then
                        Temp = (InitialTemp - 273.15) * 1.8 + 32.0#
                    End If
                'Convert from Celsius
                Case TempUnits.Celsius
                    'To Kelvins
                    If ConvTo = TempUnits.Kelvins Then
                        'Kelvin = Celsius + 273.15
                        Temp = InitialTemp + 273.15
                        'To Fahrenheit
                    ElseIf ConvTo = TempUnits.Fahrenheit Then
                        'degree F = degree C x 1.8 + 32.
                        Temp = InitialTemp * 1.8 + 32.0#
                    End If
                'Convert from Fahrenheit
                Case TempUnits.Fahrenheit
                    'To Celsius
                    If ConvTo = TempUnits.Celsius Then
                        'degree C = (degree F - 32.) / 1.8
                        Temp = (InitialTemp - 32.0#) / 1.8
                        'To Kelvins
                    ElseIf ConvTo = TempUnits.Kelvins Then
                        Temp = ((InitialTemp - 32.0#) / 1.8) + 273.15
                    End If
            End Select
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Conversion Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Temp = 0
        End Try
    End If
    Return Temp
End Function