Membuat converter Temperatur visual basic 2008/ vb.net

Untuk membuat converter Temperatur visual basic 2008/ vb.net sangatlah sederhana, yang terpenting anda sudah tahu rumus awal perbedaan antara farenheit dengan celcius, dan rumus untuk meng konfersi farenheit ke celcius adalah (data temperatur*1.8)+32 dan rumus untuk konfersi dari celcius ke farenheit adalah (data temperatur-32)/1.8, maka selanjutnya saya akan mencoba membuat konferter temperatur paling sederhana menggunakan Visual Basic 2008 / vb.net.

Dan dalam membuat converter Temperatur visual basic 2008/ vb.net yang di butuhkan adalah satu form dengan 1 textbox, 2 radiobutton, dan 1 label seperti gambar dibawah ini:

 

Setelah membuat form dengan tampilan seperti diatas kemudian klik dua kali form tersebut dan hapus semua kode yang sudah ada dan masukkan kode dibawah:

Public Class Form1

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked = True Then

            Label1.Text = TextBox1.Text & " Fahrenheit = " & (TextBox1.Text * 1.8) + 32 & " Celsius"
        End If
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton2.Checked = True Then
            Label1.Text = TextBox1.Text & " Celsius = " & FormatNumber((TextBox1.Text - 32) / 1.8, 2) & " Fahrenheit"
        End If
    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Dim angka As Integer = Asc(e.KeyChar)
        If Not (((angka >= 48) And (angka <= 57)) Or (angka = 8)) Then
            e.Handled = True
        End If
End Class

Kemudian Run program tersebut dan hasilnya akan secara otomatis akan menghitung angka yang dimasukkan kedalam textbox1.