VB.Net - Konversi Suhu

No.	Kontrol	Properties
1	RadioButton1	Text = Celcius-Fahrenheit Checked = true
2	RadioButton2	Text = Celcius-Reamur
3	RadioButton3	Text = Fahrenheit-Celcius
4	Label1	Text = Celcius
5	Label2	Text = Fahrenheit
6	Textbox1
7	Textbox2	Readonly =true
8	Button1	Name = btnHitung Text = Hitung
9	Button2	Name = btnExit Text = Exit

Public Class KonversiSuhu 

Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged

        If RadioButton1.Checked = True Then

            Label1.Text = "Celcius"

            Label2.Text = "Fahrenheit"

        End If

    End Sub

Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged

        If RadioButton2.Checked = True Then

            Label1.Text = "Celcius"

            Label2.Text = "Reamur"

        End If

    End Sub

Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged

        If RadioButton3.Checked = True Then

            Label1.Text = "Fahrenheit"

            Label2.Text = "Celcius"

        End If

    End Sub

Private Sub btnHitung_Click(sender As Object, e As EventArgs) Handles btnHitung.Click

        If RadioButton1.Checked = True Then

            textbox2.Text = 1.8 * Val(textbox1.Text) + 32

        ElseIf RadioButton2.Checked = True Then

            textbox2.Text = Val(textbox1.Text) * 0.8

        ElseIf RadioButton3.Checked = True Then

            textbox2.Text = (Val(textbox1.Text) - 32) / 1.8

        End If

    End Sub

    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click

        Me.Close()

    End Sub

End Class