Program Konversi Suhu mengunakan Function VB.net

Program yang akan saya buat adalah program konversi terperatur dari 4 satuan temperatur yang berbeda, yaitu Celcius, Fahrenheit, Reamur dan Kelvin. Tampilan programini sangat sederhana yaitu dalam satu form terdapat 4 textbox yang masing-masing adalah textbox yang di gunakan untuk menginputkan nilai pada masing-masing satuan suhu yang akan dikonversi. Tidak ada fitur button pada program ini karena nilai temperatur akan langsung terkonversi bila kita memasukkan nilai berupa angka ke salah satu textbox dari satuan suhu yang ingin dikonversikan karena pada program ini menggunakan event keyup, yaitu event dimana nilai output akan ditampilkan atau dieksekusi setelah user selesai mnginputkan nilai angka, atau sesaat setelah keyboard di pencet akan keluar output konversi masing-masing suhu. Pada program ini digunakan fungsi, sungsi yang digunakan adalah fungsi yang tidak mengembalikan nilai. Berarti pada program ini digunakan Subroutine atau biasa ditulis dengan sub saja, ada 4 Subroutine di program ini antara lain  Subroutine yang berisi rumus-rumus untuk konversi temperatur Celcius, Fahrenheit, Reamur dan Kelvin. Pemanggilan Subroutine cukup dilakukan dengan call (nama Subroutine). Rumus yang digunakan pada program konversi suhu ini adalah perbandingan dari titik didih dan titik beku dari masing-masing suhu yaitu.

			titik beku	titik didih
Celcius			0	100
Rheamur			0	80
Fahrenheit			32	212
Kelvin			273.15	373.15

Dari perbedaan titik beku dan titik didih antara ke empat satuan suhu tersebut kita dapat membuat suatu rumus atau formula yang didasarkan pada perbandingan dari titik didih dan titik beku keempat satuan suhu yang berbeda itu. formula yang dapat kita buat antara lain adalah : 

Celcius	Reamur	Fahrenheit	Kelvin
5	4	9 + 32	1 + 273

                                                          

Bila dikelompokan formula konversi yang kita dapatkan dan akan kita gunakan pada program kita ialah seperti yang ada pada table berikut

	Celcius	Rheamur	Fahrenheit	Kelvin
Celcius	C	4/5*C	9/5*C+32	C + 273.15
Rheamur	5/4*R	R	9/4*R+32	5/4*R+273.15
Fahrenheit	(F-32)*5/9	(F-32)*4/9	F	(F-32)*5/9+273.15
Kelvin	K-273.15	(K-273.15)*4/5	(K-273.15)*9/5+32	K

Tampilan dari program tersebut adalah sebagai berikut

Source kode dari program tersebut adalah sebagai berikut

Public Class Form1
    Dim C2R, C2F, C2K, R2C, R2F, R2K, F2C, F2R, F2K, K2C, K2R, K2F, Cel, Rhe, Fah, Kel As Single
    Sub Celcius()

        Cel = Val(Text1.Text)
        C2R = 4 / 5 * Cel
        C2F = 9 / 5 * Cel + 32
        C2K = Cel + 273.15

    End Sub

    Sub Rheamur()

        Rhe = Val(Text2.Text)
        R2C = 5 / 4 * Rhe
        R2F = 9 / 4 * Rhe + 32
        R2K = 5 / 4 * Rhe + 273.15

    End Sub

    Sub Fahrenheit()

        Fah = Val(Text3.Text)
        F2C = (Fah - 32) * 5 / 9
        F2R = (Fah - 32) * 4 / 9
        F2K = (Fah + 459.67) * 5 / 9

    End Sub

    Private Sub Kelvin()

        Kel = Val(Text4.Text)
        K2C = Kel - 273.15
        K2R = (Kel - 273.15) * 4 / 5
        K2F = (Kel - 273.15) * 9 / 5 + 32

    End Sub
    Sub Form_Load()

        Call Celcius()
        Text2.Text = C2R
        Text3.Text = C2F
        Text4.Text = C2K

    End Sub

    Sub Text4_KeyUp()

        Call Kelvin()
        Text1.Text = K2C
        Text2.Text = K2R
        Text3.Text = K2F

    End Sub

    Private Sub Text1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Text1.KeyUp
        Call Celcius()
        Text2.Text = C2R
        Text3.Text = C2F
        Text4.Text = C2K
    End Sub

    Private Sub Text2_KeyUp()
        Call Rheamur()
        Text1.Text = R2C
        Text3.Text = R2F
        Text4.Text = R2K

    End Sub


    Private Sub Text3_KeyUp()

        Call Fahrenheit()
        Text1.Text = F2C
        Text2.Text = F2R
        Text4.Text = F2K

    End Sub



  
End Class

Untuk yang pengen project VB nya bisa langsung donload DISINI