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

PROGRAM PENGHITUNGAN VOLUME BALOK

Assalamualaikum Guys..

Ane kembali membawa materi baru ni tetep dong mengenai VB 2010,kali ini ane bakalan jelasin gimana caranya membuat program penghitungan tanpa menggunakan Variabel ..
nah .. kalo dalam pemrograman Delphi kalo kita membuat program penghitungan kita harus menggunakan variabel kan .. kalo di dalam Pemrograman Visual juga sama tapi ada juga caranya agar tidak menggunakan Variabel,nah kali ini dalam kodingannya kita menggunakan yang namanya “VAL”,misalnya kita ingin membuat program penjumlahan dan komponen dalam form tersebut terdapat 3 komponen label,3 TextBox,1 Button maka kodingannya akan menjadi :

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

Ngerti kagak Guys?gini aja deh ..
biar ente pade cepet paham .. kita mulai latihan aja dah,ente Buka program Visual basic 2010 di PC ente masing-masing :

• Kali ini kita latihannya membuat program Volume Balok ya,Rumus volume balok itu apa??Panjang * Tinggi * Lebar,Bukan??iya that’s Right itu dia rumasnya so..komponen yang kita butuhkan ada 4 Label,4 TextBox,1 Botton design x akan seperti ini :
  
   
  
  
  
• ·         Kemudian kita ganti nama komponen-komponen tersebut,menggunakan kodingan
   Mengganti nama Form double klik pada form kemudian :
  
   Me.Text =’Volume Balok’
  Label1.Text = ‘ Panjang ‘
  Label2.Text = ‘ Tinggi ‘
  Label3.Text = ‘ Lebar ‘
  TextBox4.Text = ‘ Hasil ‘
  Button1.Text = ‘Volume’
  
  Maka Hasilnya akan seperti di bawah ini :
  
  
  
   
  Secara otomatis Label1,2,3,dan 4 Button1 dan TextBox1,2,3,4 akan berubah nama komponennya ketika di run,lain apabila blm ente ganti nama komponennya kagak percaya?ente cobain aje gak usah di ganti nama komponennya kayak gitu..
  
  
          - Selanjutnya kita akan Membuat kodingan pada Rumus balok,double klik pada button1 maka kodingannya akan menjadi :

  
  

  
  

  TextBox4.Text = Val ( TextBox1.Text ) * Val ( TextBox2.Text ) * Val(TextBox3.Text)

  
  

  Setelah kodingan selesai di ketik,coba deh ente Runing,taruh aja nilai berapa aja ke dalam TextBox PANJANG,TINGGI,LEBAR klik button HASILnya,maka hasilnya akan :

  
  

  

  materinya udah selesai Guys .. tapi ane ada tambahan ni buat ente semua,kalo ente mau ngedesign background formnya,ente bisa deh cobain kodingan ini tapi double klik dulu pada formnya :

  Me.BackColor = Color.(warna yang di inginkan)

  Kalo ente mau ubah style hurufnya .. masih doublle klik pada form kemudian ketikan kodingan  :

  Label1.Font  = New Font ( Label1.Font , FontStyle.Bold )

  
  

  Dan seterusnya kodingan untuk style huruf akan seperti itu sampai dengan Label4 tinggal ente ganti aja label ke 1,2,3,atau 4

  Nah hasil Akhir dari program yang ane buat kayak gni Guys :

  
  

  

  
  

  
  

  Selesai deh materi yang bisa ane share buat ente semua guys ..semoga bermanfaat Guys
  terima kasih udah ngunjungin blog ane,selamat mencoba and
  Asslamualaikum Wr.wb