Menghitung_Suhu_Work3

Pada kesempatan kali ini saya akan menshare flowchart tentang menghitung suhu dan bagaimana codingnya pada Visual Basic. berikut screenshot dan codingnya.

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim vartemp, hreamur, hfahrenheit, hcelcius, hkelvin As Integer
        vartemp = CSng(TextBox1.Text)
        Select Case True
            Case rb1.checked
                hcelcius = vartemp
                hreamur = (vartemp * 4 / 5)
                hfahrenheit = (vartemp * 9 / 5) + 32
                hkelvin = (vartemp + 273)
            Case rb2.Checked
                hreamur = vartemp
                hcelcius = vartemp * 5 / 4
                hfahrenheit = (vartemp * 9 / 4) + 32
                hkelvin = (vartemp * 5 / 4) + 273
            Case rb3.Checked
                hfahrenheit = vartemp
                hcelcius = (vartemp - 32)
                hkelvin = ((vartemp - 32) * 5 / 9) + 273
                hreamur = (vartemp - 32) * 4 / 9
            Case rb4.Checked
                hkelvin = vartemp
                hcelcius = vartemp - 273
                hreamur = (vartemp - 273) * 4 / 5
                hfahrenheit = (vartemp * 9 / 5) + 32
        End Select
        tcel.Text = CStr(hcelcius)
        tre.Text = CStr(hreamur)
        tfa.Text = CStr(hfahrenheit)
        tke.Text = CStr(hkelvin)
    End Sub

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

Semoga Bermanfaat