Ejemplo utilizando switch case: Calculando Grados Fahrenheit vb.net

En este ejemplo de visual studio utilizaremos Las Formulas de conversión de incrementos
de grados Fahrenheit Celsius y Kelvin para calcular el valor de temperatura Introducido utilizando el switch  case.

Formulas:
Fahrenheit a Celsius:   C =(F-32)*5/9
Fahrenheit a Kelvin: K = (F-32)*5/9 +273

Celsius a Fahrenheit:  F =C*9/5+32
Celsius a Kelvin: K=C+273

Kelvin a Fahrenheit:   F= (k-273)9/5+32
Kelvin a Celsius: C=K-273

Diseño:

ocuparemos 3 labels, 1 textboxt, 1 combobox y 1 boton.

Codigo:

Public Class Form1
    Dim f, c, k As Double
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'asignadole los nombre 
        ComboBox1.Items.Add("Fahrenheit a Celsius")
        ComboBox1.Items.Add("Fahrenheit a Kelvin")
        ComboBox1.Items.Add("Celsius a Fahrenheit")
        ComboBox1.Items.Add("Celsius a Kelvin")
        ComboBox1.Items.Add("Kelvin a Fahrenheit")
        ComboBox1.Items.Add("Kelvin a Celsius")

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Select Case ComboBox1.Text
            Case "Fahrenheit a Celsius"
                'Fahrenheit a Celsius':
  Label2.Text = "Total: " + (CStr((TextBox1.Text - 32) * 5 / 9)) + " C"

            Case "Fahrenheit a Kelvin"
  Label2.Text = "Total: " + (CStr((TextBox1.Text - 32) * 5 / 9 + 273)) + " K"

            Case "Celsius a Fahrenheit"
  Label2.Text = "Total: " + CStr((TextBox1.Text * 9 / 5 + 32)) + " F"

            Case "Celsius a Kelvin"
  Label2.Text = "Total: " + CStr((TextBox1.Text + 273)) + " k"

            Case "Kelvin a Fahrenheit"
  Label2.Text = "Total: " + CStr(((TextBox1.Text - 273) * 9 / 5 + 32)) + " F"

            Case "Kelvin a Celsius"
  Label2.Text = "Total: " + CStr((TextBox1.Text - 273)) + " C"

            Case Else : Label2.Text = "Error"
        End Select
    End Sub
End Class

Descargar Ejemplo:

Ejemplo switch case Calculando Grados asp

vb.net