Belajar VB NET 2013 : Membuat Konversi Suhu Sederhana

Membuat Aplikasi sederhana dengan VB NET : Aplikasi Konversi Suhu Sederhana

Selamat datang kembali pengunjung setia Intech11, kali ini Intech11 akan membagikan tutorial cara membuat Konversi Suhu Sederhana.

Nah mungkin diantara kalian ada yang butuh, atau ada tugas dari sekolah mungkin tutorial ini bisa menjadi pedoman atau membantu tugas kalian dan dapat belajar.

Langsung saja Ikuti langkah - langkah dalam pembuatan konversi suhu sederhana berikut dalam menggunakan VB NET 2013.

Pertama, Buka aplikasi VB NET 2013 yang sudah terinstall di laptop anda, atau jika anda belum memiliki nya dapat klik Disini

Setelah terbuka, Isikan data anda seperti nama aplikasi yang anda buat dan lokasi penyimpanannya, jika anda belum memahami nya anda dapat klik Disini

Setelah itu tampilan form awal akan kelihatan, atur formnya seperti pada gambar berikut.

Jika anda belum mengerti tentang halaman utama atau menu menu pada VB13 dapat dilihat Disini

Setelah itu atur pengaturan

Setelah anda mengaturnya seperti diatas dengan nama yang sesuai di atas, kemudian isi pada combobox1 pada bagian Items pada bagian properties isi seperti gambar dibawah :

Setelah itu klik OK, kemudian lakukan Double klik pada button1 dan ketikkan kode berikut.

If ComboBox1.Text = "Celcius" Then            

   TextBox1.Text = " - "        

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

   TextBox3.Text = (9 / 5) * Val(TextBox5.Text) + 32  

   TextBox4.Text = Val(TextBox5.Text) + 273 

ElseIf ComboBox1.Text = "Reamur" Then 

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

   TextBox2.Text = "-" 

   TextBox3.Text = (9 / 4) * Val(TextBox5.Text) + 32  

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

ElseIf ComboBox1.Text = "Fahrenheit" Then 

   TextBox1.Text = 5 / 9 * (Val(TextBox5.Text) - 32) 

   TextBox2.Text = 4 / 9 * (Val(TextBox5.Text) - 32) 

   TextBox3.Text = "-" 

   TextBox4.Text = 5 / 9 * (Val(TextBox5.Text) - 32) + 273 

ElseIf ComboBox1.Text = "Kelvin" Then 

   TextBox1.Text = Val(TextBox5.Text) - 273 

   TextBox2.Text = 4 / 5 * (Val(TextBox5.Text) - 273) 

   TextBox3.Text = 9 / 5 * (Val(TextBox5.Text) - 273) + 32  

   TextBox4.Text = "-" 

Else 

   MsgBox("Mohon Pilih pengkonversian!!!", MsgBoxStyle.Critical)   ComboBox1.Focus() 

   TextBox5.Text = "" 

End If

NB: Kode MsgBox berfungsi apabila anda tidak memilih Pengkonversian dengan model Msgbox Critical 

Setelah anda ketikkan itu kemudian Double klik pada button2 dan ketikkan kode berikut.

 TextBox1.Text = ""
 TextBox2.Text = ""
 TextBox3.Text = ""
 TextBox4.Text = ""
 TextBox5.Text = ""
 ComboBox1.Text = "" 

NB: Fungsi dari code ini adalah mengosongkan setiap textbox dan combobox yang terdapat pada form apabila ditekan tombol Reset. 

Setelah anda Ketikkan kode tersebut, anda dapat menjalankan nya dengan mengklik button Start, seperti yang saya tandai merah.

Setelah itu anda dapat mengisi nilai yang ingin dikonversi pada textbox5 dan pilih pengkonversi pada combobox1 setelah itu anda dapat mengklik button Konversi.

Sekian tutorial mengenai membuat Konversi suhu dengan menggunakan VB NET 2013 dari Intech11.

Cek terus website kami untuk update berita terbaru, belajar dasar pemograman, dan tutorial - tutorial lainnya. 

Tweet