Membuat Konversi Derajat Temperatur dengan VB.NET 2010

Dalam dunia pemograman membuat konversi derajat temperatur kita harus mengenal dengan histilah suhu kelvin, celcius, reamus dan juga fahrenheit. Lanjut saja untuk memulai programnya :

Baca Juga : menghitung Keliling Segitiga di VB.NET 2010

1.Buka Microsoft Visual Studio 2010.
2. Pilih Windows Form Application.
3. Label sebanyak 6.
    Membuat button sebanyak 2 buah yaitu btnhitung dan btnbersih.
    TextBox sebanyak 5 yaitu : txtVarTemp, txtkelvin, txtCelcius, txtReamur dan txtFahrenheit.
    RadioButton sebanyak 4 yaitu dengan (Name) : rbkelvin, rbcelcius, rbreamur, rbfahrenhit.
    GroupBox sebanyak 2
    Warna berada di properties > BackColor.

Setelah selesai maka tampilannya sebagai berikut :

Selanjutnya klik btnhitung sebanyak 2x lalu isikan codingnya sebagai berikut :

Dim sngVarTemp, sngVarKelvin, sngVarCelcius, sngVarReamur, sngVarFahrenheit As Single
        sngVarTemp = CSng(txtVarTemp.Text)

        Select Case True
            Case rbkelvin.Checked
                sngVarKelvin = sngVarTemp
                sngVarCelcius = sngVarTemp - 273
                sngVarReamur = (sngVarTemp - 273) * 4 / 5
                sngVarFahrenheit = ((sngVarTemp - 273) * 9 / 5) + 32

            Case rbcelcius.Checked
                sngVarKelvin = sngVarTemp + 273
                sngVarCelcius = sngVarTemp
                sngVarReamur = sngVarTemp * 4 / 5
                sngVarFahrenheit = (sngVarTemp * 9 / 5) + 32

            Case rbreamur.Checked
                sngVarKelvin = (sngVarTemp * 5 / 4) + 273
                sngVarCelcius = sngVarTemp * 5 / 4
                sngVarReamur = sngVarTemp
                sngVarFahrenheit = (sngVarTemp * 9 / 4) + 32

            Case rbfahrenhit.Checked
                sngVarKelvin = ((sngVarTemp - 32) * 5 / 9) + 273
                sngVarCelcius = (sngVarTemp - 32) * 5 / 9
                sngVarReamur = (sngVarTemp - 32) * 4 / 9
                sngVarFahrenheit = sngVarTemp

        End Select
        txtkelvin.Text = CStr(sngVarKelvin)
        txtCelcius.Text = CStr(sngVarCelcius)
        txtReamur.Text = CStr(sngVarReamur)
        txtFahrenheit.Text = CStr(sngVarFahrenheit)

    End Sub

Selanjutnya Klik btnbersih sebanyak 2x lalu isikan codingnya sebagai berikut :

txtVarTemp.Text = "0"
        txtkelvin.Text = "0"
        txtCelcius.Text = "0"
        txtReamur.Text = "0"
        txtFahrenheit.Text = "0"
    End Sub

Note : Setiap anda klik btnbersih maka hasilnya yang di txtkelvin,txtCelcius,txtReamur dan txtfahrenheit akan keluar angka 0 dan .

Jika sudah dicoding maka tampilan jelasnya seperti ini :