Program Penghitungan Perubahan Suhu

Assalamualaikum wr.wb
Guys..ane bawa materi baru lagi ni,kali ini ane bakalan ngajarin gimana caranya penggunaan combobox beserta coding yang bakalan buat kepala ente jaddi pusing .. ente penasaran?ente buka dulu deh aplikasi VB yang ada di laptop,netbook,atau PC ente..

• Setelah ente buka aplikasi VBnya,ente buat design seperti di bawah ini,pada pembelajaran kali ini kita bakalan gunain 10 Label,3Groupgox,6Textbox,3combobox,3Button,

• Kemudian kita akan mengganti nama komponen-komponen tersebut menggunakan codingan lagi,codingannya seperti ini;
  
  Me.Text = "Program Penghitungan Perubahan Suhu"
  Me.BackColor = Color.Pink
  Label1.Text = "C = Celcius"
  Label2.Text = "R = Reamur"
  Label3.Text = "F = Farenheit"
  Label4.Text = "K = Kelvin"
  Label5.Text = "Celcius"
  Label6.Text = "Hasil"
  Label7.Text = "Farenheit"
  Label8.Text = "Hasil"
  Label9.Text = "Kelvin"
  Label10.Text = "Hasil"
          GroupBox1.Text = "C->R,F,K"
          GroupBox2.Text = "F->C,R,K"
          GroupBox3.Text = "K->C,R,F"
          Button1.Text = "Hitung"
          Button2.Text = "Hitung"
          Button3.Text = "Hitung"
          Button4.Text = "Hapus"
          Button5.Text = "Hapus"
          Button6.Text = "Hapus"
          Label1.Font = New Font(Label1.Font, FontStyle.Bold)
          Label2.Font = New Font(Label1.Font, FontStyle.Bold)
          Label3.Font = New Font(Label3.Font, FontStyle.Bold)
          Label4.Font = New Font(Label4.Font, FontStyle.Bold)
          Label5.Font = New Font(Label5.Font, FontStyle.Regular)
          Label6.Font = New Font(Label6.Font, FontStyle.Regular)
          Label7.Font = New Font(Label7.Font, FontStyle.Regular)
          Label8.Font = New Font(Label8.Font, FontStyle.Regular)
          Label9.Font = New Font(Label9.Font, FontStyle.Regular)
          Label10.Font = New Font(Label10.Font, FontStyle.Regular)
          GroupBox1.BackColor = Color.HotPink
          GroupBox2.BackColor = Color.HotPink
          GroupBox3.BackColor = Color.HotPink
  Maka Hasilnya akan seperti di bawah ini :

 Kemudian kita akan mengisi komponen combobox agar seperti ini :

caranya klik komponen combobox pada form yang telah kita buat,kemudian pilih propertis ,setelah itu cari items :

kemudian tuliskan apa yang akan menjadi bagian dari komponennya combobox,seperti di bawah ini :

• setelah itu kita mulai pada codingan proses kita akan memunculkan hasil dari rumus yang akan kita buat sekarang ,, kali ini akan membuat rumus perubahan suhu tidak menggunakan variabel jadi kita akan menggunakan VAL ,maka codingannya akan seperti :

If (ComboBox1.SelectedItem = "C > R") Then

    TextBox2.Text = Val(4 / 5) * Val(TextBox1.Text)

ElseIf (ComboBox1.SelectedItem = "C > F") Then

    TextBox2.Text = Val(9 / 5) * Val(TextBox1.Text) + Val(32)

ElseIf (ComboBox1.SelectedItem = "C > K") Then

    TextBox2.Text = Val(TextBox1.Text) + Val(273)

 begitu seterusnya sampai combobox ke 3 tinggal di ubah combobox berapa,textbox berapa,dan button ke berapa ,untuk rumus perubahan suhu ,, cari sendiri ya guys maka hasilnya akan seperti di bawah ini :

nah kemdian pada button Hapus itu,kalo ente pingin buat biar ketika kita klik hapus maka yang udah di inputkan ataupun outputnya bakalan hilang maka double klik pada button yang akan di jadikan tombol hapus kemudian tuliskan kodingan :

Textbox1.Text=""
Textbox2.Text=""
Combobox1.Text=""

oke Guys hanya itu materi yang bisa ane sampein,selamat mencoba ya,semoga berhasil kalo ada yang di bingingungin bisa deh ente nanya sama ane via BB ni PIN ane : 327F7DF2 Hahaha
asslamualaikum wr.wb..Good Luck