ANALISIS LISTING PROGRAM KONVERSI SUHU

Listing Function konversi suhu

Public Class Form1

   

    Function konversi()

        'menunjukkan function dari konversi

        Dim sngVarTemp As Single

        Dim sngVarKelvin As Single

        Dim sngVarCelcius As Single

        Dim sngVarReamur As Single

        Dim sngVarFahrenheit As Single

        'penjabaran tipe data yang digunakan

        sngVarTemp = CSng(TextBox1.Text)

        'menunjukkan sngVarTemp merupakan variabel pengganti dari data single di textbox 1

        Select Case True

            Case RadioButton1.Checked

                sngVarKelvin = sngVarTemp

                sngVarCelcius = sngVarTemp - 273

                sngVarReamur = (sngVarTemp - 273) * 4 / 5

                sngVarFahrenheit = ((sngVarTemp - 273) * 9 / 5) + 32

                'menunjukkan perhitungan setiap derajat pembanding, jika input yang diisi merupakan derajat kelvin

                TextBox2.Text = sngVarKelvin

                TextBox3.Text = sngVarCelcius

                TextBox4.Text = sngVarReamur

                TextBox5.Text = sngVarFahrenheit

                'menunjukkan pengisian pada setiap textbox untuk masing-masing hasil konversi

            Case RadioButton2.Checked

                sngVarKelvin = sngVarTemp + 273

                sngVarCelcius = sngVarTemp

                sngVarReamur = sngVarTemp * 4 / 5

                sngVarFahrenheit = (sngVarTemp * 9 / 5) + 32

                'menunjukkan perhitungan setiap derajat pembanding, jika input yang diisi merupakan derajat celcius

                TextBox2.Text = sngVarKelvin

                TextBox3.Text = sngVarCelcius

                TextBox4.Text = sngVarReamur

                TextBox5.Text = sngVarFahrenheit

                'menunjukkan pengisian pada setiap textbox untuk masing-masing hasil konversi

            Case RadioButton3.Checked

                sngVarKelvin = (sngVarTemp * 5 / 4) + 273

                sngVarCelcius = sngVarTemp * 5 / 4

                sngVarReamur = sngVarTemp

                sngVarFahrenheit = (sngVarTemp * 9 / 4) + 32

                'menunjukkan perhitungan setiap derajat pembanding, jika input yang diisi merupakan derajat reamur

                TextBox2.Text = sngVarKelvin

                TextBox3.Text = sngVarCelcius

                TextBox4.Text = sngVarReamur

                TextBox5.Text = sngVarFahrenheit

                'menunjukkan pengisian pada setiap textbox untuk masing-masing hasil konversi

            Case RadioButton4.Checked

                sngVarKelvin = ((sngVarTemp - 32) * 5 / 9) + 273

                sngVarCelcius = (sngVarTemp - 32) * 5 / 9

                sngVarReamur = (sngVarTemp - 32) * 4 / 9

                sngVarFahrenheit = sngVarTemp

                'menunjukkan perhitungan setiap derajat pembanding, jika input yang diisi merupakan derajat fahrenhait

                TextBox2.Text = sngVarKelvin

                TextBox3.Text = sngVarCelcius

                TextBox4.Text = sngVarReamur

                TextBox5.Text = sngVarFahrenheit

                'menunjukkan pengisian pada setiap textbox untuk masing-masing hasil konversi

        End Select

        Return True

'menunjukkan fungsi akan dijalankan jika function konversi dipanggil pada listing

    End Function

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

        konversi()

        'memanggil function dari konversi

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        'mengosongkan isi input atau hasil dari textbox1 sampai dengan textbox5

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Close()

        'jika mengklik button3 atau tombol keluar maka form akan ditutup secara otomatis

    End Sub

End Class