cara menghitung perubahan suhu celcius,fahreanheit,dan kelvin

Assalamu’alaikum wr.wb

Pada edisi kali ini, saya akan mencoba untuk melampirkan cara-cara bagaimana  Menghitung PERUBAHAN SUHU CELCIUS,FAHREANHEIT,dan KELVIN, dan begitu pula dng seterus nya dari C->R,C->F,C->K, dari F->C,F->R,F->K dan juga K->C,K->R,K->F dengan menggunakan aplikasi VBS 2010.

adapun langkah-langkah pembuatan nya adalah sebagai berikut:

Terlebih dahulu anda buka aplikasi VBS 2010

Setelah itu klik New Project, lalu Windows Forms Application lalu Ok.

Setelah semuanya diklik maka akan tampil gambar kerja seperti gambar bawah ini tapi mohon di maklumi karna warnanya hitam:

1.    Untuk langkah berikutnya kita mulai mendisain. Bahan bahan nya adalah

1 GroupBox,

4 label,

 3 buah TextBox,

1 Button dan

1 ComboBox. 

 

Setelah itu kita masukan semua coding nya untuk menganti semuanya  dng klik di form nya, setelah di klik lalu masukan rumus nya seperti di bawah ini

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

GroupBox1.Text = "C-> R,F,K"

        Label1.Text = "Celcius"

        Label2.Text = "fahreanheit"

        Button1.Text = "Proses"

        Label3.Text = "kelvin"

        Label4.Text = ""

    End Sub

Setelah itu kemudian kita RUN/F5, maka akan tampil seperti di bawah ini:

Kemudian click pada ComboBox nya lalu cari di properties lalu cari Items(collection) di samping collection itu ada kotak titik kecil pilih, untuk memasukan semua rumus sudah kami cantumkan seperti di gambar ini setelah itu langsung oke

 setelah klik ok maka tampilan nya seperti di bawah ini

2.    Langkah selanjutnya klik button1, untuk memasukan codingnya semua rumus yang akan kita jalankan,

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

       

   If (ComboBox1.SelectedItem = "C->R") Then
            Label4.Text = (4 / 5) * Val(TextBox1.Text)
        ElseIf (ComboBox1.SelectedItem = "C->F") Then
            Label4.Text = (9 / 5) * Val(TextBox1.Text) + 32
        ElseIf (ComboBox1.SelectedItem = "C->K") Then
            Label4.Text = 273 + Val(TextBox1.Text)
        ElseIf (ComboBox1.SelectedItem = "F->C") Then
            Label4.Text = (5 / 9) * (Val(TextBox2.Text) - 32)
        ElseIf (ComboBox1.SelectedItem = "F->R") Then
            Label4.Text = (4 / 9) * (Val(TextBox2.Text) - 32)
        ElseIf (ComboBox1.SelectedItem = "F->K") Then
            Label4.Text = (5 / 9) * (Val(TextBox2.Text) - 32) + 273
        ElseIf (ComboBox1.SelectedItem = "K->C") Then
            Label4.Text = Val(TextBox3.Text) - 273
        ElseIf (ComboBox1.SelectedItem = "K->R") Then
            Label4.Text = (9 / 5) * (Val(TextBox3.Text) - 273) + 32
        ElseIf (ComboBox1.SelectedItem = "K->F") Then
            Label4.Text = (4 / 5) * (Val(TextBox3.Text) - 273)
        End If

    End Sub

3.     Kemudian tingal kita jalankan rumusnya satu persatu, terserah mau masukin nilai nya berapa, tergantung kebutuhan masing-masing, contoh nya seperti di bawah ini

Banyak yg bertanya kenapa hasilnya 48, karna yg kita pilih adalah C->R Begitu juga seterusnya, anda tinggal pilih rumus mana yang anda inginkan kemudian masukan nilai nya di Celcius,Fahreanheit,dan Kelvin nya, kemudian pilih di ComboBox nya click mana yang anda inginkan.

Demikian keterangan dari saya, moga bisa bermanfaat.

Wassalamualaikum war, wab.

“SELAMAT MENCOBA”